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PREFACE 


This logic manual provides sone measure of detail about the 
internals of SQL/Data System (SQL/DS). It is intended for 
persons involved in determining programning problems, 
especially to determine whether there is a user or IBM 
programming problem. Further» if it is determined that 
there is an IBM probles, this manual, along vith Velunes 2 
and 3, helps to provide ta) the information needed to 
deternine uvhere the problem lies or (h) sufficient 
information to assist IBM personnel in locating the problea 
and providing the necessary program modification. 


ORGANIZATION OF THIS MANUAL 


This manual is designed to give a semi-detailed view of 
SQL/0S. It contains four sections: 


* "Section 1: Introduction" provides a high-level view of 
the SQL/DS rajer functions and how they interact. 


* "Section 2: Mathod of Operation" provides graphic 
descriptions of the nodules or groups of nodules for the 
major functions and how these nodules lor module groups) 
interact, giving the flow of control. 


® "Section 3: Program Organization" gives textual 
descriptions of the SQL/DS modules in an alphameric 
sequence. Most of the module descriptions are very 
brief. A feu contain extended descriptions. Generally, 
those in the latter group have multiple entry points, or 
are not described at all in Section 2) or need to have 
some complex algorithn explained. 


© "Section 4: Directory" contains a Link Edit Book 
Directory and a Module Directory, which contains a list 
of all the SQL/DS modules, page references to sections 2 
and/or 3, and the phase name(s) to which the modules 
belong. It is organized alphamerically according te 
module name, 


Volume 2 (LY24-5217) contains Se¢tion 5 (Data Areas), 
Section 6 (Diagnostic Aids), and three appendixes. 
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USING THIS MANUAL 


This manual is designed to be used with Volume 2 and» if you 
are a VSE user and interested in Extract, Volume 3. (Volure 
3 is a stand-alone volume for Extract and contains all six 
sections for Extract.) 


Read Section 1 to get a high-level view of SQL/DS. Go to 
Section 2 to examine the control flow for a suspected 
problem area» or to Section 3 for descriptions of the 
individual modules. Most of the module descriptions in 
Section 3 are very brief; hovever, there are a few extended 
descriptions for some of the nodules needing additional 
explanation not given in Section 2. 


Section 4 is the directory to modules; phases, and link 
books. You can use this section to locate pages on which a 
particular nodule is presented/described, to determine in 
which phase{s) a nodule is included, and to match up the 
component with the link book names and phases. 
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SECTION 1: INTRODUCTION 


This section consists of the high-level organization and 
flow of SQL/DS as related to its oun components and, where 
necessary, the VSE or VM system. It will prepare the 
setting for Section 2, "Method of Operation", which will 
cover SQL/DS in a wore detailed fashion, but not at a very 


ARIxyyyz 


x = Component: 

ROS Con 
SQL/DS 

DBS Uti 
TSQ@L_ 


PREP 


Resource 
SYSGEN/ 
RDS 
DBSS 


8 
c 
0 
I 
4 
] 
q 
R 
s 
x 
Y 


AXT...- Extract 


Further, for the DBSS and RDS components, you can recogniz 
of the module name fARIYy... or ARIXy.., }< 


Yy = YC DBSS Data Control 

YD OBSS Data Manipulation 

YE OBSS Trace/Miscellaneous Services 

YI. DBSS Sterage and I/0 

YK ODBSS Lock 

YL. DBSS Log 

YM OBSS Message Handling, Operator 
Services, and Miscellaneous 

YS DBSS Sort 

YT ODBSS Work 

YX ODBSS Index 

YZ OBSS Update Statistiscs/COUNTER 
Command 
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low level of 
descriptions 


detail. Refer to Section 3 for textual 
of individual nodules. 


Generally» you can recognize the cornponent to which a nodula 
belongs through the following nodule naming convention: 


zt (blank) = Common Code 
D = VSE c = VN 
yyy: Unique within component 


trol Blocks/Macros 
Control (DSC) 
lity 


@ Manager 
Installation 


e the subcomponent 


Xy = XA RDS 


xc ROS 
XE ROS 
XF ROS 
XI RDS 
xO RDS 
XP ROS 
XF RDS 


Modules Common Across SQL/DS, Messages, and Trace 


SQLDS SQLCODE Descriptive Message Text 


to which a aodules belongs by the fifth character 


Authorization 
Code Generator 
Executives 
Code Fragnents 
Interpreter 
Optinizer 
Parser 

Trace 


Introduction 


i 


VSE/Advanced Functions 


User Partition 


@ Application 
Progran 
Cross—Partition (XPTN) 
Link 
SAT 
CATT 


ELLA ] 


CtlTTl 
User Partition 


@ Application 
Program 
© PREP Cross—Partition 
® DBS Utility Link 
LLL SQuL/08 
CAAT 
\ 


7 


C1117 
CATT 


User Partition 


® Application 
Progras 
@ PREP Cross—Partition 


® DBS Utility Link 
CA11TT 
SAAT 
BES EEEEESEEEEEESTEEEEEEEEEE 


CttTTT 
CAAT 


Figure 1. Multi~Partition Environment: Access to SQL/DS with CICS, ICCF, and Batch Support. 
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Virtual Machine 


Inter-User 
© Application Comaunication 
Prograr Vehicle Link 
® PREP CASTE 
* DBS Utility LEAL 


\ 


4441474 
C41AT7 


Figure 2. Multiple Virtual Machine Environment: Application Access to SQL/DS. 


USER PARTITION/ SQL/DS PARTITION/ 


VIRTUAL MACHINE Coanunication VIRTUAL MACHINE 
7 \ Link 
\ na wore een enne 
B48: ve \ COTTE ASE osc 
Be 8 7 PREP \ (SQL/DS CONTROL? 
aa RDIIN SanUuBesaee 
saL 7 
Fe CATA T AAAS} 
SQL gf Pee ee eee cere e 
\ 7 
USER SOURCE 
PROGRAM 
ROS 
Convert SQL inte 
machine code. 
7 \ 
\ /\|7 
ara \ 
lent DBSS 
CALL Write access rod 
ee and user data to 
CALL SQL/DS data base. 
\ 7 


MODIFIED USER 
SOURCE Gouiatae 


acces Doeeiesn 

| 

| 
po----- wt1-.---------- +--+ +22 -- +--+ 4 7 \ 
The Modified User Source Program, XN / 
assuaing no errors occurred, is CATALOGS 
nou ready to be run through the 00000 ie 
CICS Preprocessor (if this is to ACCESS MODS 
be a CICS transaction} and the host (20000 mw 
language compiler (PL/I compiler» USER DATA 
COBOL compiler, FORTRAN compiler, [=== 2 = = 
or assembler). It would then be \ 7 
ready for execution to access the SQL/DS DATA BASE 


SQL/0S data base. 


Figure 3. Preparing a SQL/DS Data Base Application Program for Execution (the PREP Process). 
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SOQL/DS PARTITION / VIRTUAL MACHINE 


RDS EXECUTIVES 


\e/ 
PARSER CODE GENERAT! STORE ACCESS MODULE 


Create Op Tree Choose lowest ® Develop machine ® Store the access 
cost path for language prograr to module on the data 
SELECT, INSERT. do requested SQL base. Also store 
DELETE, UPDATE. operation SQL statement vith 

the access nodule 
For all other for use by Re-PREP. 
SQL statements, 
scan Op Tree 
& do catalog 
lookup opera—- 
tion. Store 
Op Tree in 
access module 
section for 
execution by 
ROS Interpreter 
at run tine. 


Figure 4. Preparation of an Application Program ~ ROS Functions. 
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| USER PARTITION/VIRTUAL MACHINE 


USER PROGRAM 


CALL ARIPRDI "88 


| ARIPRDI 
Locate & CALL 
Resource 
Manager 

| (RM) } 


Re—_—_——\av 


Manage application 
access to SQL/DS 


Shield application 
fron environnent 


psc 
Initialize link to 
SQL/DS 


Gather application input 
into single input nessage 


Send input message 
to SQL/DS partition/ 
virtual machine 


] When output message 
returned, move elenents 
and SQLCA to applica- 
tion's storage and return 


Conaunication 


SANTA TTTA ATTA 

\ 

sees RDIIN & DATA S55sneeR 

/ 
POTTS T TATA SAS 
VATTTTTTTATT AST 
SANTA TAT ASAT 
LAL 
4AATATTTSTTTTTd 
SAATTTTTAA SSSA 


mgoonornaw 


DSC 
® Receives transrgission 
from RMN partition/vir- 
tualk machine & trans- 
fers control te RDS. 
® Provides services for 
executing structures: 
- Posting user parti- 
tion/virtual nachine 
after SQL/0S 
functien done. 
Mgat. of storage in 
SQL/DS partition/ 
virtual machine. 
TRACE linkage. 
Linkage for writing 
SQL/DS messages. 


D 
dsS——————-_\87 
Uses RDIIN to: 
® Identify & load (on 
initial call from the 
application progran} 
access nodule. 
® Use section of code 
in access sodule to 
do SQL function & to 
interact with DBSS. 
78, 
3 
lal 
-—DBSS——\8¥ / 
Controls & accesses 
SQL/DS data base. 
Provides: 
© Data base access via 
VSAM (VSE) or block 1/0 
interface (VM) 
Suballocation of data 
base space 
Storage & buffer mgnt. 
» Logical unit work angmt 


SQL/DS PARTITION/VIRTUAL MACHINE 


2 Note: 


In SPM/SVMM the 


RM (Resource Manager} 


branches directly 
to RDS. 


| Figure 5. Execution of a SQL/DS Application (Batch, ICCF Prograa; or CICS Transaction (for VM - Batch only)}. 
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DBSS OPERATION ROUTINES 


° s ] 
le a 
\e/ 
DATA 
CONTROL 
\a/ 


s 
\e/ 5 
a 
MANIPULATION bed 
\87 \87 
STATISTICS 


DBSS SERVICE \®/ ROUTINES 


Figure 6. Data Base Storage Service (DBSS). 


CHECKPOINT 
& 
RECOVERY 
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2 These are the sane DBSS 


Service Routines as shown 


below. 


Introduction 7 


8 


Terainal 


USER PARTITION/VIRTUAL MACHINE 


A N\ 
7|—N 


Task 
* SQL Cards Transaction 
° ISQL Cads 


e User Data 


Processor 
Commands 


7 Statement 
\ / Processor 
¢ SQL Cads \ 
® ISQL Cads | 
® User Data 
\ 7 \ 7 
Terminal Temporary Resource 


Stored Queues 
(Virtual Storage) 


Manager 


Formatted 


Print 
Output 


/ 


Figure 7. Interactive Structured Query Language (ISQL). 
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s 
\ 


SQL/DS PARTITION 
7 WIRTUAL MACHINE 


COMMUNICATION 
LINK 
PELITEL EET TE sQu/DS 
SS aN 
////\®% RDIIN 
VAATA / 
aT ALA VALEAEA 
VAET\ONLILTTS 
VHA AVELLALA 
SILENONSELLTE 
PILE\O\SCCTAL 
SAEL\®\SATTTS 
TELA ALLELE 
VOCE E\NAAETAL 
VLLALAVALLLAG 
Cea y///// 


ecueen|////// 
41101 
AAAS AAA AAA 
— i 
\ 7 4 
7 \ 
Nor 2): = ne 
Stored Queries 
Routines 
Profiles 
User DB 
‘ / 


SQL/D5 Data Base 
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SYSIPT (VSE) 
/SQL statements 
DBS commands 

User data 


\ 
/ 
SYSIN (VH/SP) 


SAM file 
¥ \. INFILE 
—| cael 
? —_____—_,/ 
| \ / dname 
\ / 


/ \. CIL (VSED 
\ ¢|——_———"* 


LOADLI8 
(VH/SP) 


/ ‘\ 
N / 
SQL/DS Catalog 
& AUX entries 
SEES, eee 
® OBSPACES —_—_—_/ 
° Tables 


SQL/DS Data Base 


SQL/0S 
operating 
systen 
dependent 
routines 


SQL/DS 


nessage 
formatter 
routines 


$ QUTFILE / \ 

Q SQ@L/DS dnane \ /} 

L operating |———\ ¢ * 

/ system Sal 

D dependent \ 7 

$s routines LY fee 

D 

8 

s SYSLST (VSE) 

P ———_—$__—__——_ 

R SYSPRINT (VN/SP) 

0 

6 

R 

A 

n" WTO Error 
—————I\} messages 


esource 


\a/ 
| R Manager | 
78 


: 


\ 
/ 


/ 
\ 
SQL/0S 


® DBSPACES 
——_\| © Tables 


— 1 


SQL/DS Data Base 


Figure 8. DBS (Data Base Services) Utility Program Overview. 
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Introduction §& 


‘N 


| 


& MESSAGES 


| Figure 9. 


COMMANDS 


SQL/DS Input |UTILITY 
\-—- 


/ be 
4 


SQL/DS 


\ 7 


Extract Facility Overview (VSE only) 
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a DBS a 


\—— 


EXTRACT UTILITY 


———— 


DL/T 
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SECTION 2: METHOD OF OPERATION 


Most of this section consists of control flow diagrams, hoth 
at a very high level and various levels of detail» depending 
on length and complexity of the functions and/or nodules. 


For sone major functions and for some sub-functions, 
diagrams and text are included to provide some basic 


Licensed Material - Property of IBM 


understanding of the concepts at the point at which they are 
introduced. Some of this material is introductory text. 
Other material includes example diagrams or format diagrams 
(for example, a broad overview of the associated data areas 


or tables) as is deened appropriate. 


Hethod of Operation 


Ik 


GENCAT 


Gverall GENCAT Control Flow 


Invoked by call from DSC during data base generation 
| “ “ Key to Reading Module Flow: 
A 


ARISMAIT 


ARISEDI 


ZN 4EN ZEN 
ar ee, WY ae 


I te A 2 ue E 0G F a S y 


© MODI nay call MOD3 & MOOS (vith 


return), but not MOD2 or MODS. 
ARXSREL © MOD2 may call MOO3 & MOOG (with 

return), but not MOO] or MOOS. 
ARISERR? Ay . All modules except ARISREL may call 


=a es 
ARISYSD72 aryl “a By 


ARISERR, and ARISERR calls ARIMFHT, 
ARISYSD3, and ARISYSOS. 


2 All modules except 
| ARISREL and ARISERR 


[arrscon | may call ARISYSD?. 


| ae” ARISIST2 


(or 


AWN 7 
coca B || 0 | 


NZ NZ 
Puen oie ie | 


7 i FON A 
\7 oe, \7 “c \( Ef i D vik F Me F i 


he y 
[arrs¥s01°| [arrsyso2"| [arrsysos° | [aersysve®| 3 VSE/Advanced Functions: Entry point into 
ZN 7N\ ZN 7N 7N module ARISYSDD. 


| o | fe | | F | ic | | H} | VévSP: ARISYSDS is entry point in 
\7 \7 XN module ARISYSEC; ARISYSD8& is 


J 1 J J ' a u entry point in module ARISYSFC; 
[arrvii00 | ARIMDEC | ARISCNV [aati | [arxsram others are entry points in 
module ARISYSDC. 
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Invoked by call from DSC during data base qeneration 


ARISMAL 


ARISHAL is the main GENCAT nodule 
which reads the GENCAT control 
cards from the Source Statement 
Library (VSE/Advanced Functions) or 
fron a CHS file (VM/SP). It first 
gets a data storage area for 
GENCAT processing. 
It then reads each record and 
deternines the function required, 
calling the appropriate GENCAT 
routine to process control 
statement. 


ARIYHOO 


Process BEGTRAN request to 
begin LUW. 


Edit GENCAT control cards. 
INITIALIZE. 

DEFREL (define relation). 
DEFIM (define index}. 
ARTSOFL DEFLINK (define a link). 
ARISIST INSERT (insert a row). 
ARISIST2 | INSERT (second nodule). 
FILL SYSOBSPACES. 
ARISUPD UPDATE. 
ARISSET SEV OEFAULT, 
ARISLAY Fill SYSBOOT relation. 


Process encountered errors. 


Get storage. 
\ VSE/Advanced Functions: Entry point 


ARISYSU2*| Free storage. into nodule ARISYSOD. 
Vi/SP: ARISYSOS is entry point into 
ARISYSDS!] Open/close pointer, module ARISYSEC; ARISYSDS is 
After each record has been read output lists. entry point into nodule 
and catalogs built, the SYSOPTS ARISYSO7"| Abnormal cancel. ARISYSFC! others are entry 


relation is written and the list 
of identifiers is printed. ARIYHOO 
is then called again to end the 
logical unit of work (ENOTRAN) 

and the GENCAT storage is freed. 


points into zodule ARISYSOC. 
Read a card inage file. 


Calls itself to issue 
exror nessage. 


ARIYMOO}] Process ENDTRAN request to 


end transaction. 


RDS EXECUTIVES AND MODULE FLOW 


STARTUP 


SQL/DS CTL (DSC) 
(DSC START) 


ROS LOAD MOD ENTRY POINT 


ARTXELK ARIXER 
ROCVT «€ ¢ Strategic ROCVT € fRDCCAT 
RDS Mods. t 


Read in catalog I0s 


OSC (ALLOC RDAREA) 

{AGENT START) 

ARIXEST. 
Initialize RDAREA 
ALLOC SQLCA, BASE 

Structure 


SHUTOOUN xtended Dynani 


ose 
(SQU/DS STOP) l 


ARIXES 
CALL OBSS(ENDRSS >} 


(Next page} 
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CATALOG INITIALIZATION 


tatenents F. 


(See page 20) 


(EQSF) Terninatio 
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SQL CALL (SQt/DS CTL = OSE) 


ARIXERO 
lf nulti-partition aode, call 
DSC to do WAIT 


Note: 


PREP °Prev or current CONNECT-NO 
Tine ®PREP CALL 
PREP INIT, PREP FINISH, — 
SQL CALL, LooK—us CALL 
RUN *Prev or current CONNECT: 
Time *®DBSS RUN TIME CALLS 
RECOVERY, PREPARE TO 
COMMIT, OPERATOR 
RUN or 
PREP @CONNECT/SCHED CALL 
Time °EDSF function (see Charts 
I - Vy follouving) 
RUN ®AUX loaded/valid? 0 
Tine 


Valid? 
no 
*Check RUN authority 
®SET-UP call (PREPARE? 
*AUX call 
-INTERF SECT (COMMIT, ACG 
EXPAND, CREATE TBL...}— 
-COMPILE SECT (SELECT) — 
INDEF SECT (EXEC immed.) 


PARSE SECT 

‘Inconplete at PREP time 
(e.g.» table not yet 
created) 


PARSE or INDEF SECT: 
Execute AUX section 
PREPed above, 
Change to either: 
INTERP SECT 
COMPILE SECT 
eOPEN call 


®CLOSE call 
eDESCRIBE call 
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ARI D 
POST 


ARIXED 
DBSS call (also 
called by other 
RDS components) 


ARIXAOL (Authorization?) 


ARIXERP 
(CREPREP) 
Alloc blks.3 load 

AUX to get SQL 
stat. 

Call authorization. 
Free blks. 

Finalize AUX. 


ARIXII1G (Interpreter) 


ARTIXED! 
Dyn. PREP (like EPP 


Alloc Ctl.Blks. 
ARIXEOPI 
No store AUX Section 


~ build each time 
Free blocks 


ARIXEBR— 
EXEC AUX. Give ctl 
to mccess nodule. 
ARIXEBRIL 
Run-time AUX 
program-check 
routine. 


but at Execute time) 


Read “AUX” as “access acdule") 


ARIXEE 
| Fill in saica] 


ARIXED 
PREP INIT 
Allocate blocks 
Initislize AUX 
LOOK-UP CALL 
Cursor declared? 


OPEN: Cursor declared? 
FETCH: Opened? 
CLOSE: Prepared? 
EXECUTE: Prepared? 
DESCRIBE: Prepared? 
SQL CALL 
FINISH CALL 
Finalize AUX —— 


Load AUX from 
SYSAUX (& alloc 
etl biks for it) 


ARIXEP 
Blks. 


Add section 
te AUX 


ARIXPAL 


Parse 
—? rARIXO0 
Optinize 
ARIXC37 
| Code gen. | 
ARIXECL 


DBSS call to 
elase scan 


J 


Ei 


Prev. ROLLBACK | COMMIT 


ask 


Allocate Ctl. 


ARIXE. 
Service Routine 


ARIXESX: 
ENTRY POINTS: 

1. Initialize AUX. 
Unique nane? 

NO — Replace section 
links. 

2. Add new sections and 
their SQL statexents. 
Sather sections and 
SQL statements 
produced by Parser, 
Code Gen, Opt., 
Interp: 

INTERP SECT - use 
op/space blocks. 
COHPILE SECT - use 
space/code blocks. 

3. FINALIZE 
(PREP Finish call) 
Store unless error 

(ROLLBACK ) 


ARIXEC 
Called by Interpreter 
to clean up when 

COMMIT or ROLLBACK. 


Conversion Routines 


ARTXECK———-- 
Called by ‘uterpreter 
ete, when geiting 
negative PRESS return 
code upon «turn 
fron ARIXEDB 


AR IXEOC————————_- + > 
User wants to know «clumn 
information, Preceded hy a 
PREPARE, so Space Block, etc. 
still there. Use Space Block 
pointer to get data te fill 
SQLDA. 


Methed of Operation 
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Chart I - Creating an AUX which is NOT nodifiable using the Extended Gynamic Statements Facility (EDSF) 


CExanple: How FORTRAN PREP creates and builds access module) 


16 


ARTXERD 
@ Create program call with 
"no nodify'' option. 


@ Setup call following 
CREATE PROGRAM NOMODIFY 
CEOSF Prepare). 


COMMIT or ROLLBACK 
(after CREATE PROGRAM 
NOHMODIFY). 
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ARIXEDS-——_____—~ 
® Create program call —— 


© Setup call 


© COMMIT or ROLLBACK 


ARIXEP 
® Allocate control blocks 


® Add section to AUX 


ARIXPAL 
| Parse 

R ARIX0O0 
Optinize 

z ARIXC37. 
[code gen. | 


ARIXESX 


1. 


Entry Points: 
Initialize AUX. Unique 
name? NO - replace 
section links. 


| 
} 
Add new sections. 
Gather sections and Si 4 
statements produced by f 
Parser, Goede Gen.» Opt.: | 
Interp: | 
INTERP SECT - use 
op/space block. i 
COMPILE SECT - use 
space/code blocks. 


If no errors and at least 
one section: 
- Store SLT 
- Update AUX length row 
- Make SYSACCESS entry 
- COMMIT 
Else: 
~ ROLLBACK (AUX not 
stored 
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Chart IT - Creating an AUX which is modifiable using Extended Dynamic Statements Facility (EDSF) 


ARIXERD 
Run ® Create program call with 
Time “modify option. 


® Setup call following 
CREATE PROGRAM MODIFY 
(EDSF Prepare), 


@ COMMIT 
a. If follous CREATE PGH 
MODIFY where Aux had 
sections inserted 
b. 


® ROLLBACK 
a. If follows CREATE PGH 
MODIFY where Aux had 
sections inserted 
b. 
® DROP STATEMENT 


® (See Chart IV) 
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ARIXED 
* Create program call 


© Setup call 


© COMMIT or ROLLBACK 


ARIXE 


Entry Points: 
ARIXEAD 

© If CREATE PROGRAM issued 
bypass initialization 


Initialization 


Determine where to insert 
AUX section 


Compile statenent 


Insert section and SQL 
statenent 


ARIXEADIL 
® Finalize AUX 


® Free storage 


—— >| ARIXEAD2 


® Free storage 


ARIXI12 

| Commit LUW 
ARIXIL 
Rollback LUW 
ARIXED 
Delete section und 
SQL statement ro: 


in AUX 


4, 


5. Insert SLT 


ARIXC37: 
| Code cen] 


ARIXESX 


Entry Points: 
+ Initialize AUX. Unique 
name? NO - replace 
section links. 


° 
° 
2 


Insert section and SQL 
statement into AUX. 


- Update AUX length row 
- Insert SYSACCESS entry 
for AUX. 


ARIXEP 
® Allocate control blocks 


® Do not store section 


Method of Operation 
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Chart III ~- Updating a Modifiable AUX using Extended 


Run 
Tine 


ARTXERD 
@ Setup call 
(EDSF Prepare ) 


© DROP STATEMENT call 


@ (See Chart IV) 


ARIXEDR 
e If first update for this 
AUX in current LUW 


@ Drop section and 
statement revs from AUX. 
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ARIXEAD 
Entry Points: 
@ ARIXEAD 
- First update for this 
AUX in curre: LUW. 
lL. Allocate storage 
2. Preload checks 
3. If AUX needs rePREP 
@. Load AUX 
5. Lock SYSACCESS entry 
for AUX 
6. Return if DROP STMT. 
- Determine where to 
insert section and SQL 
statenent rouvs. 
- Compile SQL statement. — 
- Insert section into 
AUX. 


@ ARIXEADI 

~ Finalize AUX. 

- Mark cache entries for 
this AUX invalid. 

- If Grant vith RUN 
privilege lost then 
degrade RUN authorities 
in catalogs. 

~- Free storage. 


@ ARIXEAD2 
~ Free storage. 


ARIXA06 


r-ARIXEP 
® Allocate control blocks 


® Do not store section 


ARIXPAL 
Parse | 
ARIXOO 
| Optinize 
ARIXC37 
Code Gen] 


Oynamic Statements Facility 


ARIXELX 
Entry Points: 

e 

e 

e 


Load modifiable AUX into 
PSLT blocks. 


Preload checks 
Does AUX exist? 
Is AUX rnodifiable? 
Is user authorized to 
update AUX? 
Does AUX need to be 
rePREPed? 


ARIXER 
RePREP AUX (see 
p- 15 for flou) 


ARIXESX 
Entry Points: 


4. Insert section and SQL 
statement rous in AUX. 


5. Update/Insert SLY rous. 
Update AUX length rou. 


s—-ARIXEPH 
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being Updated Using Extended Dynamic Statements Facility 


The Extended Dynanic Statements Facility (EDSF) allous a 
user to execute statements fron an AUX which is being 


ARIXER' 
If an AUX is heing updated: 
® If EOSF AUX call 

~ Interpretive section 
- Compile section 


Run 
Tine 


Tf EDSF OPEN call ARIXEBR 


If EOSF CLOSE call 


If EDSF DESCRIBE call 


If EOSF DECLARE CURSOR 
(that is, PREP LOOKUP call), 
make entry into CURSOR NAME 
table only if not already 

there. 


ARIBEDC 
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updated. Statements are not executed, however, from the 
AUX. Blocks containing the GEN code for each statement sre 
kept only for the duration of the LUW. Each statement entry 
in the PSLT has a pointer to its blocks, thus permitting it 
to be executed. 


Give control to generated code 
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Chart V = Ternination Support for Extended Dynanic 
Statements Facility CEDSF)} 


If an EDSF application ended normally or abnormally vithout 


issuing a COMMIT or ROLLBACK, then ROS is given the 


opportunity to clean up the EDSF environment which was 
established to process the user's EDSF application requests. 


osc 
vith COMMIT 
or ROLLBACK 
exit request 


Online Resource Manager 


ARIXER' 
Entry Points: 
ARIXERD 


exit 


ARIXERD] 


RDIIN 


been terminated: 
- If COMMIT exit 
- If ROLLBACK exit 
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@ If PREPARE TO COMMIT call: 
- Call ARIXERD] with connit 


e If create progran with “nonodify" 
option issued in current LUW and 
the LUW has not been terninated: 
~ Create COMMIT or ROLLBACK 


@ If AUX is being updated in the 
current LUW and the LUW has not 


@ If ROLL@ACK issued during above 
termination then return code 

© Else if negative SQLCODE returned 
then return code = 8) requesting 
caller to rollback the LUW. 

© Othervise return code 

requesting caller to commit LUM. 


4. 


ARIXERDI entry point is called to clean up the EDSF 
environment. 


It should be noted that the resulting AUX finalization in 
ARIXESXS (see Chart IT) will exclude the COMMIT. The COMMIT 
is left to the caller (DSC or Online Resource Manager). 


ee 
ARTXEAD— ] 
ARIXEAD1 > See Chart III 
ARIXEAD2 | 


Licensed Material - Property of IBH 


Facility to add and delete AUX section and SQL statement 


A. Criteria used in ARIXEAD to determine where to insert 


a section: 


An attempt is nade to use the first available section 


which is reusable (i.e., PSLTREUS = 
the section havirg previously been deleted). 


ON as a result of 


If there 


are not reusable sections an additional entry is added 
to the PSLT (or SiT, Section Location Table) for the 


nev section. 


DESCRIPTION OF 
SECTION BEING 
INSERTED 


Add section to 


First section of SLT 
is reusable 


No SLT sections are 
reusable and at 
least 1 section. 


Section which is 
reusable after all 
used sections, 


Section is reusable 
but not in above 
categories (there 
are used sections 
before and after). 


Before TID of 
SQL statement row in 
the AUX: 

PSLTOVAR(1) 


SECTION INSERT 


After TID of AUX row I: 
STLDITID 


1. If there vere no 
SLT rows loaded: 
After TID of first 
row in AUX: 
STLOLTIO 
If SLT was loaded: 
After TID of last 
SLT rou: 
STLOSTID 


2. 


the first 


Sefore TID of the first 
section rov of next 
section: 
PSLTIVRP of reusable 
section 
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SQL STATEMENT INSERT 


After TID of last 
inserted section row: 
TBTID of insert 


If this is only 
section or all 
other secticns are 
reusable: 
As null AUX case 
2. Othervise: 
After TID of 
last inserted 
SQL stnt rou: 
STLDSCSQI 


Aftex TIO of last 
inserted 5QL state- 
ment row: 

STLOCSQY 


Before TID of the 

first SQL statement 

row of next section: 
PSLTOVRF of 
reusable section 


Once a PSLT entry is found or created, the insert TIDs 
{Tuple or Row IDs) and their qualifiers are determined 
for insertion of the first section row and first SQL 
statement row. The folloving table describes the 
criteria used in choosing TIDs and qualifiers. Note 
that a null AUX has only the AUX length row at the 
start of the update activity against the AUX. An AUX 
may not have any sections but may have SLT rous. Such 
an AUX is not considered null. 


See Section 5; "Data Areas"; for STOLDSTR mapping of 
PSLT. 
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B. Criteria used in ARIXEOR to deternine the AUX row 
which ends section and SQL statement row deletion. 


PSLTIVRP and PSLTOVRP of the target section are the 
TIO0s of the first section and SQL statement rows, 
respectively, of the section to be deleted. These 
Ti0s are used as the starting point for the delete. 
The TIDs used to terminate the delete are chosen as 
described in the table below. 


See Section 5, "Data Areas", for STOLDSTR and PSLT 
mappings. 


DESCRIPTION OF SECTION TIDS USED TO END SECTION AND 
BEING DELETED STATEMENT ROW DELETION 


Section is the only Section termination TID: 
used section remaining TID of the first SQL statenent rou to 
in the AUX be deleted: PSLTOVRP of target section 


SQL statement termination TID: 
end of file on scan 


Section is last used Section termination TID: 

section of the group TID of the first SQL statement row in 
of used sections the AUX: placed in ENDSETID during 
remaining in the AUX scan of PSLT. 


SQL Statement termination TID: 
end of file on scan 


Section is sandwiched Section termination TID: 

betueen used sections TID of the first section rov of nex? 

vhose PSLT entries used section: PSLTOVRP of next 

are not necessarily PSLT entry. 

adjacent (to PSLT | 

entry of section being SQL Statement termination TID: 

deleted} TID of first SQL statement row of next 
used section: PSLTOVRP of next PSLT 
entry. 
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The following overview diagram is presented here as an 
introduction to the data areas directly associated vith the 
ROS Executives when servicing requests from an SQL/0S 


Current RDAREA 
PREP Control Block (PREPDSCB) 
(Built by ARIXEDS on PREPINIT; 
freed upon FREPFINISH? 


RDAPRPDS 


OCLLIST 


sit } 
Op Tree 


Pointers to: 

*® PREP's SLT entry 

® PREP's ROIIN 

® PREP's Input Name List 

* FREP's Output Name List 

These are pointers passed from 
PREP (via ROIIN? to Execs at 
PREP Initialization time. They 
are used to return information 
to SQL/DS. 


Licensed Material - Property of IBM 


Authorization 
Parameter List 


New Op Tree 
First SLT 


1 See the following page and 
“Data Areas" in Volume 2. 


preprocessor (see previous page) in particular [although 
other functions use then). See “Data Areas" in SQL/DS 
Logic, Volume 2, for the individual data areas in detail. 


STOLDSTR 


SLT 
RSIBASE (Store) 
RSIBASE (Load) 


Used on calls to ARIXESX,» 
which initializes; adds 

new sections, and stores 
access modules (conmunicates 
vith DBSS)- 


SQL statement 


Passed to ARIXEPP. Used to 
control comnon data areas used 
in the calls to the Parser, 

Optinizer and Code Generator. 


(Code Block) 
Block 1 


(Op Tree) 
Block 0 


Relocation 
Oirectory 


Relocation 
Directory 
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SLT (see Data 
Areas in 
Volune 2) 


| COMPILESECTs 


Section 1 > INTERPSECT, or 


> | PARSEDSECT 


Section 2 


Section 3 


COHPILESECT - Block 0 (first code block) as produced by 
the Code Generator. Optionally folloved by Block 1, 
Block 2, ete (chained together). Block 10 is a Block 
Directory (aluays present). 


a. Code Block 0 - Entry to ganerated machine code. (This 
is the physical replacement for the original Slock 90 
where the Op Tree was leocated.] Block @ is chained to 
the Space Block. 


b. Space Block ~ Filled by the Optimizer. Contains DBSS 
linkage structures used in the generated code for 
calls to DBSS. Space Block is shained to Block 10. 


¢. Block 10 - Code block directory (for the case where 
there are more than one Code Blocks}. Bleck 10 is 
chained to Code Block 2 tif present), Block 2 is 
chained to Block 3, etc, if applicable. 


Each block has an associated Relocation Directory, which 
contains the index locations of pointers within the block 
that must be changed by the Executive routines when the 
access module is loaded. In addition, each code block 
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has a dynamic save area for use when calling other blocks 
or run-time routines. 


2. INTERPSECT ~ Contains Block 0 (Op Tree) as built by the 
Parser. This is the input to the Interpreter at 
run-time. 


3, PARSEDSECT - Contains the same thing as the INTERPSECT, 
but it is created for a statement that references a table 
that was not created vhen the statenent vas preprocessed. 
This is input to the Optimizer and Code Generator at 
run-time. 


4. INTERPSECT - Has no data associated with it. It is 
represented only by an entry in the SLT;> indicating the 
section type is “INDEFSECT". This results from 
PREPARE/EXECUTE, EXECUTE IMMEDIATE, or DESCRIBE 
statement. 


Also stored in the access nodule for COMPILESECTs, 
PARSESECTs, and INTERPSECTs is the original SQL statenent 
that caused the section to be built. This is used in case a 
re-PREP is required. 
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Example of an Access Module Structure 
STORED AUX (ACCESS MODULE} AT END OF PREP PHASE 


SYSACCESS 


PROGNAME |CREATOR | FINE VALID? ULID 


Unary 


Link 


Section Location Table (SLT) 


Nunber of sections 


Length 
of 
SQL 


Curser 
name 


Section | 


Block @ 


Block 1 


Unary Link 
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Section 2 


Length 
Block 0 


Length 


Block 1 


Length 


Section 3 


Length 


Block 0 


SQL for Section 1 


SQL for Section 2 


SQL for Section 3 
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SPECTRUM OF BINDING TINES IN SQL/DS 


Statement Section Parse Opt. Code Gen. Execution 
Type Type 
{ —_—__—~ 
Query, Insert, COMPILESECT Precormpile Tine | Run Time} 
Delete, Update a — L______— 
Pre- | } 
Create Table, INTERPSECT compile Run = 


Comnit Work, etc. Time | 


Operations on PARSEDSECT 
Temporary Fables 


PREPARE SI FROM QSTRING; INDEFSECT 
EXECUTE SI USING ... 
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COMPILESECT INTERPSECT PARSEDSECT INDEFSECT 


Invoke the 
Gptimizer and 
Code Generator 
to convert the 
section into a 
COMPILESECT 


SECTION TYPES AND CALL TYPES 
or INTERPSECT 
then execute 


AUXCALL 
it. 

Execute the 

OPENCALL machine code 
in the (Not used) {Not used} (Not used) 
section, with 
OPCODE=OPEN. 
Execute the 

CLOSECALL machine code (Not used) 
in the 
section, with 
OPCODE=CLOSE. 
Throw avay the current content 

SETUPCALL of the section and invoke the {Not used) 
Parser, Optimizer» and Code 
Generator to build a nev 
COMPILESECT or INTERPSECT 
fron a new SQL statenent. 


Invoke the 
Parser» 
Optimizer, and 
Code Generator 
to convert a 
new SQL state~ 
ment into a 
COMPILESECT or 
INTERPSECT. 


Execute a 
standard 
routine 
controlled by 
the content 
of the 
section. 


Execute the 
machine coda 
in the 
section. 


Return 2 
description 
of the answer 
set. 


DESCRIBECALL 
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THE PREP PROCESS FOR ASSENHBLER, PL/I, AND COBOL 


USER PARTITION / VIRTUAL MACHINE SQL/DS PARTITION 7 VIRTUAL MACHINE 


ARIPPREA(C|P} 
CAssembler, COBOL, or PL/I Precompiler) 


Process PREP 
ARIPSCN parameters 


| 


Note: The Parser, Optimizer, and Code Generator build, 

vork on, and utilize the Op Tree in generating 
Isyso_* an access module section. The Op Tree and 
information related to it is given in the Data 
Areas section of Volume 2 under ‘Op Tree’. 


| > 
a 
~< 


—>| ARIPERR 


[re] | 
Handle RDS Executives 
> error co) ARIXEPP 
[ aerecae | | message ARIXERD ARIXEDS -- 


| 
] 
Scan for SQL | Generate 
ARIPSQ{A(C]P)| Statements ARIXOOP* | Gptinizer > and Store 
Section 
ARIXC37> | Code 
(FORTRAN, see ° Generator 


| 

1 

| 

| 

1 

on next page} Store l 
Module J 

af 


> 


Service routine -- 


1 See page 31 for Parser details. 
>) ARIPCVH Service routine 
2 See page G3 for Optimizer details. 


ARIPCVF 
ARIPCVP Service routine + See page 79 for Code Generator details. 
ARIPCID 
ARIPVML 


* VSE: Entry point in module ARISYSDD. 

Service routine VM: Entry point Module 

ARISYSO1 Working storage (get) 

ARISYSO2 Working storage (free) 
Service routine ARISYSDS Console output 

ARISYSO5 I/O for Work files and Printer/Punch/Input 
Set length/type of ARISYSD8 INCLUDE support 

ARIPLTP| host variables 

(for PL/I only) 


Generate SQL 
ARIPTX{A|P|C}| code in user's 
source module. 
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PREP TINE MODULE FLOW DIAGRAM FOR FORTRAN 


Flow is from left te right and downward. All called modules return to the calling nodules (first statenent after the CALL) 


Main Line 
ARIPPRF nodule 


Text oe shag | | Scan | mar | a Statenent | 


v Generation v DECLAREs a atlas 


v v 


v 
> 
v 
v 
v 
v v 
Se ee 
v 
Sarena —t..----4 
|SYSTEN FUNCTIONS”| 
ARIMSMF/ 
Write modified source lines to vork files for generated DECLAREs, and code for SQL statement execution. ARIMFHT 


Locate host variable OECLAREs and SQL statements. 

Identify valid host variable declarations and specified type and length. Place in DCLLIST. 

Identify invocation parameters specified, and return parameter values. 

Identify SQL statement type and locate host variables, Replace variables vith "?". 

Assenmbler SQL module to do CREATE PROG, PREPAREs, ete., (functions of API interface). 

Performs systen-dependent I/O and get/free storage requirements. Write to LST, SYSO001. SYSO002., and PCH. 
Read from SYSIPT and SYSOO1, SyS002. 

® Handle PREP and SQLCODE messages. 

Normal SQL functions. 


aA OU wt fe 
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EXECUTION TIME MODULE FLOW DIAGRAM 


User's Modified 
Source Code 


p-- ARIPEIF --| ------------+----- +--+ 3-2 ++ ene | e+ +--+ +--+ +--+ ==] - w+a--+--- 


entry point 


SQLLEN 
Function 


SQLA0D 
Function 


ARIFOR 
SQl/DS 
Interface 


| 
| 
| 
| 
| 
I 
I 
| 


ARIPRDI 


| access |<-<—< 
| nodules | 
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PARSER 


The Parser section contains an overvieu of Parser functions, 
an explanation of the stack addressing used by the Parser, 
and BNF (Backus Noraal Form) syntax as an aid in 
understanding the Parser and other ROS functions as well. 


From: ARIXEPP TFUGE EMCuRANa? or ARIXERP (REPREP} 
a 
ARIXPAL \8/ 
ARIXPAL is the Parser mainline ARIXPAS 
module. It is driven by the 
parse tables (ARIBPAR). Returns address 
Parse tables are based on of parse tables 
BNF-defined tokens, When the 
a BNF Line is isolated by the 
tokenizer; the corresponding 1 the Op Tree is 
semantic routine is invoked te \| HEADER | these names; 
\| process the tokens.* Semantic ® Parse Tree 
/\ routines are identified by entry ® Op Area 
points in modules ARIXPA2 and * Op Block 
SQL ARIXPAS. ARIXPAL uses 4 names * oF 
Statement for its functions. * Block 0 
® PTREE 
(8K) 2 The BNF Syntax 
INVNAMES/OVNAMES page 37. 


Hax of 512#16 
Characters 


Index 
Next Free 
Byte 


Unused 


GET; Cali the tokenizer to get \}# Name 
another input token, advance the 7 
status indicator, and update 

the main stack with information 

about the current token. 


Nyt % 
ab wate cial 


2 bytes 2 bytes 2 bytes 


| 

| 

LOOKAHEAD: Call the tokenizer to l 
determine the token that is IVIND/OVIND | 
ahead of the current one, and 7 | 
advance the status indicator. \| Index of Var | Ind] Var |] Ind / | 
/|Next Free] |Len|Var]|Len}Var \ | 

BUMP: Advance the status Len Len / } 
indicator. j 
2 bytes }-------------------- — 512 Halfuords 


SEMANT: 
routine 
defined 
advance 


Call the semantic 

to process a BNF- 
token group and 

the status indicator. 


ARIXPAZ/ARIXPAS 


Process a line 
of BNF.* 


ARIXPAQ ie 
eee 


ARIXEER 


ARICHSG 
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If you do not have a basic understanding of the Op Tree 
and/or BNF, you should review this section and the 
subsection "Op Tree’ in "Data Areas" of Volume 2, 


also knoun by 


Note: The Op Tree 
is explained in 
detail in "Data 
Areas" in 

Volume 2, 


is explained on 


Upon return from 
the Parser, 
ARIXEPP builds the 
NANELIST from 
IVNAMES/OVNANES » 
built by the Parser, 
and the DCLLIST, 
built by the Pre- 
processor, See 
"Data Areas" in 
Volume 2 for 

more detail. 


<—s[anixeer | 


3 Map production number to a semantic 
routine entry point and call it. 
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ARICWSF * The BNF Syntax is given on page 37. 


ARIXSCH 


ARIXETR 


ARIXSXD 


iia] ARIYEL! 
a 


\a/ ARIXSCF 
OPTIMIZER (Via RDS Executive) 


Figure 10. RDS Parser Module Flow 
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PARSER MODULE/MACRO STRUCTURE 


ARIXPAL ARTXPAS 


Include ARIBPAIL 
® Call ARIXPAS to initialize 
and address parse tables 

® Include ARIBPAM (parse 
table mappings) 

© Call ARIXPAO for the semantic 

routine call 


® Include ARIBPAR (parse tables) 
® Return address of parse tables 
to ARIXPAL. 


ARIXPAG 


Include ARIBPA! 

® Include ARIBPRD {maps produc- 
tion nuaber to production 
hanes) 

® ARIBPDL macros to generate 
parser senantic routine linkage 
to call the proper entry points 

® ARIBPD2 macros to generate 

entry point tables 

Call ARIXPA2 or ARIXPA3 


ARIXPA2/ARIXPAS 


© Include ARIBPAL 
® Include ARIBPA2 (common 
subroutines). 
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PARSER GENERATION PARSER EXECUTION 


\ 
I 
! 
BNF Description ! 
of SQL/DS I 
commands i 
| 
| 
| 
| 


Semantic 
Routine 
Selector 


Parse Tables 


Parse Stack 


SQL Statement Tokenizer 


SQL/Data System Logic, Volune } Licensed Material - Property of IBM 


PARSER MAIN STACK ADDRESSING 


The following description concerns the senantic routines. slots for halfvord data (TPTRI and TPTRZ), one for 

Lover level semantic routines save data in main stack character strings (CHARLEN (length) and CHARPTR (pointer to 
entries for higher level semantic routines. the string}) etc. 

Each stack entry is made up of a set of named storage slots The following diagram shous the format of the aain stack 
for saving data of different types. There are a couple of entry: 


STATESTK 
TPTRi TPTR2 
AAAAMAAAAASAAS | CHARLEN CHARPTR 


~ One stack entry - Contains data related to one BNF token. Used when 
processing another higher level of BNF. 


At the tine of processing a line of BNF» the currently 
addressable stack elements correspond to the number 
of BNF tokens; for example: 


ML Xl4l1 X142 XLe3 X144 X145 
GRANT <AUTH> ON <nane> TO <user-list> 


x1 MLel X1+2 
<select-clause> ::= <select> <sel-expr-list> <into-from> 


9 | Xlel X1e2 X1+3 
| <select> DISTINCT <select-expr=list> <into-from> 


The rain stack entries are addressed via the index ‘Xl’. The second line of BNF uses the folloving indexes: 
The current toprost entry that applies to a particular 
semantic routine its addressed with the Xl index. The next x1 ~ <select> 
stack entry is addressed with Kiel, ete. For each semantic X1#l - BISTINCT 
routine, the pertinent stack entries correspond to each BNF X142 - <sel-expr-list> 
token. For example, take the two BNF lines: X1+3 - <into-from> 
i. <sel-clause> ::= <select> <sel-expr-list> <into-from> Therefore: the senantic routine for the second line: for 
é. | <select> DISTINCT <sel-expr-List> <into-fron> example, would be able to address the results of the 
lover-level semantic routine, <into-from>, by addressing the 
The semantic routine for the first line uses the folloving stack entry using X14¢3 as an index. Let's say, for exanple, 
indexes for the specified BNF tokens: that the semantic routine for <into-from> stored an Op Tree 
node index in TPTR1 of its toprost stack entry (TPTRI(X1)). 
RL - <select> This same Op Tree node index would he available to the 
Xltlo- <sel-expr-list> semantic routine associated with the second line of BNF in 
X1t2 - <into-from> 
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our example above by using the addressing: TPTRI{X1+3). A 
semantic routine should pass results and data to 
higher-level semantic routines (those higher up in the BNF 
txvee) by storing then in the current topmost stack entry. 
For example; if TIPTR! is the stack field used, then 
TPTRi(X1i) is used (the stack entries associated wit 
YPTRICXI4+2), TPTRECX14+2), etc» are lost at the conpietion of 
the current semantic routine, and only the stack entry 
associated with Xl is preserved). 


The following general explanation has to do with BNF lines 
that describe a list of items. For example, for table names 
in the ‘from list, the BNF takes the folloving general 
form: 
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= <itenm> 
| <item-list> » <iter> 


vy 
” 
a 


<item-list 


This pair of BNF lines indicates that there is a list called 
<item-list> and that it may have one or more entries», each 
defined by the name <item>. Since there are tuo BNF lines 
for describing a list» there are also tuo semantic routines 
for handling it. The first routine is executed only for the 
first for only) element in the list. The second semantic 
routine is executed for each element in the list after the 
first one. YVypically, the first semantic routine will 
initialize processing, and the second one will continue it. 
For example, the first might move "1" to a counter (count 
the nunber of items) and the second sight add "I"' to the 
counter. 
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BNF CBACKUS NORMAL FORM) SYNTAX 


On the following pages is a simplified form of BNF syntax. 
It is used heavily in the Parser by the senantic routines 
ARIXPA2 and ARIXPAS. See the processing description on page 
31. 


The folloving description is an explanation and an example 
of how to read the syntax: 


The items enclosed in the pairs of characters "<"' and ">" 
are variables. Items in capital letters, numbers) or 
punctuation (including parentheses) are exact replacements. 


You will always find a variable on the left side of "“::=". 
The “::=" has the meaning “is to be replaced by". For each 
variable on the right side of "::=", look further in the 


list on the left side of "::=" for that sone variable. There 
it may give exact replacements, or it may contain still 
other variables. Continue in this fashion until all 
replacements have been made. Follow this next sequence as 
an example (the line numbers refer to the BHF numbers at the 


left of the page): ‘Line 1 says that the “goal is to be 
replaced by a “statenment™. "“<statement>" starts at Iine 2, 
which says that “statenent" is to be replaced by either the 
variable “query™, or "INSERT INTO ...">» or "DELETE FROM 
vee", or UPDATE ...", etc (the replacenents continue down to 
line 34). Let's choose "<query>?" fue will do a simple 
query). 


Go to line 45. Line 45 though line 48 shou the replacenents 
for "query". Let's choose "<query-expr>", which appears on 
the left of “::="" at line 65. There ve see 

“Cquery~expr> r= <query-block>" (another replacenent 
follows on the next Line, but let's use “<query-block>"}. 


Lines 68 through 75 show the possible replacements for 
“query-block"; let's choose "“<sel-clause>", and go to lines 
76 though 61 te see its replacenents. Now that we've gotten 
this far, let's look at the rest graphically, taking only 
the indicated replacenent ilast one of the list shovn): 


76 <sel-clause> ::= SELECT-KEYHO <sel-expr-list> <into-fronm> 
| 


7? SELECT-KEYND ALL <sel-expr-list> <into-from> 
78 | SELECT-KEYWO DISTINCT <sel-expr-list> <into-from> 
79 | SELECT-KEYWD * <into-from> 


Be SELECT-KEYWOD ::= SELECT 89 


91 Shost-list?> i::= <oname> 


93 <omame> ::= +: <identifier> 99 


Replace with a valid 


<inte-from> ::= INTO <host-list> FROM <from-list> 


97 “<from-list> :1:= <table-var-name> 


<table-var-narne? ::= <rnane> 


188 <rname> ::= <identifier> 


identifier (<identifier> 


does not appear to the left 
of "::=''}, Let's choose 


*:OURFLO". 


Replace with a valid 
identifier (<identifier> 
does not appear to the left 
of "s:="). Let's choose 
“THAME. 


Now taking all the replacements from beginning to end, ve finish with the statenent: 


SELECT * INTO :QURFLD FROM ;TNANME 
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Following is the current BNF for the RDS Parser 


ENTRY POINTS 


CARIXPA2/ARTXPA3) BNF = 

GOALOLO 1 <goal> ::= <statement> 3; 

STMNTOL 2 <statement> ::= EXPLAIN <explain-spec> FOR <access-strt> 

STMNTO2 3 | EXPLAIN <explain-spec> SET <identifier> = <integer-spec> FOR <access-stat> 
STMNTOS 4 | <access-stat> 

STHNTO4 5 | ACQUIRE <dbs-type> DBSPACE NAMED <name> 

STMNTOS 6 | ACQUIRE <dbs~type> DBSPACE NAMED <name> ( <dbs-parrs> ) 
STHNTO6 7 J CREATE TABLE <name> { <field-defn-ist> ) 

STHNTO? 8 | CREATE TABLE <name> ( <field-defn-Ist> ? IN <nane> 

STHNTOS 9 | ALTER TABLE <name> ADD <field-defn> 

STHNTO9 10 | ALTER DBSPACE <name> ( <change-s~lst> } 

STMNT10 il |} CREATE INDEX <indef-clause> 

STMNT 11 12 } CREATE UNIQUE INDEX <indef~clause> 

STMNT12 i3 | CREATE VIEW <receiver> AS <query~expr> 

STMNTIS 14 | DROP <system-entity> <pnane> 

STHNTI4 15 | COMMENT ON <systez-entity> <name> IS <quot-string> 

STMNTI5 16 | COMMENT ON COLUMN <identifier> . <identifier> I5 <quot-string> 
STMNT16 17 | COMMENT ON COLUMN <identifier> . <identifier> . <identifier> IS <quot-string> 
STMNT1L7 18 | CREATE SYNONYM <identifier> FOR <identifier> . <identifier> 
STHNTi8 19 | GRANT <auth> ON <nane> TO <userorpu-list> 

STMNT19 20 | GRANT <auth> ON <name> TO <userorpw-list> MITH GRANT OPTION 
STMNT 20 21 1 GRANT <special-priv> TO <userorpw-list> 

STMNT2! 22 ] GRANT <special-priv> TO <userorpu~list> IDENTIFIED BY <userorpu-list> 
STHNTZ2 23 ] REVOKE <auth> ON <name> FROM <userorpw-list> 

STHNT23 24 | REVOKE <special-priv> FROM <userorpy-list> 

STMNT24 25 } COMMIT NORK 

STMNT25 26 } COMMIT WORK RELEASE 

STHNT26 27 | ROLLBACK WORK 

STMNT27 28 | ROLLBACK WORK RELEASE 

STMNT28 29 } LOCK TABLE <name> IN <node~setting> MODE 

STMNT29 30 | LOCK DBSPACE <name> IN <mode-Setting> MODE 

STMNT30 31 | UPDATE STATISTICS FOR TABLE <nare> 

STMNTSi 32 | UPDATE ALL STATISTICS FOR TABLE <name> 

STMNT32 33 | UPDATE STATISTICS FOR DBSPACE <name> 

STMNT33 34 | UPDATE AL“ STATISTICS FOR DBSPACE <name> 

EXITOL 35 <access-stmt> ::> <query> 

ACSTHO2 36 ] INSERT INTO <receiver> <insert-spec> 

ACSTMOS 37 | DELETE FROM <table-var-name> 

ACSTMO4 38 } DELETE FROM <table-var-nane> <where-clause> 

ACSTMOS 39 | UPDATE <table-var-name> SET <set-clause-ist> 

ACSTNO6 40 | UPDATE <table-var-name> SET <set-clause~ist> <wvhere~clause> 
EXITO1L 41 <explain-spec> ::= <explain-list> 

EXPSPC2 42 ALL 

EXPLSTL 43 <explain-list> ::= <Cidentifier> 

EXPLST2 44 | EXPLAIN-LIST , <identifier> 

QUERYOLOD 45 <query> ::= <query-expr> 

QUERY020 46 | <query-expr> <order-by> <ord-spec-list> 

QUERYO30 47 | <query-expr> FOR UPDATE OF <field-nase-lst> 

QUERY 049 48 | <query-expr> order-by <ord-spec-list> FOR UPDATE OF <field-nane-ist> 
ORDBYO1] 49 <ordex-by> ::= ORDER BY 


38 SQL/Data Syster Logic, Volune ! Licensed Material - Property of IBM 


EXITOL 
EXITO! 
SUBTBO1L 
FLONLYTO? 
FLONLTO2 
INSPECO] 
INSPECOS 
INSPECOS 
WHERCLO} 
WHERCLOZ 
SCLLSTOL 
SCLLSTOZ 
SETCLSO} 
SETCLSO2 
SETCLSO% 
EXITOL 
QUEEXPO02 
QUEEXPOS 
QUEBLKO) 
QUEBLKG2 
QUEBLKOS 
QUEBLKOS 
QUEBLKOS 
QUEBLK06 
QUEBLKO7 
QUEBLKOS 
SELCLSOL 
SELCLSO2 
SELCLSO3 
SELELS04¢ 
SELCLSO5 
SELCLSOG6 
SELECTOL 
HAVINGO) 
SLEFRLO] 
SLEPRLOS 
SELEXPG) 
SELEXPOZ 
SELEXPO3 
INTFREAOS 
INTFRAGS 
HSTLSTOL 
RSTLSTO2 
ONAMED LO 
ONSHED 26 
HNAMEOLA 
HNAMEQ2O 
FRMLSTOL 
FRNLSTO0e 
TABY NIM I 
TABYNNG2 
FLOSPLOL 
FLDSPLO2 
COLOSLO) 


99 
106 
kal 
1a2 
103 


<receiver> :: 


= <rnarne> 


| <subtab> 
<subtab> ::= <rname> ( <field-nane~Ist> 3} 
<field-name-Ist> ::= <identifier> 


<insert-spec> 


<uhere-clause 


| <field-name-Ist> , <identifier> 
z3= <query-block> 

| <values> ( <entry-list> } 

| <walues> ( <entry> ) 

> :3= WHERE <hoolean> 

| WHERE CURRENT OF <cnanme> 


<set-clause-Ist> ::= <set-clause> 


<set-clause> 


<query-expr> 


<query-block> 


<sel-clause> 


“<select-keyud 
shaving-keyud 
<sel-expr-Ist 


<sel-expr> 3: 


<into-from> 
“host-list> 
Soname> 2:5 
<hname> ;:= 


<from-List> 


| <set-clause-Ist> ,» <set-clause> 
:t= <identifier> = <expr> 
| <identifier> = ( <query-block> } 
| <identifier> = NULL 
233 <query-block> 
| <query-expr> UNION <query-block> 
| ( <query-expr> ) 
z:= <sel-clause> 
| <sel-clause> WHERE <boolean> 
| <sel-clause> GROUP BY <field-spec-Ist> 
| <sel-clause> <having-keyud> <boolean> 


| <sel-clause> GROUP BY <field-spec-lst> <having-keywd> <boolean> 
| <sel-clause> WHERE <bhoolean> GROUP BY <field-spec-lst> 
| <sel-clause> WHERE <boolean> <having-keyud> <boolean> 


| <sel-clause> WHERE <boolean> GROUP BY <field-spec-Ist> <having-keywd> <boolean> 


r= <select-keyud> <sel-expr-lIst> <into-from> 
<select-keyud> ALL <sel-expr-Ist> <into-from> 


<select-keyvd> * <into-from> 
<select-keyud> ALL * <into-from> 
| <select-keywd> DISTINCT # <into-fron> 
> 223 SELECT 
> 2:5 HAVING 
> a= <sel-expr> 
| <sel-expr-lst> » <sel-expr> 
= <expr> 
| <identifier> . * 
| <identifier> , <identifier> . * 
t 
| 


1 
| <select-keyud> DISTINCT <sel-expr-Ist> <into-from> 
| 
| 


= INTO <host-list> FROM “from-list 
FROM <from-list> 


ts= “oname> 


| shost-List> , <oname> 
<identifier> 

| : <identifier> : <identifier> 
<identifier> 

| : <identifier> . : <identifier> 


tr= “<table-var-nare> 


| <from-list> ,» <table-var-nane> 


<table-var-naome> ::= <rname> 


| <rnane> <identifier> 


<field-spec-Ist> ::= <field-spec> 


| <field-spec-Ist> , <field-spec> 


<col-ord-s-ist? ::= “col-ord-spec> 
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COLOSLO2 104 | <col-ord-s-Ist> » <col-ord-spec> 


ORDSLO] 105 <ord-spec-list> :1:= <ord-spec> 

ORDSLO2 106 | <ord-spec-list> » <ord-spec> 

EXITO] 107 <boolean> ::= <boolean~-tera> 

BOOLO2 108 1 <boolean> OR <hoolean-term> 

EXITOL 109 <boolean-term> ::= <boolean-factor> 

BOLTMO2 110 | <boolean-tera> AND <boolean-factor> 
EXITOl dil <boolean-factor> ::= <boolean-primry> 

BOOLFCO2 liz | NOT <boolean-priary> 

EXITOL 113 <boolean-primry> ::= <predicate> 

BOOLPROZ 114 | € <boolean> ) 

PREDCTO1 115 <predicate> :3:= <expr> <comparison> <expr> 
PREDCTO2 116 | <expr> BETWEEN <expr> AND <expr> 
PREDCTO3 117 | <expr> NOY BETWEEN <expr> AND <expr> 
PREDCT04 118 | <primary> IS NULL 

PREDCTOS 119 | <primary> IS NOT NULL 

PREDCTO6 120 | <expr> LIKE <constant> 

PREDCTO7 12! | <expr> NOT LIKE <constant> 

PREDCT08 122 | <expr> <comparison> ( <entry-list> } 
PREDCTO9 123 I <expr> <comparison> ( <query-expr> } 
PREDCTILO 124 i EXISTS ( <query-expr> ) 

EXITOL 125 <expr> r:= <arith-tern> 

EXPRO20 126 | <expr> <add-op> <arith-term> 

EXITO! 127 <arith-term> 3:2 <arith-factor> 

ARTRMO2 128 | <arith-tern> <mult-op> <arith-factor> 
EXITO! 1e9 <arith-factor> ::= <primary> 

ARFACTO2 130 ! <add-op> <primary> 

PRINARO] 131 <primary> ::= <field-spec> 

EXITO] 132 | <set-fn> 

EXITOL 133 | <constant> 

PRIMARO4 134 } € <expr> ) 

FLDSPCO1 135 <field-spec> ::5 <identifier> 

FLDSPCO2 136 | <identifier> . <identifier> 
FLDSPCO3 137 | <identifier> . <identifier> . <identifier> 
COLOSPO02 138 <col-ord-spec> ::= <field-spec> 

COLOSPO2 139 | <field-spec> ASC 

COLOSPO3 140 | <field-spec> DESC 

oRDSPCO2 141 <ord-spec> ::= <integer-spec> 

ORDSPCOZ 142 { <integer-spec> ASC 

ORDSPCO3 143 | <integer-spec> DESC 

ORDSPCO4 144 | <col-ord-spec> 

EXITO} 145 <comparison> ::= <comp> 

COMPARO2 146 | <comp> ALL 

COHMPAROS 147 | <comp> ANY 

COHPAROG 148 | IN 

COMPAROS 149 | NOT IN 

COMPO10 150 <comp> 3:5 = 

COMPO20 151 pas 

COMP030 152 | > 

COMP040 153 | >= 

COMP050 154 '< 

COMP060 155 [<5 

ADDOPOI 156 <add-op> 2:5 + 

ADDOPO2 157 | - 
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MULTOPO! 
MULTOPG2 
SETFNOL 
SETFNO2 
SETFNOS 
SETFNOS 
SETFNOS 
SETFNGG 
SETFNO7 
ARGOLO 
ARGO2Z0 
ARGO30 
ENTLST02 
ENTLST02 
EXITOL 
ENTRY020 
ENTRYC30 
CNSTNTO2 
CNSTNTO2 
CNSTNTOS 
CNSTNTO4 
CNSTNTOS 
CNSTNTOS 
CNSTNTO2 
CNSTNTO2 
PNAMEOLO 
EXITO) 
NAHEOLO 
NAHEO30 
NAMEO30 
RNAHECLO 
RNAMEOS0 
RNAMEO30 
CNAMEQLO 
INTEGROI 
OBSTYPO) 
OBSTYPO2 
EXITOL 
EXITOL 
DESSPCO) 
DBSSPCO2 
OBSSPCOS 
DBSSPC04 
DBSSPCOS 
DBSSPCO6 
LOCKO] 
Lockgeé 
LOCKOS 
FOFLSTOL 
FOFLST02 
FLODFNOL 
FLODFNO2 
TYPEGLO 
TYPEOZO 


<mult-op> <s:= # 

17 
<set-fn> i:5 AVG ( <arg> } 

} HAX ( <arg> ) 
HIN ( <axrg> } 


| <identifier> ( <arg> ?} 
<arg> i1:= <expr> 

| DISTINCT <expr> 

| ALL <expr> 
Sentry-List> ::= <entry> , <entry> 

| <entry-list> , <entry> 
<entry> ::= <constant> 
<add-op> <number> 
NULL 
<quot-string> 
<number> 
: <identifier> 


<constant> i: 


USER 


> 


<graph-string> 
<hex-string> 
<pname> r:= <hnane> 

| <name> 
<name> r31= “<identifier> 


| <identifier> . <identifier> 


] PUBLIC . <identifier> 
<ename> ::= <identifier> 


| <identifier> . <identifier> 


! PUBLIC , <identifier> 
<cname> 1:5 <identifier> 
<integer-spec> ::5 <nuaber> 


<dbs-type> ::= PUBLIC 
| PRIVATE 
<dbs-parms> ::= <dbs-spec> 


| <dhs-parms> » <dbs-spec> 

<dbs-spec> ::= NHEADER = <integer-spec> 
| PAGES = <integer-spec> 
| PCTINDEX = <integer-spec> 
| PCTFREE = <integer-spec> 
} LOCK = <lock-spec> 

| STORPOOL = <inteyer-spec> 

+= DBSPACE 

PAGE 
| ROW 
<field-defn-lst> ::= <field-defn> 


<lock-spec> : 


| <field-defn-Ist> , <field-defn> 


<field-defn> ::= <identifier> <type> 


| <identifier> <type> NOT NULL 


<type> ::= char ( <integer-spec> } 
| VARCHAR { <integer-spec> ) 
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TYPEO30 212 | LONG VARCHAR 

TYPEO40 213 | INTEGER 

TYPEOSO 214 | SMALLINT 

TYPE060 215 | DECIMAL 

TYPEO70 216 | DECIMAL ( <integer-spec> ) 
TYPEO8O 217 | DECIMAL ( <integer-spec> » <integer-spec> } 
TYPEO90 218 | FLOAT 

TYPEILOO 219 | GRAPHIC ( <integer-spee> ) 
TYPEL1O 220 | VARGRAPHIC ( <integer-spec> ) 
TYPE120 221 8 | LONG VARGRAPHIC 

EXITO] 222 <change-s-Ist> ::= <change-spee> 

EXITO1 223 | <change-s-Ist> , <change-spec> 
CHSPECO] 224 <change-spee> ::= PCTFREE = <integer-spec> 
CHSPECO2 225 | LOCK = <lock-spec> 

INDFCLO) 226 <indef-clause> ::= <name> ON <name> ( <col-ord-s-lIst> ) 
INDFCLO2 227 | <name> ON <name> ( <col-ord-s-Ist> }) PCTFREE = <integer-spec> 
SYSENTOL 228 <system-entity> ::= TABLE 

SYSENTO2 229 | VIEW 

SYSENTO3 230 1 PROGRAM 

SYSENTO4 231 1 INDEX 

SYSENTOS 232 | DBSPACE 

-SYSENTO6 233 | SYNONYM 

EXITO} 234 <auth> ::= <operation-list> 

AUTE030 235 | ALL PRIVILEGES 

AUTHO30 236 | ALL 

USRPL502 237 <userorpu-list> ::= PUBLIC 

USRPLSO2 238 | <identifier> 

USRPLSO3 239 | <userorpu-list> , <identifier> 
OPLISTOL 240 <operation-list> ::= <operation> 

OPLISTO2 241 | <operation-list> , <operation> 
OPERATO] 242 <operation> ::= SELECT 

OPERATO2 243 | INSERT 

OFERATO3 244 | DELETE 

OPERATOS 245 | UPDATE 

OPERATOS 246 | UPDATE ( <field-name-ist> ) 
OPERATO6 247 | ALTER 

OPERATO7 248 | INDEX 

OPERATOS 249 | RUN 

SPPRIVO1 250 <special-priv> ::= DBA 

SPPRIVO2 251 | RESOURCE 

SPPRIVO3 252 ! CONNECT 

SPPRIVO4 253 | SCREDULE 

MODEO1 254 <mode-setting> ::= SHARE 

MODEG2 255 | EXCLUSIVE 
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OPTINIZER 


Essentially, the Optinizer perforas the following: 


+ 
2. 
3. 
4. 


5. 


Accunulates the names of tables and columns in internal tables. 

Looks up these names in the system catalogs and retrieves inforsation ahout thea. 
Does authorization and records dependencies, 

Composes any vieus, if present; into the Op Tree. 


Does type distribution and checking, analyzes predicates: and accunulates nore 
infornation in internal tables. 


Uses the information accumulated in steps 1-5 to make a plan for accessing each table 
and satisfying the predicates. It nodifies the Op Tree to express this plan to the 
Code Generator as ASL (Access Specification Language) {see Section 5 in Volume 2, “Op 
Tree Node Encodings" and "Descriptor Records" for the Op Tree and Descriptors). It 
also creates all DBSS calling structures necessary for the Code Generator to use in 
DBSS calls. 


Part of the input to the Optinizer is an Op Tree, such as in the following figure: 


Licensed Material ~- Property of IBN 


Methed of Operation 43 


EXAMPLES OF ASL CACCESS SPECIFICATION LANGUAGE) REPRESENTATIONS AS 
OUTPUT FROM THE OPTIMIZER 


Inplied in generating an access plan is a knowledge of what DBSS operations need to be 
performed to fulfill the user's SQL request. 


As part of the output of the Optimizer, the ASL generator builds all the DBSS linkage 
(parametric) structures in Block], the Space Block, that will be used in the generated 
code when issuing calls to DBSS. The typical call. to DBSS consists of an operation code 
and its necessary DBSS parametric or linkage structure. 


The majority of DBSS operations are those necessary to fulfill SQL Query, Update, Insert, 
and Delete requests. The D8S5S operators used for these requests are knouvn as ‘Operators 
on Rows and Scans". Tuo of the more common operators are ‘Open Scan‘ and ‘Next Row’. 
These vill be referred to in the follouing SQL. statenent ASL representations as the boxes 
labelled "OPEN' and 'NEXT'. They are pointed to out of the control block associated with 
a table, the control block being the Optinizer linkage to the Code Generator for DBSS 
operations against a table. 


The DBSS parametric or linkage structure used with operators on rovs and scans is referred 
to in DBSS documentation as "BASE". The BASE is a fixed-length structure, Contained 
uvithin that structure are three pointers of significance to our ASL representations: 


1. A pointer to a ‘DOMAINS’ structure (DONS), which describes the requested or subnitted 
fields. Each entry in the DOMAINS structure contains o pointer to the I/O areas used 
to retrieve/submit field values. These areas also reside in the Space Block. 


2. An optional pointer value to a 'KDOMAINS' (KDONS) structure, which describes « 
subnitted key for an index identified by other fields in BASE. A KDOHAINS entry 
contains a pointer to a data area in the Space Block. This data area contains the 
actual key value. 


3. An optional pointer value to = 'SARGS' structure, which is used toe provide search 
arguments used in OPEN and NEXT DBSS operations. Each search arguaent entry describes 
a rou-column nurber, a comparison operator, and a pointer to an input area (in the 
Space Block) for the actual column value. 


& aore detailed description of DBSS operators and parametric structures can be found in 
Section 6), Diagnostic Aids, under "DBSS Op Codes”. 
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1. JOIN BY METHOD {Nested Loops) 


Nodes for creation of LITTUP 


temporaries, if any —> | pointers via LOCDESCRIPS 
iit -—> to value slots associated 
> with DOMAINS for output 


LIT set | 
Sana | 
ba 
f oN 
FE: SELECT \ 
\ 
| Tl — residual 
Bq Ti-preds 
| reldescrip 
J2 --residual T2-preds S 
and join-preds N\ 
controlblik 
/ + 
/ ‘% 
rsibase rsibase 
reldescrip for open for next 
controlblk 
rsibase rsibase for next 
for open ¢ N 


BINOTABLE 


col — coldescrip 
» Lit — locdescrip 


From 
To 


4 ‘\ 
=. =. 
ae a 
ol pe 
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2. JOIN BY METHOD 2 (Sort-Merqe} 


Sq 
Nodes for creation of | | 


temporaries, if any. LITTUP 
If T2 must be sorted, >—_ | pointers via LOCDESCRIPS 
the sort is done here Lit-—> to value slots associated 
and T2 below is replaced : | > with DOMAINS for output 
by the sorted list. LIT —> | 
D 
/ | 
/ 
FE / 
\ / 
\ SEL 
BQ 
| residual Tl-preds 
T2————_——- residual 
| T2-preds and 
join preds reldescrip 
reldescrip 
eontrolblk 
“placeholder” f \ 
controlblk controlblk / \ 
7N | rsibase rsibase 
/ \ | for open for next 
rsibase rsibase rsibase 
for open for next for open 


domains ? 


joindescrip 


joinvalue LIT — locdescrip a] | 
outercol 


col — coldescrip 


innercol col — coldescrip i — 5 
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3. _UNCORRELATED SUBQUERY RETURNING SCALAR 


sq ———> _LITTUP SELECT ENAME FROM EMP 
/ | WHERE 
Z — LIT —| | SAL > 
Build Value 7 (SELECT AVG(SAL) 
BV ———""——"—"——-. $4 FROM EMF) 
ise / 
7 
de oq 
mares \ 
Ba ——> LITTUP 
B 
LIT ——_| | 
sel-list 
sel-list T (inner) 
Y (outer) 
reldescrip residual 
preds 
reldescrip residual 
preds 
controlblk 
7 N 
controlblk / s 
/ N rsibase rsibsse 
/ N for open for next 

rsibase rsibase 
fo open for next 
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4. UNCORRELATED SUBQUERY RETURNING SET 


SELECT NAME 
FROM EMP 
WHERE DNO IN 
SELECT DNO 
FROM DEPT 
WHERE LOC='DENVER’ 


“z 
Bind DBSPACE ¢ 
/ 
INSERT 
————— ee) | 


Bind OBSPACE 
CREATETEMP 


sQ ——> lit-tup 
aod 


t—____4 


seo ea 


rsibase 
acquires DBSFACE 


tenpblk 
T=temp sq / N 
| / > lit-tup rsibase rsibase 
reldescrip og | for INIT creates list 
\ lit 
controlblk BQ L 
4 “Lp 
rsibase Sel | 
for insert T=OEPT 
into list 
reldescrip residual 
preds on DEPT 
Dg - controlbik 
7 i. 
8g -—— rsibase rsibase 
¢ | for open for next 
sel-list 
T=EMP 
| L______ In 
7 ———————— | 
reldescrip col 
i | sai 
controlblk 4 
7 N coldescrip ¢ Lit-tup 
/ \ DQ | | 
rsibase rsibase \ 1it =|] 
Tor open for next " 
/ 
sel-list T=temp 
| 
aaa reldescrip 
control 
oe os 
rsibase for rsibase for 
open list next in list 
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5. CORRELATED SUBQUERY 


SQ SELECT NAME 
Nodes for ereation L—>+ lit-tup FROM EMP X 
of temporaries, / WHERE SAL > 
if any. ~--~--9 1it-— SELECT AVG(SAL}) 
FROM EMP 
WHERE DNO=X.DNO 
og 
\ 
\ 
BQ 
J 
A 
sel-list T (outer) 
reldescript comparison 
predicate 
7 
controlblk é 
¢ \ col a aaa $ql 
7 \ | /U—1lit-tup 
rsibase rsibase ! / | 
for open for next coldescrip dq lit —{ | 
\ 
| \ 
l BQ 
| / 
| f, 
| sel-list 
| T (inner) 
1 
| 
l reldescrip residual 
| preds 
| controlblk 
| / \ 
! rsibase rsibase 
eee eee ane e ee }----------J for open for next 


col-coldescrip 
lit 
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6. GROUP BY HAVING 


Nodes to sort table 


SELECT DNO 
FROM EMP 


on grouper coluans | 6ROUS BY DNO 
if no natching index — > lit HAN ING AVG(SAL) 
+AVGEl COMM )>7 
Da 
\ 
\ 
BQ Conditional bind 
7 table for grouper 
sel-list / | Fron - 
augmented by 68 To 
set-fns in 
HAVING clause T 
/ on 
/ | HAVING 
set-fn residu:i predicates 
7 \ reldescrip WHER” are always 
7 \ prr ..cates residual 
set-fn set-fn-descrip > coldescrip 
\ controlblk 7 N 
set-fn-descrip 7 \ + lit 
C4 7 \ a% a f 
rsibase rsibase lit Lit 
for open for next | 
| 
domains | 
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There are five tables (arrays) of significant importance to the Optimizer. (These are the 
tables mentioned on page 43 as “internal tables”.) Pertinent information is accumulated 
and stored in these tables during Pass 1 and Puss 2 scuns of the Op Tree nodes by the 
Optinizer. These tables are used in determining path selection and generating ASL (Access 
Specification Language) in the later stages of optinization. Each table has a pointer to 
it, along vith its current element index, in the OPTAREA. The table dimensions are 
determined by macro variables vhose values are assigned in the included code ARIBNUM. The 
tables and their associated macro dimension variables are: 


Table Array ‘TBA’ MAX@TAB 110) 

Column Array *CLA* MAXQCOL (255) 
Predicate Array *PDA’ HAXPRED ( 25*MAXQ) 
Index Array ‘IDX’ MAXING [1O#MAXQTAB) 
Query Array *QAR' MAXQ (8) 


An overview of the major data areas and control blocks follows (for the data areas and 
control blocks, see the data areas section in Volume 2). 
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MAJOR DATA AREAS AND CONTROL 


CLA 


ee a ee rr 


Fy 
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--+~-- RDAOPT 


un 
o>) 
~- 
ie) 
» 


| SQLCODE 


ROATRACO (Optinizer 
trace level) 


SQL codes 
placed here 


BLOCKS USED BY THE OPTIMIZER 


‘| Space Block (SPACEBLK) 


“Seratch Pad" 
for DBSS calling 
structures and 


RDCCATS 


RDCPATCH] 


Common RDS 
Patch Area 


/ 


\ Optinizer 
input 


output 
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OPTIMIZER RETURN CODES TO EXECUTIVES 


11k 
112 
113 
-20% 


Successful return code for updatable cursor query 
Successful return code 

Successful return code for deletable cursor query 
Indicates table not found. During PREP, this causes a 
PARSESECT to be created by the executives. During run 
tine, it is considered an error. 


a 
-551 >- These indicate that the necessary authorization does 


~552 | 


not exist. During PREP, this causes a PARSESECT to be 
created by the executives. DOuring run time; it is 
considered to be an error. 


Other negative SQLCODES - Are considered errors. 


Note: 


Any negative SQLCODE returned during the PREP phase will 


cause the CHKMODE bit to be set on, which neans that for 


subsequent SQL commands in the program, the Optimizer vill 
process the statement only as far as catalog look-up (that 
is: no path selection will be performed). 
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OPTIMIZER: GENERAL FUNCTIONS ~ DETAIL 


54 


ARIXOOP (Called by ARIXEPP) 


Initialize OPTAREA structure. 
If no root node 


Set ROOTTYPE = PTREENT (root of 
PTREE). If run-time and root is 
for BEGIN, COMMIT, or RESTORE 


If not run-time and ROOTTYPE is 
BEGINNOD, COMITNOD, ox CHKPTNOD, 
indicate success (that is,» 
essentially ignore then} 

and ————____—_—_——> RETEXIT? 


If ROOTTYPE = RESTONOD: 
® If PTREEPL -= TRANCODE 
® If PTREEP! = TRANCODE, 

indicate success and 


Initialize more OPTAREA 
variables 
If not successful, —> RETEXIT! 


Set up authorization structures. 
If PREP tine, prepare to record 
program dependencies. 


CREATE VIEW 
page 67 


INSERT, 
DELETE, 


UFDATE 
rage 55 


QUERY CREATE TABLE 
page 62 page 67 


SQl/Data Systen Logic, Volume 1 


ACQUIRE DBSPACE 
page 68 


1 For Labels QUIT, QUITOK, and RETEXIT, see page 77. 


e Build SQLCA? 


| ARIXEER bo RETEXIT# 


rc Build SQLCA 


| ARIXEER . RETEXIY® 


2 For all calls to ARIXEER, 
build SQLCA if error encountered. 


Build SQLCA 


ARIXEER 
RETEXIT? 


Allocate coamon Optimizer storage and place the addresses in 


OPTAREA (all Optimizer tables) 
ARIXOAF 


ARICWSG — Get storage 
(If storage cannot be obtained) ARIXEER - Build SQiCA 


4 
ALTER TABLE 


LOCK 
page 7) 


DEFINE SYNONYM 
page 70 


COMMENT 
page 69 


UPDATE STATISTICS 
page 73 


DROP CHANGE DBSPACE 
page 70 page 73 


page 76 


GRANT/REVOKE 
page 76 


CREATE INDEX 
page 74 


Licensed Material - Property of IBM 


ARIXOOP (continued) 1 For labels QUIT, QUITOK, and RETEXIT, see page 77. 


INSERT, DELETE, or UPDATE 
(PTREENT = INSRTNOD/UPDTENOD/ 
DELETNOO) 


Allocate new OP 


If necessary to expand OP: 


Hay Call Function: 
If SQLERRDI~=0 —> RETEXIT* 


ARIXEAB — Allocate OP, space blocks, and new OP 
Fill structure elenents of Query Array 


ARIXOFQ 


May Cail Function: 

ARIXOCU — Cleanup (free CATCOL blocks) 
ARIXEER — Build SQLCA 

Get TABLENOD and make Table Array entry 


If SQLERRD1~=0 —> RETEXIT# 


Update CURENQNO and call ARIXOFT May Call Funetion: 
If SQLERRD1+=0 —> RETEXIT? ARIXOCU - Cleanup (free CATCOL blocks) 


ARIXOUS - Check synonym (no creator specified) 
ARIXEER — Build SQLCA 


If PREP time, initialize for 
recording program dependen- 
cies on author's rights on 
table being modified. 


For creator = ‘SYSTEM ‘' and 

ROOTTYPE for INSERT/DELETE: 

a. If table is SYSCATALOG 
and DELETE attenpted 


Build SQLCA 
ARIXEER quit! 


i 


Check authorization 
b. For other catalog tables, 


call } ARIXAO? 4 May Call Function: 
Y€ SQLERRDI-=0 — quit? 


ARIXEER - Issues error aessage [known cause) 
ARIXECK — Issues error message lunknown cause) 
ARIXSCF -— Converts fullword into characters 
ARIXSCH — Converts halfuord into characters 
ARIXSLN ~ Calculates length of characters string 
ARIXEDB — Linkage to DBSS 


If user is not DBA 
and ———> quit? 
Else set AUTHRES = 'D’. 


ARIXSCN | Concatenate character strings used as message text tokens 


ARIXEER | Build SQLCA 
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ARIXOCP {continued} 


56 


ROOTTYPE = INSRTNCO: =——+ 
If semantics check/catalog 
lookup or if SQLERRDI += 
SUCCESS —> RETEXIT?; else 
go —> QUITOK? 


Call ARIXO01 if EXPLAIN 
requested 


ROOTTYPE = UPDTENOD: 
If SQLERRD1~=0 —> RETEXIT? 


2 For labels QUIT, QUITOK, and RETEXIT, see page 77. 


Handle SQL INSERT requests 


ARIXOIN May Cali Function: 
ARIXEER ~ Build SQLCA 
ARIXOCU — Cleanup (free CATCOL blocks) 
ARYXOOM ~ Acquire DOMAINS control block 
ARIXOFR ~ Create a DSSS linkage structure 

in SPACEBLK 
ARIXOCA - Look up table information in SYSCATALOG 
ARTXOCK — Look up each column in SYSCOLUMNS 
ARYTXA02 — Check authority 
ARIXA06 — Grant authority 
ARIXOSC -— Scan Table Array looking for SELECTAUTH 
ARIXOLF ~ Scan Column Array for long fields 
ARIXONV ~ Expand a SELECT ® 
ARIXOVC - Compose a view into the Op Tree 
ARIXOGB - Scan Query Array for blocks vith GROUP 
BY or SETFN 
Set up a control bleck and chain to OP 
Process SELECT-list (two passes) 
Query processor entry sodule 
Second pass query processor 
ARIXOGP ~ If of subquery form, find Optimizer path 
(Note: See page 76 for path selection/ASL generation. ) 
ARIXOFF — Fill in DOMFLDPT for INSERT ox UPDATE 
ARIXSCH — Convert from halfvord to character 
AREXSCN — Concatenate character strings used as 

message text tokens 
Process SET-clause list 


ARIXOD1 


ARIXOCT - 
ARIXOSL —- 
ARIXOQI ~— 
ARYXOG2 = 


ARIXOST 


May Cali Function: 
ARIXEER — Build SQtca 
ARIXOFC ~ Handle Celumn Array entries 


f 


— ARIXOFF 
ARIX00S 
ARIXOCU 
UPDATE/DELETE: 
@ If WHERE tree 
not CURNTNOD, 


and node is 
set TOPWHERE 


Fill in DOMFLDPT for INSERT and UPDATE 
SELECYT-list expression tracer 
Cleanup (free CATCOL blocks) 


Function: 

BQUERY node processor, first pass 
Cleanup (free CATCOL blocks) 

WHERE or HAVING expression walkthrough 
Examine WHERE predicate on first pass 
Build SQLCA 


= *i* to tell ARIXOB2 to Examine WHERE predicate 
call ARIXON2. 
@ Examine WHERE predicate | ARIXONI | May Cali 
If SQLERRD1-=0 —> RETEXIT? —> ARYXOBL = 
> ARIXOCU - 
— ARIXOEX — 
—> ARIXOWL =~ 
— ARIXEER — 
ARIXSCH - 
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Convert halfword to character 
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ARIXOOP (continued) 1 For labels QUIT, QUITOK, 


~ Do catalog lookup 
e If WHERE tree and CURNTNOD, 


and RETEXIT» see page 77. 


set CURNODE = 1 and ¢————— May Call Function: 
If SQLERRDI-=0 —> RETEXIT* ARIXEDB —- Linkage to DBSS 
ARIXEER — Build SQLCA 
ARIXECK — Build SQLCA for OBSS errors 
ARIXOIU — Look up usage information in SYSUSAGE 
ARIXOCU — Cleanup (free CATCOL biocks) 
ARIXSCN — Concatenate character strings used as 


Look up each coluan 


® Do column lookup: 


If SQLERRD1-=0 —> RETEXIT? ARIXOCK May Call 


ARIXOCU 
If creator not ‘SYSTEM ° 


ROOTTYPE = UPDTENCD, check 
UPDATE/DELETE authorization: 


ox if 


- Check authorization 


ARIXA02 


® ROOTYPE = DELETHOD: ¢——— 
~- If SQLERRDI-=0 ——-> quir? 


ARIXECK — 
ARIXSCF =~ 
ARIXSCH — 
ARIXSLN ~ 
» ARIXEDB — 
~ If CHKANSER = 'N' fuser not 
authorized), —————— 
then —> gurt! 


- If sk ea time and not check 


>| ARIXSLN 


c 


mode” and: 

a. CHKANSER =='G" set 
AUTHRES = 'Y'. 

b. CHKANSER = ‘G* or ‘Y¥' 


If SQLERRDL== 0 —> QurT* 
CHKANSER 7='G' or ‘¥* 
(user is DBA and delete 
dependency need not be 
recorded), set AUTHRES=D. 


Co 


censed Material - Property of IBM 


message text tokens 


in SYSCOLUMNS 


Function: 


ARICGET — Get storage 
ARYXEER — 
ARIXEDB — 
ARIXECK — 


Build SQ@LCA 

Linkage to DBSS 

Build SQLCA for DBSS errors 
Cleanup (free CATCOL blocks) 


Function: 

Build SQLCA 

Issue error message 
Convert fullvord to 
Convert halfword to 
Calculate length of 
Linkage to DBSS 


(unknown cause) 
character 
character 
character strings 


Caiculate length of character string 


oncatenate character strings used as message text tokens 


Build SQLCA 


ARIXA06 Record DELETE dependency in SYSTABAUTH 
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ARIXOOP (continued) 


® ROOTTYPE UPDTENOD : 
Check authorization for 
column to be updated by 
repeated calls to 
ARIXA02 
~ If SQLERRDI -= 0 Quit} 


Check authrorizatio 


ARIXA02 May Call 
ARIXEER 
ARIXECK 
ARIXSCF 
ARIXSCH 
ARIXSLN 


ARIXEDB 


- If CHKANSER = ‘N‘* (user 

does not have update 

authority on column), 
then —> QuIT? 

If PREP time and not check 

node” and: 

a. CHKANSER ~='G', set 


Concatenate c 


Build SQLCA 


AUTHRES = 'Y¥* (cannot 
grant RUN on program). 
b. CHKANSER = 'G or ‘Y!, 


record program depen- 
dency on UPDATEAUT 

If S@LERRD1~=0 QUIT? 
CHKANSER 7='G' or ‘Y', 
set AUTHRES = 'O' 


ARIXA06 May Call 
ARIXECK 


ARIXSRT 


ARICWSG 
ARICWSF 
ARTXA02 
ARIXSLWN 
ARIXSUT 
ARI XEDB 
Do authorization on 
If not CURNTNOD and WHERE Array looking 
tree exists: ~—? 

If SQLERRDI~=0 —> RETEXIT? 


ARIXOSC 


ARIXSCN 


3 "not check mode" means "if no errors encountered on any previ 


SQL statement in the user's progran" 
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n 


Fumetion: 

Build SQLCA 

- Issue error message 
Convert fullword to 
=- Convert halfvord to 
Calculate length of 
Linkage to DBSS 


funknoun cause? 
character 
character 
character strings 


haracter strings used as message text tokens 


Record GRANT in SYSCOLAUTH or SYSTABAUTH 


Function: 
Issue error message (unknoun cause) 
Restore logical unit of work in 
case of error 
- Get storage 
Free storage 
» Check authority 
- Calculate length of character strings 
- Get unique character string (tine stamp) 
Linkage to DBSS 
WHERE tree (scan Table 
for SELECTAUTH) 
Function: 
» Check authority 
Build SQLCA 
Record GRANT in tables 
Cleanup (free CATCOL blocks? 
Concatenate character strings used as 
message text tokens 


ous 
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ARIXOOP (continued) 


If CURNTNOD: 
® Check for CUDESCR (cursor 
descriptor). If none, <———— 
and —> Quit? 
® If cursor descriptor exists, 


ARIXEER | Build SQLCA 


call Hay Cali 
If-SQLERRO1-=0—> RETEXIT* ARIXEER — 
If successful, copy old ARIXEAB — 
block to new and fill in ARYIXOCU — 


program nane if currently 
blank. 


® STARNODE: 
Call ARIXONV to check for 
STARNODEs in UPDATE or 


Expand a SELECT # 


DELETE subqueries; May Call 
Lf SQLERRDI7=0-> RETEXIT? ARIXOFC — 
(Else STARNODE exists) ARIXOCU - 

ARIXEER - 
ARIXSCN = 


— eee 
If SQLERRD1+=0 -> RETEXIT? 


ARIXOVC 


Bay Cail 

ARICWNSF - 
ARIXEFB - 
ARIXELX - 
ARIXOCTA — 
ARIXOCK — 
ARIXGCU =- 
ARIXOEX — 
ARIXOFT — 
ARIXOOS — 
ARIXOSL — 
> ARIXOVI — 


ARIXOW1] — 
ARIXEER — 


ARIXOLF May Cal} 
If SQLERRD1-=0 -> RETEXIT? ARIXEER — 
: ARIXCBY — 
ARIXOCU — 
ARIXOFC — 
ARIXSCH ~ 


ARTXSCN ~ 


3 # 
SQL statement in the user's program" 
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1 For labels QUIT, QUITOK, and RETEXIT, see page 77. 


Increment size of current space block 


Function: 

Build SQLCA 

Allocate another space block 
Cleanup (free CATCOL blocks) 


Function: 

Handle Column Array entries 

Cleanup (free CATCOL blocks} 

Build SQLCA 

Concatenate character strings used as 
message text tokens 


Compose a view into the Op Tree 


Function: 
Free storage 
Free block 
Load access nodule 
Do catalog lookup 
Look up each column in SYSCOLUMNS 
Cleanup (free CATCOL blocks) 
WHERE or HAVING expression valkthrough 
Handle Table Array entries 
SELECT-list expression tracer 
Two passes of SELECT-list 
Copy subtree inte OP Tree ss 
part of view composition 
Examine WHERE predicate on first pass 
Build SQLCA 


Scan Column Array for long-field columns and to test 
long-field senantics 


Function: 

Build SQLCA 

Increment current space block by 
SIZEREQ bytes 

Cleanup (free CATCOL blocks) 

Handle Column Array entries 

Convert halfword to character 
Concatenate character strings used as 
message text tokens 


not check aode" means “if no errors encountered on any previous 
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ARIXOOP (continued) 
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2 For labels QUIT, QUITOK, 


Oi i Check Query Array for 


Call ARIXOD1 if EXPHAIN 
requested —» [aexxo01 | 
If doing only semantics 
check/catalog lookups set 
SQLERRDI SUCCESS for 
UPDATE or DELETE and 

go to -> quit? 


If processing CURNTNODE: Build an RSI FETCH str 


— ROOTYPE = UPDATE: ARIXOMF May Call 
If SQLERRD1~=0 —> RETEXIT# ARIXOCT ~ 
ARIXOFR = 

ARIXODM — 


Set up a control block 


- ROOTTYPE = DELETE: ARIXOCT May Cali 
If SQLERRD1-=0 —> RETEXIT! ARIXOBY - 
ARIXEER — 
ARIXOCU — 


Create a OBSS linkage 


If SQLERRD1~=0 —> RETEXIT® ARIXOFR May Call 


ARIXOBY —- 


ARIXEER - 
ARIXOCU = 
Acquire DOMAINS contro 
If long-field exists 
If SQLERRD1-=0 —> RETEXIT? 


ARIXODM May Call 


— > ARIXOBY - 


Check for Relocation Build SQLCA 
Directory. If missing or 
if overflou 

and —————> quit? 


Else update pointers. 


ARIXEER 


not check mode" seans "if no errors 
SQL statement in the user's progranr" 


encountered on any previous 


SQL/Data Systen Logic, Volure 2? 


and RETEXIT, see page 77. 


blocks that have a GROUP BY and/or SETFN 


—»[arrxose : May Cali Function: 
If SQLERRD1-=0 —> RETEXIT? —> ARIXEER - Build S@LCA 
ARIXOCU — Cleanup (frea CATCOL blocks) 


ucture 


Function: 

Set up a control block 

Set up a DOBSS linkage structure in 
SPACEBLK 

Acquire DOMAINS control block 


Functions 

Increment current space block by 
SIZEREG bytes 

Build SQLCA 

Cleanup (free CATCOL blocks} 
structure in SPACEBLK 


Function: 

Increnent current space block by 
SIZEREQ bytes 

Build SQLCA 

Cleanup (free CATCOL blocks? 

1 block 


Functions 
Increment current space block by 
SIZEREQ bytes 


ARIXOCU = Cleanup {free CATCOL blocks) 
ARIXEER — Build SQLCA 
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ARIXOOP (continued) ® For labels QUIT, QUITOK, and RETEXIT) see rage 77. 


— Hake SQ-DQ nodes and 
initialize PYREEFn's 
to put WHERE tree on 
TABLENOD (not for 
UPODATE/DELETE). 


Either no WHERE tree or 
WHERE tree not CURNTNOD: 
For both UFOATE and DELETE> 
get an access Fath to find 


Pass 2 - Type distribution and semantic checking 
qualifying rous. 


ARIXOB2 


Noy Call Function: 

ARIXOSL — Second pass of SELECT-list 

—> ARITXOH2 = Second pass of WHERE tree predicate 

ARXXOBY = Increment current space block by 
SIZEREQ bytes 

ARIXOCU - Cleanup (free CATCOL blocks) 

ARIXEER — Build SGLCA 

Page out Pass 1 and Pass 2 modules 


If SQLERRDiz=0 — RETEXIT! 


ARTSYSDF 


generate its ASL (See page 78 for path selection/ASL generation} 
May Call Functions 
ARIXOBY < Reserve Space in SPACEBLK 
ARIXSCH ~ Convert halfword to printable 
ARIXSCF -— Convert fulluord to printable 
BRIXSCN — Concatenate character strings used as 
message text tokens 
ARIXEER - Build SQLCA 
ARIXOCU — Cleanup (free CATCOL blocks) 
ARIXOTS -— Search tree of join possibilities 
ARIXOGA — Generate ASL for access path 
ARICWSG ~ Get storage 
—> ARICHSF - Free storage 
Page out path selection and ASL generation acdules 


————— 
Set RETURNCD = SGLERRDIL. 

If SQLERROi ~=SUCCESS and 
“=UPDSUCES and -=DELSUCES, 
then ——> RETEXIT* 

gilse set SQLERRD) = 0. 


Process queries; bottom up. For each querys choose optinal path and 
| ARIXOGP 


ARISYSGOF 


If RCOTTYPE = UPDTENOD, 
fill in update structure by 
retracing SET-clauses: 


Create DASS linkage structure in SPACEBLK 


ARIXOFR May Call Function: 

ARIXOBY = Increment current space block by 
STIZERE@ bytes 

—> ARIXEER — Build SQ@LCA 


> ARIXOCU - Cleanup (free CATCOL blocks? 


If SQLERRDI-=0 —> RETEXIT! 


¥ "not check mode" means “if no errors encountered on any previous 


SQL statement in the user's program" 
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If SQLERRDI-~=0 —> RETEXIT? 


~ If current node bit on, 
make an update column list 
only for WHERE CURRENT OF 
CURSOR: 
If SQLERRDI-=0 —> RETEXIT? 


Go through each SET-clause 
and set up DOMAINS and 
distribute types if 
necessary: 

If SQLERRD1~=0 —> RETEXIT! 


Set SQLERRD)] = RETURNCD and 
go to — > QUITOK! 


QUERY 
(PTREENT = QUERYNOD) 


© If node below QUERYNOD is a 

SETOFPNOD: 

- If there is a 
OF list 
and — > @uIT! 

—- If ORDER BY list contains 
a column nane aS an order 
specification 
and — > quit? 


FOR-UPDATE- 


SQL statenent in the user's progran" 
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i For labels QUIT, QUITOK, and RETEXIT, see page 77. 


ARIXODM 


: 


ARIXOBY 


Process SET 


ARIXOST 


Build SQLCA 


ARIXEER 


Build SQLCA 


ARIXEER 


May Call 


Make a DOMAINS structure 


Function: 


ARIXOBY -— Increment current space block by 


SIZEREQ bytes 


ARIXOCU — Cleanup (free CATCOL blocks) 
ARIXEER — Build SQLTA 


May Call 


Increment number of words used in SPACEBLK 


Function: 


ARIXEER = Build SQLCA 
ARIXEAB — Allocate another space block 
ARIXOCU — Cleanup (free CATCOL blocks) 


statements one at a tine 


May Call 
ARIXEER 
ARIXOFC 
ARIXOFF 
ARIXOOS 


> ARIXOCU 


not check mode" means "if no errors encountered on any previous 


Function: 
Build SQLCA 


Handie Column Array entries 


Fill in 


DOMFLDPT for INSERT and UPDATE 


SELECT-list expression tracer 
Cleanup (free CATCOL blocks) 
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ARIXOOP (continued) 1 For labels QUIT, QUITOK, and RETEXIT: see page 77. 


~ Create a sini-plan to per- 
form duplicate elimination 
from unions: 


Handle SQL SELECT UNION staterent 


ARIXOSO May Call Funetion: 
ARIXOCA = Look up table information in SYSCATALOG. 
ARIXOCK — Look up each column in SYSCOLUNS. 
ARIXOCU - Free storage obtained for CATCOLs. 
ARIXOGB — Scan Query Array for blocks with GROUP BY or SETFN 
ARIXOGP - Process queries, hotton up 

{See page 78 for path selection/ASL generation.) 
ARIXOLF -— Scan Colunn Array for long fields 
ARIXOMO — Construct an SQLDA for DESCRIBE 
ARIXONV - Expand a SELECT * 
ARIXONW ~ Allocate neu OP (expand OP size) 
ARTXOQ1 -— Query processor entry nodule 
ARIXOQ2 — Second-pass Query processor 
ARIXOSC = Scan Table Array looking for SELECTAUTH 
ARIXOSL — Process SELECT-list (2 passes) 
ARIXOVC — Compose a vieu into the Op Tree 
ARIXEER — Build SQLCA 


ARIXSCH — Convert halfword into characters 
® If node below QUERYNOD not 


a SETOPNOD (normal query): 
Allocate new OP 
If necessary to expand 
OP (size < 200) 
If SGLERRDI~=0 — RETEXIT! 


a Hay Cali Function: 


ARIXEAB — Allocate another space block 


Query processor entry nodule for name accumulation 
May Call Function: 
ARIXOB] - BQUERY node processor, first pass 
ARIXOCU = Free storage obtained for CATCOLs 
ARIXOSL — Process SELECT-list (2 passes) 
ARIXEER = Put code and text into structure used 
for error message 


Look up table information in SYSCATALOG, DBSPACE information in SYSOBSPACE:; 
and index information in SYSINCEXES 
? May Call Funetion: 
ARIXEDB -— Call DBSS to obtain information from 
SYSCATALOG, SYSDBSPACES, SYSINDEXES 
ARIXEER — Put code and text into structure 
used for error messages 
ARIXECK — Handle unexpected SQL/DS codes 
ARTXOIU — Look up usage information in SYSUSAGE 
ARIXOCU -— Free storage obtained for CATCOLs 
ARIXSCN — Concatenate character strings used as 
message text tokens 


3 "not check node” means “if no errors encountered on any previous 


SQL statement in the user's program" 
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ARIXOOP Ucontinued) l For labels QUIT, QUITOK, and RETEXIT, see page 77. 


Look up each column in SYSCOLUMNS 


ARIXOCK May Cali Function: 
ARIXEER =- Put code and text inte structure used 
for error messages. 
ARIXED8 — Call DBSS to obtain information from SYSCOLUNMNS 
ARIXECK — Handle unexpected codes. 


ARIXOCU — Free storage obtained for CATCOLs. 


Scan Table Array looking for SELECTAUTH 
May Cali Function: 
ARIXAO2 — Check authority 
ARIXEER -— Put code and text into structure 
used for error messages 
ARIXA06 ~ Grant authority 
ARIXOCU — Free storage obtained for CATCOLS. 
ARIXSCN -— Concatenate character strings used as 


Expand a SELECT * 
May Cal¥ Functions 
ARIXOFC ~ Handle Colurn Array entries 

ARIXOCU ~ Free storage obtained for CATCOLs 
ARIXSCN — Concatenate character strings used as 

message text tokens 
ARIXEER - Put code and text into structure 

used For error ressages 


Construct an SQLDA for DESCRIBE 


Ressage text tokens 
| 


ARIXOMD May Call Function 
ARIXOBY = Increnent current space block by 
SIZEREQ bytes 


3 “not check node” means "if no errors encountered on any previous 


SQL statenent in the user's progran" 
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ARIXOOP (continued?) 1 For labels QUIT, QUITOK, and RETEXIT, see page 77. 


Compose a view into the Op Tree 


} ARIXOVE | May Call Function: 
ARICWSF 


— Free storage 
ARIXEFB — Free blockt(s) 
ARIXELX — Load access nodule from data base 
ARIXOCA — Look up table infornation in SYSCATALOG 
ARIXOCK — Look up each column in SYSCOLUMS 
ARIXOCU — Free storage obtained for CATCOLs 
ARIXOEX — Walk through WHERE or HAVING expression 
ARIXOFT — Handle table array entries 
ARIXOOS — Trace SELECT-list expression 
ARIXOSL — Process SELECT-list (2 passes) 
ARIXOV1 ~ Copy subtree into Op Tree 
ARIXOW] — Examine MHERE predicate (first pass) 
ARIXEER — Put code and text into structure 

used for error nessages 


Scan Column Array for long fields 


May Cal) Function: 

ARIXEER ~— Put code and text into structure 
used for error messages 

ARIXOBY = Increment current space block by 
SIZEREQ bytes 

ARIXOCU — Free storage obtained for CATCOLs 

ARIXOFC ~ Handle Colunn Array entries 

ARIXSCH ~ Convert halfword into characters 

ARIXSCN — Concatenate character strings used as 
message text tokens 

Scan Query Array for blocks with GROUP BY or SETFN 


ARIXOLF 


ARIXOGB 


May Call Function: 

ARIXEER =— Put code and text into structure 
used for error nessages 

ARIXOCU - Free storaye obtained for CATCOLs 


Second-pass Query processor 


May Call Function: 
ARIXOB2 - Query Array type distribution and entries 


Page out storage for Pass 1 and Pass 2 nodules 
ARISYSDF 


not check mode" seans “if no errors encountered on any previous 
SQL staterent in the user's progran" 


~ If PREP tine and not check 
mode® 


3» 
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IXCOP (continued) 


- If not run-time or PREP 
time, set SGLERRD] = 
SUCCESS and —> RETEXIT! 


© If SQLERRD1 ~= SUCCESS and 

SQLERRD1 ~= UPDSUCES and 

SQLERRD1 -= DELSUCCS, 
—_—_———— RETEXIT! 


Else ——————» qur Tox! 


1 For labels QUIT, QUITOK, and RETEXIT, see page 77. 


ARIXOGF May Call 


ARIXOBY — 
ARIXSCH — 
ARIXSCF -- 
ARIXSCN — 


ARIXEER - 


ARIXODI - 


ARICNSG — 


ARISYSDF 


ARIXOCU ~ 
ARIXOTS = 


ARIXOGA — 


ARICWSF -- 
Page out path selection and ASL generation nodules 


Find optimal access path and generate ASL 
(Note: See page 785 for path selection/ASL generation.) 


Function: 


Increment current space block by 


SIZEREG bytes 


Convert halfword to characters 


Convert fFulluord to 


characters 


Concatenation of tuo character strings used as 


message text tokens 


Put code and text into structure 


used for error messages 


Free storage obtained for CATCOLs 
Search tree of join possibilities 


EXPLAIN processing 


Generate ASL for access path 


Get storage 
Free storage 


“not check node" means “if no errors encountered on any previous 


SQL statement in the user's progran" 
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ARIXOOP (continued) 1 For labels QUIT, QUITOK, and RETEXIT, see page 77: 


CREATE VIEW 


(PTREENT = DEFVUNOD) Handle CREATE VIEW statement 


May Call Function: 
ARICWSF Free storage 


ARICHSG — Get storage 

ARIXOCA — Look up table information in SYSCATALOG 
ARIXOCK — Look up each coluan in SYSCOLUMNS 
ARIXOCU — Cleanup (free CATCOL blocks) 
ARIXONY — Expand a SELECT * 

ARIXONW — Allocate a new OP 

ARIXOQ] - Query processor entry module 
ARIXOSL ~ Tuo passes of SELECT-list 

ARIXOVC — Compose a view into the Op Tree 
ARIXEER — Build SQLCA 

ARIXSCH — Convert halfword to characters 


If SQLERRDI-~=0 — RETEXIT! 
Else —————— QUITOK?! 


CREATE TABLE 


{PTREENT = CRTTBNOD) Resolve ENTITYDESCRIP creator nane 


May Call Function: 

ARIXEER — Build SL@CA 
ARIXOUS — Check synonym when no creator specified 
ARIXOCA -— Look up table information in SYSCATALOG 
ARIXOCU — Cleanup (free CATCOL blocks) 
Check authorization 


ARIXAQ2 May Call Function: 
ARIXEER — Build SQLCA 


ARIXECK Issue error message (unknown cause) 
ARIXSCF - Convert fulluord to character 

ARIXSCH - Convert halfvord to character 
ARIXSLN - Calculate length of character strings 
ARIXEDB - Linkage to DBSS 


If SQLERRDI~=0 —> RETEXIT? 


® If CREATE TABLE in another's 
name, check for DBA 
If SQLERRD1-=0 —> Quit! 


If CHKANSER-='D* 
and —————> quit! 
Else set AUTHRES = 'D’ 


ARIXSLN 


Calculate length of character string 
Concatenate character strings used as nessage text tokens 


Build SQLCA 


3 “not check mode" means “if no errors encountered on any previous 


SQL statenent in the user's progran" 
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ARIXOOP (continued) 2 For labels QUIT, QUITOK, and RETEXIT, see page 77. 


Allocate new OP 
© If necessary, make OP 
larger May Call Function: 

ARIXEAB — Allocate another space block 


Put AUTHIO in user 
descriptor indexed by Pl. 
If SQLERRDI-=0 — Quit! 
Else set SQLERRD! = 
SUCCESS and —) QuIToK? 


ACQUIRE DBSPACE 
(PTREENT = ACQIRNOD) 


Resolve ENTITYDESCRIP creator 


9) ARIXOFE - May Cali Function: 
- ARIXEER ~ Build SLQCA 


ARIXOUS -- Check synonym when no creator specified 
ARIXOCA -- Look up table inforration in SYSCATALOG 
ARIXOCU -- Cleanup (free CATCOL blocks? 

Check authorization 


ARTIXA02 


If SGLERRDI~=0 —> RETEXIT! 


© If Type 1} DBSPACE or if 
ACQUIRE DBSPACE not in 
xequestor's name,» check for 
userid = OBA 
If SQLERROI~=0 —> quit! 


May Call Function: 

ARIXEER = Build SQLCA 

ARIXECK — Issue error ressage Cunknown cause) 
ARIXSCF - Convert fullword to character 

ARIXSCH -- Convert halfword to character 

ARIXSLN — Calculate length of character strings 
ARIXEDB =~ Linkage to OBSS 


ARIXSLN Calculate length of character strings 


ARIXSCN | Concatenate character strings used as message text tokens 


amixeer | Build seica 


Check authorization 


If CHKANSER=='D' (DBA) 
and ————— quit? 
Else set AUTHRES = ‘D' 


® Check for resource 
authority 
If SQLERRDI-=0 — quit? 


Ray Call unction: 
ARIXEER — Build SQLCA 
ARIXECK = Issue error message (unknown cause?) 


ARIXSCF — Convert fullword to character 

ARIXSCH — Convert halfword to character 

ARIXSLN ~ Calculate length of character strings 
ARIXEODB — Linkage to DBSS 


¥ "not check mode" neans "if no errors encountered on any previous 
SQL statenent in the user’s prograa” 
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ARIXOOP { continued) } For labels QUIT, QUITOK, and RETEXIT, see page 77. 


If CHKANSER-=='¥" 


; | ARIXSCH | Concatenate character strings used as nessage text tokens 
and ———— QUIT 


puitd atch 


Record GRANT privileges in tables 


May Call unction;: 
ARIXECK — Issue error message (unknown cause) 
ARIXSRT — Restore logical unit of work in 

case of error 
ARICHSG — Get storage 
ARICWSF ~— Free storage 
ARIXAG2 — Check authority 
ARIXSLN — Caiculate length of character strings 
ARIXSUT — Get unique character string (tine stanp) 
ARIXEDB — Linkage to DBSS 


© If PREP time and not in 
check node® 

dependency on resource 

authority 

If SQLERRDI-=0 —> Quit! 

© Set SQLERRDE = SUCCESS and 

99 ——————— WITHK! 


COMMENT 
(PTREENT = COMNTNOD) 


Resolve ENTITYDESCRIP creator (use SYSSYNONYMS>, 

don't aake Table Array entry) 
Hay Call Function: 
ARIXEER - Build SLQCA 
ARIXOUS — Check synonym when no creator specified 
ARIXOCA — Look up table information in SYSCATALOG 
ARIXOCU — Cleanup (free CATCOL blocks) 


© If comment is for table, 
view, or colunn 7 
If SQLERRDI~=0 —> RETEXIT* 


@ If not on table, view, or 
coluan 
and ————— quit! 


Build SQLCA 


& If requestor is not creator, Check for DBA 


check for OBA: 
Hay Call) Function: 
ARIXEER — Build SQLCA 
ARIXECK — Issue error aessage (unknown cause) 
ARIXSCF — Convert fullword to character 
ARIXSCH — Convert halfvord to character 
ARIXSLN — Calculate length of character strings 
ARIXEDB — Linkage to DBSS 


If SQLERRDI-=0 — quit? 


¥ “not check node” means "if no errors encountered on any previous 
SQL statement in the user's program" 


ARXEXOOP (continued) 


If CHKANSER==* 0° 
and —————» quit? 


ARIXSCN 


ARIXEER Build SQLCA 


Else set AUTHRES 


® Set SQLERRD1 = SUCCESS 
and ———————_  qurTok? 


DEFINE SYNONYM 
(PTREENT = DFSYNNOD) 
Resolve creator I0 in 


w 


ARIXOFE May Cali 

ARIXEER — 
ARIXOUS — 
ARIXOCA — 
ARIXOCU — 


Resolve creator ID in 


If SQLERRDI~=0 —> RETEXIT* 


May Call 
I€ SQLERRD1I-=0 —> RETEXIT? ARIXEER — 

ARIXOUS — 
Set SQLERRD1 = SUCCESS ARIXOCA — 
and ——————— QulTok? ARIXOCU — 


DROP 
(PTREENT = DROPNODE) 


Set PTREEP3 = 0 or 1 for 
ouner given / not given. 


Call ARIXOFE permitting 

synonym if PTREEP1 = 
TABLCODE/VIEWCODE, or not 
Feraitting synonym if PTREEPI 

= other ot 


Resolve creator ID in 


ENTITYDESCRIP 


Function: 
Build SLQCA 
Check synonym 
Look up table 
Cleanup (free 
ENTITYDESCRIP 


Function: 
Build SLQCA 
Check synonys 
Look up table 
Cleanup {free 


ENTITYDESCRIP 


1 For labels QUIT, QUITOK: and RETEXIT, see page 77. 


Concatenate character strings used as message text tokens 


for synonyr 


when no creator specified 

information in SYSCATALOG 

CATCOL bliecks) 

for table on which synonya is created 


when no creator specified 
information in SYSCATALOG 
CATCOL blocks) 


for 


synonym is created 


Function: 


table on which 
ARIXOFE I May Call 
ARIXEER — 


If SQLERRDI7=0 —> RETEXIT! 


> ARIXOUS - 
Set DESCRPTR to address of ARIXOCA — 
index to ENTITYDESCRIP for ARIXOCU — 


name of object to be 
dropped. 


Jou 
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not check mode" means "if no errors encountered on any previous 


Build SLQCA 

Check synonyar 
Look up table 
Cleanup (free 


when no creator specified 
information in SYSCATALOG 
CATCOL blocks) 
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ARIXOOP (continued) 1 For labels QUIT, QUITOK; 


If creator is "SYSTEM ' 


and ——————_> quit? 


ARIXSCN 


ARIXEER Build SQLCA 


If drop iter is catalog 
oBSPACE ¢<————_—_—_ 
and ———————> quit? 


ARIXSCN 


ARIXEER 


ARIXAO2 


Build SQLCA 


If requestor is not creator, 
check for DBA 


May Call 


Concatenate character strings used 


and RETEXIT, see paye 77. 


Concatenate character strings used as message text tokens 


as message text tokens 


Function: 


Tf SQLERRD)~=0 — gury* ARIXEER — 
ARIXECK - 
> ARIXSCF = 
ARIXSCH — 
ARIXSLN ~ 


ARIXEDB = 


If CHKANSER == 'D! 
and —————> quit? 


ARIXSCN 


ARIKEER Build SQLCA 


Set SQLERRB!I = 
go to 


SUCCESS and 
> quIToK? 


LOCK 
(PTREENT = 


LOCKNODE } Resolve creator ID 


Be ARIXOFE - May Call 
If SQLERRDI-=0 —> RETEXIT! ARIXEER — 
ARLXOUS — 


ARIXOCA — 
ARIXOCU = 
Check for DBA 


® Check authority on type of 
space: 
— DBSPACE: requestor must 


have DBA authority ARIXAG2 May Cali 
If SQLERRDI~=0 — qury! ARLXEER — 


ARIXECK — 
ARIXSCF — 
ARIXSCH = 
ARIXSLN — 
ARIXEDB ~— 


Jou 
SQt statement in the user's progran" 
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Concatenate character strings used 


Build SQLCA 

Issue error message 
Convert fullword to 
Convert halfword to 
Calculate length of 
Linkage to D65S 


(unknown cause} 
character 
character 
character strings 


as message text tokens 


Function: 

Build SLQCA 

Check synonym when no creator specified 
Look up table information in SYSCATALOG 
Cleanup (free CATCOL blocks) 


Function: 


Build SQLCA 

Issue errer message 
Convert fullwerd to 
Convert halfword to 
Calculate length of 
Linkage to DBSS 


(unknown cause) 
character 
character 
character strings 


not check mode" means “if no errors encountered on any previous 


Method of Operation 
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ARTXOOP (continued) 1 For labels QUIT, QUITOK, and RETEXIT, see page 77. 


If requester not DBA ARIXSLN Calculate length of character strings 
and —————~ quit} 


ARIXSCN | Concatenate character strings used as message text tokens 


‘>| ARIXEER Build SQLCA 


~ Relation: requestor aust 
have SELECT authority 


Check SELECT authority 
ARIXA02 May Call Function: 

ARIXEER — Build SQLCA 

ARIXECK — Issue error message (unknown cause} 
ARIXSCF — Convert fullvord to character 

ARIXSCH = Convert halfword to character 

ARIXSLN = Calculate length of character strings 
ARIXEDB ~ Linkage to OBSS 


If no SELECT authority ARIXSLN Calculate length of character strings 
and ———_——> quit! 


If SQLERRDI~=0 —» QurT? 


ARIXSCN Concatenate character strings used as message text tokens 


ARIXEER Build S@LCA 


If PREP tine and not 
check mode’: 
If user not authorized 
with GRANT rights» set 
AUTHRES = ‘Y° (cannot 
grant RUN on progran) 


If user authorized, with 
or without GRANT rights» Record dependency 
record program deren— — 


dency on SELCTAUT ARIXAQ6 - May Call Function: 

If SQLERRD1-=0 — quit? ARIXECK = Issue error message (unknown cause) 
ARIXSRT -— Restore logical unit of vork in 

Else set AUTHRES = 'D‘ case of error 


ARICWSG =~ Get storage 

ARICNSF -— Free storage 

ARIXAOU2 ~ Check authority 

® Set SQLERRD! = SUCCESS ARIXSLN — Calculate length of character strings 
and ~~» QUITOK? ARIXSUT - Get unique character string (time staap) 

ARIXEDB — Linkage to OBSS 


7 mot check mode" means "if no errors encountered on any previous 


SQL statement in the user's program" 
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ARIXOOP (continued) 1 For labels QUIT, QUITOK, and RETEXIT, sea page 77. 


CHANGE DBSPACE 
(PTREENT = CHSEGNOD) Resolve creator ID 


} ARIXOFE | May Call unction: 
Tf SQLERRDI1~=0 —> RETEXIT? ARIXEER — Build SLQCA 


ARIXOUS — Check synonym when no creator specified 
ARIXOCA — Look up table information in SYSCATALOG 


ARIXOCU — Cleanup (free CATCOL blocks} 
Check for DBA 


If requestor not ouner, check 


for DBA authority | ARIXAO2 | May Call Function: 
If SQLERRD1+=0 —> Quit? ARIXEER — Build SQLCA 
ARIXECK — Issue error message (unknown cause? 
If no DBA paaiege i ARIXSCF Convert fullword to character 
and ———> Quit | ARIXSLN | ARIXSCH Convert halfvord to character 
Else set AUTHRES = 'D' ARIXSLN — Calculate length of character strings 
} ARIXSCN | ARIXEDB — Linkage to D8SS 


Set SQLERRDL = SUCCESS 
and ——————> quiTox! 


ALTER TABLE 
(PTREENT = EXPNDNOD) 


Resolve creator ID 


ARIXOFE 


May Cali Function: 

ARIXEER ~- Build SLGCA 

ARIXOUS - Check synonym when no creator specified 
ARIXOCA — Look up table information in SYSCATALOG 
ARIXOCU ~ Cleanup (free CATCOL blocks) 


If SQLERRDI-=0 —> RETEXIT? 


Check for DBA authority 
® If altering catalog, 
requestor must he DBA 


ARIXAD2 
If SQLERRD1-+=0 —> QuIY? 


me GD ce 


Expand OP 


May Call Function: 

ARIXEER — Build SQLCA 

ARIXECK = Issue error message (unknown cause) 
ARIXSCF — Convert fullword to character 

ARIXSCH — Convert halfuord to character 
ARIXSLN = Calculate length of character strings 
ARIXEOB — Linkage to DBSS 


If necessary, nake OP 
larger 


May Call Function: 
ARIXEAB — Allocate another space block 


3 "not check mode” peans “if no errors encountered on any previous 
SQL statement in the user's progran"” 
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ARIXOOP (continued) 


Put AUTHID in USERDESCRIP 
indexed by Pl 
If SQLERRDI~=0 —> Quit? 


Check ALTER authority ARIXA02 


If SGLERRD1-=6 — Quit? 


If not authorized 
and ——————> quIT} 


If PREP time and not check 
node: 

If not authorized with right 
to grant, set AUTHRES = ‘Y'. 
if authorized, with or 
vithout grant right, record 
program dependency 
If SQLERRDI-=0 — QuIT? 


—>| ARIXA06 


Set SQLERRDI = SUCCESS 
and ——————> quI Tok? 


CREATE INDEX 
CPTREENT = CRTIMNOD) 


ARIXOFE 


If SQLERRD1-=0 — RETEXIT! 


ARIXOFE 


If SQLERRD1-=98 


RETURN 
to Caller 


3 oF 
SQL statement in the user's program" 
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2 Fer labels QUIT, QUITOK, and RETEXIT, see page 77. 


Check authority 


May Call Funetion: 

ARIXEER — Build SQLCA 

ARIXECK — Issue error message (unknown cause) 
ARIXSCF = Convert fullword to character 

» ARIXSCH — Convert halfword to character 
ARIXSLN ~ Calculate length of character strings 
> ARIXEDB — Linkage to OBSS 


Record dependency 


May Cal) Function: 
ARIXECK — Issue error message {unknown cause? 
ARIXSRT - Restore logical unit of work in 

case of error 
ARICWSG — Get storage 
ARICWSF - Free storage 
ARIXA02 — Check authority 
ARIXSLN — Calculate length of character strings 
ARIXSUT — Get unique character string ttine stamp) 
ARIXEDB - Linkage to DBSS 


Fill in creator nane 


May Cail Function: 

ARIXEER — Build SLQCA 

ARIXOUS = Check synonym when no creator specified 
ARIXOCA — Look up table information in SYSCATALOG 
ARIXOCU -— Cleanup (free CATCOL blocks) 


Fill in table name; resolving synonyms if necessary, and rake 
Table Array entry 


May Call Function: 

ARIXEER — Build SL@CA 

ARIXOUS ~— Check synonym when no creator specified 
—> ARIXOCA — Look up table information in SYSCATALOG 
—> ARIXOCU — Cleanup {free CATCOL blocks) 


not check mode” means “if no errors encountered on any previous 
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ARIXOOP (continued) * For labels QUIT, QUITOK, 


Check authority 


ARTXA02 


ARIXSLN 
ARIXSCN 
ARIXEER 


® Set up to check authority 
on underlying table 


Hay Cali 
If SQLERRD1-==0 —> Quit? 


AR IXEER 
ARIXECK 
ARIXSCF 
ARIXSCH 
ARIXSLN 
ARIXEDB 


Ig not authorized 
and —————— quit! 


If PREP time and not check 


node?: 
a. If CHKANSER -='G', set 
AUTHRES = ‘Y¥* (cannot 


grant RUN on prograr). 

. If CHKANSER = ‘G'/'Y' 

(authorized with/without 
GRANT right) 

If SGLERRD1-+=0 — quit? 

Else set AUTHRES = 'D’ 


Record program depende 


ARIXA06 


May Call 
ARIXECK 
ARIXSRT 


ARICHSG 
ARICWSF 
ARIXA02 
ARIXSLN 
ARIXSUT 
ARIXEDB 
Get names into Column 


Trace the cclumns in 
PTREEPS ¢———————___————_. 
If SQLERRD1~=0 — RETEXIT* 


ARIXOSL May Call 
ARIXOCU 
ARIXOOS 
ARIXOTF 
> ARIXSC 


ARIXEER 
Coluan lookup 


De column lookup 
If SQLERRDI-~=0 —> RETEXIT? 


ARIXOCK May Call 


ARTXEER 


Set SQLERROI = SUCCESS 
and ————————> QuITOK* 


ARTIXEDB 
ARTXECK 
ARIXOCU 


+ 'not check mode" neans “if no errors encountered on any previous 


SQL statement in the user's program" 


and RETEXIT, see page 77. 


Function: 


Build SQLCA 

Issue error message 
Convert fullvord to 
Convert halfword to 
Calculate lenqth of 
Linkage to DBSS 


(unknown cause) 
character 
character 
character strings 


ney on index authority 


Function: 


Issue error ressage (unknown cause) 
Restore logical unit of work in 

ease of error 

Get storage 

Free storage 

Check authority 

Calculate length of character strings 
Get unique character string (tine stamp) 
Linkage to DASS 

Array 


Function: 

Cleanup (free CATCOL blocks) 

Trace SELECT-list expression 

Transform literals to proper data types 
Convert halfuord to character 

Build SQLCA 


Function: 

Put code and text into structure used 

for erroy messages. 

Call DOBSS to obtain information frou SYSCOLUNNS 
Handle unexpected codes. 

Free storage obtained for CATCOLs. 


ARIXOOP (continued) 


UPDATE STATISTICS 
€PTREENT = UPSTANOD) 


ARTXOCU 


GRANT / REVOKE 


(PTREENT = GRANTNOD | REVOKNOD) Expand OP 


Make OP bigger if necessary —~ 


Ha 
“» ARIXEAB 
Put OPTAUTID in USRDESCR 
indexed by PTREEPI. 


If SQLERRD1-=0 —> Quit? 


Check table nane and creator ARIXOFE 
Tf SQLERRD1-~=0 —> RETEXIT? 
Else set SQLERROI] = 


SUCCESS and —— QUITOK! 


Unidentifiable 
Node Type 
and ———————> quit?! 


ARIXEER 
ARIXOUS 
ARIXOCA 
ARIXOCU 


ARIXEER | Build SQLCA 


SQl/Data System Logic, Volune i 


If SQLERRDI-=0 —> RETEXIT? ARIXEER 
Set SQLERRDI = SUCCESS ARIXOUS 
and ————_—_—_—_——» quIToK! —> ARIXOCA 


y Call 


May Call 


2 For labels QUIT, QUITOK, and RETEXIT, see page 77. 


Fill in creator name; check SYSSYNONYMS 


Function: 
- Build SLQCA 
— Check synonym when no creator specified 
- Look up table information in SYSCATALOG 
— Cleanup (free CATCOL blocks? 


Function: 
~ Allocate another space block 


Resolve table/creator; no call for DBA authorization 


Function: 
—- Build SLGCA 
~ Check synonym vhen no creator specified 
- Look up table information in SYSCATALOG 
- Cleanup (free CATCOL blocks} 


Licensed Material - Property of IBN 


ARIXOOP (continued) 


QUITOK: 
If SQLERRD1 «= SUCCESS or 
UPDSUCES or DELSUCES 


Set RETURNCD = SQLERRDI Get block number. offset for each block's relocation directory 


Else | ARIXOSU 4 May Call Function: 
If SQLERRDI-=0 —> RETEXIT! ARICNSG — Get storage 


ARIXEER = Build SQLCA 
ARIXOCU — Cleanup (free CATCOL blocks) 
ARICWSF — Free storage 
Ly» ARICWSF - Free storage 
Cleanup (free CATCOL blocks} 


| ARIxOCU | May Call Function: 


ARICNSF =~ Free allocated storage 
> ARIXOAF ~ Free global automatic storage used 
If RDATRACO 2 '2'» dump by Optinizer procedures 
contents of OF and space 
blocks. 
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Path Selection/ASL Generation 


ARIXOGP (Called by ARIXOOP) 
pe erin 
| Op Tree Ly Path selection/ASL generation 
| Arrays 7 
De ie Sears iy 


ARIXOTS? 


aa 
iis} Complete ASL, | 
intel | OBSI structure | 


ARIXOGA 


actrees “A; S|). as 1 aan saart 

| QUERY “/\| Generates tree of possible Nj BESTCHOICE | IMINIPLANS?U\] ASL 

j fe paths, Fills in COSTS for |-4/] | J thas Generation 
i-.---- single tables. Chooses t-~-----~-~~. L~-+-~---~- 


cheapest overall plan. 


@®eoee8¢89 


ARIXOCS 
ertec re = —— prt 4 2 For data areas HINIPLAN, 

1 NEWTAB \]| Fills in COSTS aN costs? | COSTS, CHOICES, and PLANVEC>, 
| f, PABA S Eee for each ‘join ag CHOICES? | see the data areas section 
t------- possibility t---.---- in Volune 2. 


ARIXOGC 

 Sempicaeimicis “7 
Calculates \] carp | 
access path |-4/{ PLANVEC*] 
cost L 4 


ARIXODF 
parc em at es os pwwcuewey glelafeeeey _ peessacnes 
|PREDICATE\| Calculates Ay} YEMPAGES | 
| a selectivity ad | SORT cOST! 
bene eene of predicate benwneennneeeee J bee e-ee OL COiL:T------- - 
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CODE GENERATOR 
CODE GENERATOR FUNCTION SUMMARY 


ARIXC37: 
Passes to ARIXC38: 

® PCGOCL — ¢ Code Generator Communication Area 

-®° X — Subcase routine number 

® Y ~— Syntactic stack index 

© CGSEMSTX — Semantic stack index (template number) 


FUNCTION CALLS 


(1800, (ABO | WO FUNCTION, FERELY RETIRNG eS ee 
PROCESS SQUERY NODE (PROCESS INLINE} 


juss | PROCESS INSERT OF LITERAL ARIXC29 TO PROCESS 
LABS PROCESS FIRST INVOCATION OF BQUERY DETERMINE TYPE OF STATEMENT AND 
LAB? INSERT, DELETE, UPDATE TEMPLATE TO BE USED 


aa 
Pais nr 
| uaszo | PROCESS ARITHMETIC OPERATION 
ces a 
PROCESS A VALUE COMPARISON BLOCK 
pees 
pusee 
Pusey 
pusss | 


PROCESS SET FUNCTION NODE, FIRST INVOCATION | PROCESS INLINE = 


ARIXC28 TG PROCESS 
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Method of Operation 79 


The following figure, the OPTABLE, defines operator nodes in 


the ASL tree. 


SYMBOL CODE 
AVGFN 30 
SUMFN 31 
COUNTFN 32 
MAXFN 33 
MINFN 34 
PLUSCODE 40 
MINUS 41 
MULTCODE G2 
DIVIDE 43 
ANDCODE 70 
ORCOOE 71 
LT 180 
LE 181 
GT 182 
GE 183 
EQ 184 
NE 185 
LIKE 186 
LTANY 190 
LEANY 191 
GTANY 192 
GEANY 193 
EQANY 194 
NEANY 195 
LTALL 200 
LEALL 201 
GTALL 202 
GEALL 203 
EQALL 204 
NEALL 205 
80 
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OPERATOR 


1,1,XX,25»26 
1,1,XX,25,26 
1,1,XX,25,26 
151,XX,25126 
1s )XX,25526 
1,2,XX,0,20 
1,2>XX,0,20 
1,2+XXs0,20 
152 5XX»0,20 
1,29XX,0,14 
152,XX,0,15 
152+XX10,24 
1,52>XX»0524 
152 5XX10,24¢ 
152>XX10»24 
1,25XXs0.24 
1,2,XX,0,24 
1,2 5XX10524 
1529XX0524 
1,25XX,0,24¢ 
152XXs0924 
152 >XX10224 
1529XX»0,24 
152>XX10524 
1,2»XX»0,24 
152 9XX.0524 
152 XX,0524 
152 XX10»24 
1525XXs0524 
152 5XX,0224 


SYMBOL 


ISIN 
ISNOTIN 
INSERT 
DELETE 
UPDATE 
SETNODE 
COL 
BQUERY 
NOTNODE 
UMNSNODE 
VALCONP 
BETWEEN 
BOOL 
TABCOMP 
ARITLIST 
ARITHND 
SETFN 
LITN 
LITTUP 
ISNULL 
SETFNI 
SQUERY 
DQUERY 
FOREACH 
SQUER] 
EXISTS 


The OPTABLE is used by ARIXC37 to determine 


l: operand 
2: value 


which routine in ARIXC36 is to he called to process an 
operator in the optimized ASL tree. 


OPERATOR 


1,2>XX.0,24 
1>2>XX,0224 
1s1,IM,0,4 
1,1,1%.5.6 
1yo1sIX»7.8 
1,15IX,0,13 
2502XX20,0 
2,1,IX,9,10 
1,1,1X%,0,21 
1s1,IX,0,19 
152sXX+0,0 
1,351X,0,24¢ 
1522XXs000 
1,22XX,0,0 
1,1,IX,0,22 
1y2+XXs0,15 


1y15XX+25,26 


270»XK,0,0 
220+X¥%>050 
1,1,1X,0,12 
RylsIX,0,27 
1,2,IX,1-2 
2,2,1X,0,0 
LyhsIK,0,0 
2,0,X*,0,0 


or immediate (JI) 


Number of operands 


| 
| 
! 
| ‘'—> Generic (X) 
| 
1 


rOARIXC38 entry when 

| operator is processed 

151,1K,0,24 -—- 

-dARIXC38 entry when 
operator is processed 
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PREP~TINE CODE GENERATOR 


# Called by ARIXEPF 


Sf ARIXC37 
L 


ezemleSet pointers, allocate 
4/7| Code Generation 
Communication Area. | J lear (page 63) 
*Root node SQUERY, INSERT» V7 
DELETE, or UPDATE? 
YES Initialize tables 
[arrxcis for compilation. 


STRTSUBG: Initialize 
indexes and operands 
precessed and expected 

(QI=G0, QN=1). 


ARICHSG - Get storage for SYMTAB, SERVATB, and Block Address Table 
ARIXSCH - Convert halfword binary to character. 
ARIXSCP - Convert pointer from hex to character. 
ARIXEAB - Allocate a new space block (Block 10) and 
Relocation Directory. 
ARIXEER - Put code and text into structure used 
for error messages. 
A STACKOP: Set up Syntactic 


\7 Stack. 
ARIXC38] Generate code for access nodule 
| B L, DISPATCH: 


\7 BCODE value 


for error messages. 


ARIXEER|] Put code and text into structure used 
I 


N\A 
EXIT (page 63) 


‘ 
a ae | 
wu 
a 
® 
a 
n 


* GETLEFT 
GETHIO - page 82 
GETRIGHT - page 82 
GENER - page 6&3 
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Tc |» 
Sy 


E |>|GETRIGHT: 
© If processing an operand 


So 


ARIXC37 (continued) 


GETLEFT: 
© If end of OP list, compute 


nurber of operands and go 
to NOL 

Process left hand side 

of node. 


Increment operands 
processed count by 1} 


and go to STACK 


® Get pointer to operator 


node Syntactic Stack. 


® Get pointer to middle 


operand( PTREEPTR=PTREEPS). 


® Set ‘operands processed' 


= 3 (QI=3) and go to 
STACK 


list, go to GETLEFT 


If looking for second 
operand of Boolean 
operator 

Set PTREEPTR to operator 
on Syntactic Stack, 
Process node type (set 
PTREEPTR to proper node) 
Increnent operands count 


by 1 and go to STACK 
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Allocate 4 bytes 
ARIXCO1| for subroutine 


address. 


| K | stack (page 84) 
NZ 


| K STACK (page 84) 


Nar, 


Generate code for 
access module 

section (see 

page 85). 


| K | stack (page 84) 
NZ 


a | NOL (page 


V? 


83) 
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ARIXC37 (continued) 


If code generation not 
successful, go to EXIT. 
® If this node on stack is 
fox HAVING clause, set 
stack index to BQ node 
index and go to GENI 


e If subquery successfully 
processed, go to END] 

© Get new operands expected 
and operands processed for 
next OP on stack. 

© If operator on Syntactic 

Stack 1s BQUERY and 

processing NOT complete 


® Set PTREEPTR to operator 
node on Syntactic Stack 
and go to DISPATCH 


[ex] 
NF 
fo OISPATCH 
6 hb 
/ 


\ ¥ 


SELLIST: 
® Set PTREEPTR to BQUERY 
node on Syntactic Stack. 
® If select~list index = 0; 
set I=0 and go to NOL 
® Indicate List of operands 
{(QN=999), Set number of 
operands processed = zero 
{E=0) and go to DISPATC 


[ ex| 


\Z/ 
DISPATCH 


*% DISPATCH - page Sl 
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Generate code for access 
nodule section (see page 85}. 


® If HAVING clause encount- 
ered, set PTREEPTR to 
first HAVING clause node 
and STID=HAVSTID; then 
© If no HAVING clause: 
GENI: 
® If code generation not 
successful, go to EXIT 
If code generation is 
complete, go to ENDI 
® Set up for BQUERY 
processing complete or 
not conplete. 
® If conplete, go to SELLIST 
If not complete, go to 
DISPATCH ———_—_—__—_- 


ENDL: 

* Set BLOCK 2 section length 
and increment subquery 
processed count by lt. 

° If all subqueries; set 
return code = 10 (conpiled 
section); Else set 
suitches and PTREEPTR for 
next SUBQ table entry. 

EXIT: 


V7 
[a Lola: 
V7 ® Free communication area. 


al 
\s/ 
RETURN TO 
CALLER 


Ta | STACKOP 


(page 81) 
ef 
Senerate code 
for access 
nodule section 
(see page 65). 
#% 
| G6 [SELLIST 
\/ 
—— | B |DISPATCH|] (page 81) 


ce 


Do cleanup. 


ARIXC14 


ARIXEER -Suild SQLCA 
structure 
ARICWSF-Issue free for SYNTAB, 
SERVATB, and Block 
Address Table 
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ARIXC37 Ccontinued) 


[ K L, STACK: 


\7 Increment SYN STACK index by 1. If stack overflow ARIXEER| Build SQLCA 
Structure 
Else (Code -102) 
If node is Go to 
an operator, go to STACKOP. EXIT | I (page 82) 
\7 
Else | 
i | A (page 81) 
STACKVAL: V7 


Set SYN STACK class field to operand value. Save entry index by 
PTREEPS to stack value field. Set CGCSOP=1, CECSQI=QI, and 
CGCSQN=QN. Save input pointer to SYN STACK node field 
(CGCSNODE=PTREEPTR). 


Query type 
= SQUERY! YES —9Save input SQUERY table; set node type = 

(309)? SQUERY (300). ARIXCOL] Allocate 4 bytes in BLKIO 
(SQRYLNOD) for subroutine addr. 

NO P 


ARIXEER-Build SQLCA structure. 


Set pointer P to node at PTREEP2 of SQUERY 
node. Save index to address allocated 

Cin BLKIO in PTREEP2 of the node pointed to 
by pointer P and in the SUBQUERY table), 
Increment SUBQUERY in table index by |. 


SUBQUERY table 
full? YES JARIXEER Build SQLCA 
Structure 
NO (code -105) 
[x] 
\N7 
[a | EXIT (page 82) 


\_7 DISPATCH (page 81) 
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ARIXC38 


Allocate space in Data Block 10 
ARIXC38 controls the 


generation of access JARIXCOI May Call To: 


nodule code based upon ARIXEER - Put code and text into structure used for error messages. 
the operator in the 


Syntactic Stack passed Generate code in CODEBLK (Block 2} for any arithmetic type operations 
by ARIXC37. It creates 


the access nodule code JARIxCO2 May Call To: 

from optimized data. ARIXEER - Put code and text into structure used for error messages. 
ARIXSCN - Handle concatenation. 

ARIXC18 - Move narned fragment into CODEBLK. 

ARIXC33 - Extract information about a passed parse tree node's data type. 
ARIXSCH - Convert halfvord binary to character. 


ARIXC20 ~- Put out code to load block address into register. 

ARIXCOS ~ Deternine displacernent of data slot‘'s data. 

ARIXC40 - Put out passed RR-type instruction into next open CODEBLK slot. 
ARIXC42 ~ Put out passed Si-type instruction into next open CODEBLK slot. 
ARIXC41 ~ Put out passed RX-type instruction into next open CODEBLK slot. 
ARIXC39 - Resolve references for branch instruction in generated code. 
ARIXC43 ~ Put out passed SS-type instruction into next open CODEBLK slot. 


Put out code in CODEBLK to bind variables at OPEN. 


ARIXCO3 Hay Cail To: 

~ Convert block number/displacezent ta real storage address. 
Move narned fragment into COOEBLK. 

~ Put out code to load a block address into register and 

return a block nunber/displacenent to caller. 

Put out code to load a register vith the address of a block 

of data. 

Break pointer in block nunber/displacement form inta tuo 
halfvord fields. 

~ Convert fullword binary to character. 

Convert halfword binary to character. 

Determine dsiplacement of data slot's data, null indicator, 
and length field. 

Extract information about a passed parse tree node‘s data type. 
Put out passed SS-type instruction into next open CODEBLK slot. 
Put out passed SI-type instruction into next open CODEBLK slot. 
Put out passed RX-type instruction into next open CODEBLK slot. 
Allocate space in Data Block 10. 

Extract descriptive data on a LITNODE. 

Put code and text into structure used for error messages. 
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RIXCIS (continued) 


ARIXCO5 May Call 


ARTIXC06 May Call 


JARIXC39 
ARIXC48 
JARI XC18 
ARIXC40 
ARIXEER 
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Put out ecde in CODEBLK to perform any comparison-type operation. 


To: 
Extract information about a passed parse tree node's data type. 


Put out code to load a block address into register and return 

a block number/displacenent to caller. 

Determine displacement of data slot‘s data» null indicator, 

and length field. 

Convert fullvord binary to character. 

Convert halfword binary to character. 

Put out passed RX-type instruction into next open COODEBLK slot. 
Put out passed RR-type instruction inte next open CODEBLK slot. 
Put out passed SiI-type instruction into next open CODEBLK slot. 
Set up addressability to length of a varying character string. 
Move named fragment into CODEBLK. 

Put out passed SS-type instruction into next open CODEBLK slot. 
Resolve references for branch instruction in generated code. 
Move a value from one slot in real storage to another slot in 
real storage. 

Convert block nunber/displacement to real storage address. 

Put code and text into structure used for error messages. 


Put out code to evaluate a described SET function. 


Tos 

Put cut code to load a block address into register and return 
a block number/displacement to caller. 

Deternine displacement of data slot's data, null indicator, 

and length field. 

Convert halfword binary to character. 

Extract information about a passed parse tree node's data type. 
Put out passed SiI-type instruction into next open CODEBLK slot. 
Put out passed RX-type instruction into next open CODEBLK sict. 
Put out passed SS-type instruction into next open CODEBLK slot. 
Resolve references for branch instruction in generated code. 
Convert: block nunber/displacenent to real storage address. 

Move naned fragment into CODEBLK. 

Put out passed RR-type instruction into next open CODEBLK slot. 
Put code and text into structure used for error messages. 
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ARIXC38 {continued} 


Process a GROUP BY. 


ARIXC1O Hay Call To: 
ARIXC36 - Move a value from one slot in real storage to another slot in 
real storage. 
ARIXC39 - Resolve references for branch instruction in generated code. 
ARIXCO5 - Put out code in CODEBLK to perform any comparison-typa 
operation. 
ARIXC48 - Convert block number/displacenent to real storage address. 
ARIXCG7 - Convert pointer fin PTR1) in block number/displacement form 
to real address. 
ARIXC41 - Put out passed RX-type instruction into next open CODEBLK slot. 
ARIXC40 - Put out passed RR-type instruction into next open CODEBLK slot. 
ARIXEER - Put code and text into structure used for error messages, 


Assist in implementing ... NHERE <expr-1> <= ANY SELECT <expr-2> 


perce tae he 


ARIXCO5 - Put out code in CODEBLK to perform any comparison-type 
operation. 
ARIXEER - Put code and text into structure used for error messages. 


Put out code to test null byte of value. 


pases} tay cats te 
ARIXC20 ~ Put out code to load a block address into register and return 
& block nuaber/displacenent to caller. 
ARIXCOB - Determine displacement of data slot's data, null indicator; 
and length field. 
ARIXC40 - Put out passed RR-type instruction into next open CODEBLK slot. 
ARIXC41 = Put out passed RX-type instruction into next open CODEBLK slot. 
ARIXC42 - Put out passed SI-type instruction into next open CODEBLK slot. 


“Move naned fragment into CODEBLK (Block 2) 


ARIXC18 May Call To: 


ARIXCO7 ~ Attempt to resolve undefinad labels in CODEBLK. 

ARIXC39 - Resolve references for branch instruction in generated code. 
ARIXEER - Put code and text into structure used for error messages. 
ARIXFTB — No actual call. Uses this code fragment table for fraguent 
nuabers. 

ARIXSCF - Convert fulluord binary to character. 

ARIXSCH ~ Convert halfword binary to character. 


Allocate nev Space Block and Relocation Directory 


ARIXCLS May Call Te: 

ARICWSG - Get new Block Address Table. 

ARICWSF - Free Block Address Table. 

ARIXEAB - Get an additional space block (CODEBLK). 


ARIXEER ~ Put code and text inte structure used for error messages. 
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RIXC38 (continued) 


Put out code to move data items to user area. 


May Call To: 

ARIXC48 -~ Convert block number and displacement to real storage address. 
ARIXC17 = Put out code to load a register with the address of a data 
slot. 

ARIXC18& ~ Move named fragment into CODEBLK. 

ARIXCOl - Allocate space in Data Block 10. 

ARIXC20 - Put out code te lead a block address into register and return 
a block number/displacenent to caller. 

ARIXCOS - Determine displacernent of data slot's data», null indicators 
and length field. 

ARIXC45 - Set up addressability te length of a varying character string. 
ARIXC3S - Extract information about a passed parse tree node's data 

type. 

ARIXC40 - Put out passed RR-type instruction into next open CODEBLK slot. 
ARIXC41 = Put out passed RX-type instruction into next open CODEBLK slot. 
ARIXCG2 - Put out passed SI-type instruction into next open CODEBLK slot. 
ARIXEER ~ Put code and text into structure used for error messages. 
MeARIXSCH - Convert halfword binary to character. 

ARIXC47 - Convert pointer (in PTR1) in block number/displacement form 

to real address. 

SARIXEAB ~- Allocate a neu block. 

ARIXWSF - Free Block Address Table. 

ARIXWSG - Get new Block Address Table. 


ARIXC21 


Put out code to nove returned subquery to slot in Block I to 
be used as input for outer query. 
May Call To: 
ARIXC36 - Move a value from one siot in real storage to another slot 
in real storage. 
ARIXC48 ~- Convert block number and displacement to real storage address. 
ARIXEER - Put code and text into structure used for error messages. 
ARIXC1& - Move named fragnent inte CODEBLK. 
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ARIXC3S (continued) 
Put out code to bind table 


May Call To: 
ARIXSCH ~ Convert halfword binary to character. 
ARIXC1LL ~ Put out code to load a register with the address of a block 
of data. 
ARIXC43 - Put out passed SS-type instruction inte next open CODEBLK slot. 
ARIXC36 ~- Hove a value from one slot in real storage to another slot 
in real storage. 
ARIXC47 — Convert pointer fin PTRI) in block nurmber/displacernent form to 
real address. 
ARIXC48 - Convert block number and displacement to real storage address. 
ARIXC49 - Break pointer in block number/displacemant form into two 
halfvord fields. 
ARIXC46 - Display parse tree entry pointed to by PTREEPTR. 
ARIXEER ~- Put code and text into structure used for error messages. 


ARIXC23 


Put out code to call subroutines for subqueries 


Hay Call To: 

ARIXSCH - Convert halfvord binary to character. 

ARIXC11 = Put out code to load a register vith the address of a block 

ef data. 

ARIXC1& ~ Hove named fragment inte CODEBLK. 

ARIXC23 - Put out code to move data items to user area. 

ARIXC40 - Put out passed RR-type instruction into next open CODEBLK slot. 
ARIXC41 - Put out passed RX-type instruction into next open CODEBLK slot. 
ARIXC42 = Put out passed SI-type instruction into next open CODEBLK slot. 
ARIXC46 - Display parse tree entry pointed to by PTREEPTR. 

ARIXC47 = Convert pointer (in PTRI1) in block number/displacement form 

to real address. 

ARIXC4S - Convert block nuaber and displacement to real storage address. 
ARIXEER ~ Put code and text into structure used for error messages. 


J ARIXC24 


Put out code to process the binding operation for a RE-OPEN ON CURSOR situation 


Hay Call To: 

ARIXC39 = Resolve references for branch instruction in generated code. 
ARTXC23 - Put out code to move data items to user area. 

ARIXCO7 ~ Attempt to resolve undefined labels in CODEBLK. 

ARIXC40 - Put out passed RR-type instruction into next opan CODEBLK slot. 
ARIXC41 - Put out passed RX-type instruction into next open CODEBLK slot. 


ARIXC25 
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RIXC38 (continued) 


Put out code to initialize the subquery output slots to null 


ARIXC27 May Call To: 
ARIXC48 - Convert block number and displacement to real storage address. 
ARIXC20 - Fut out code to load a block address into register and return 
a block number/displacenment to caller. 
ARIXCOS ~ Determine displacement of data slot's 
data, null indicator, and length fieid. 
ARIXC33 ~- Extract information about a passed parse tree node's data 
type. 
ARIXC40 - Put out passed RR-type instruction into next open CODEBLK slot. 
ARIXC41 - Put out passed RX-type instruction into next open CODEBLK slot. 
ARIXEER - Put code and text into structure used 
for error aessages. 


Put out code to initialize for a SET function. 


ARIXC28 | May Call To: 


ARIXC48 - Convert biock number and displacement to real storage address. 


- Move named fragnent into CODEBLK. 
- Put out code to load a block address into register and return 
a block nunber/displacement to caller. 
- Determine displacenent of data slot's data, null indicator, 
and length field. 
- Put out passed RR-type instruction into next open CODEBLK slot. 
- Put out passed SI-type instruction into next open CODEBLK slot. 
- Put out passed SS-type instruction into next open CODEBLK slot. 
~ Set up addressability to length of a varying character string. 
~ Extract information about a passed parse tree node's data 
type. 
- Resolve references for branch instruction in generated code. 
- Put out code in CODEBLK to perform any comparison-type 
operation. 
~ Move a valve from one slot in real storage to another slot 
in real storage. 
~ Put out passed RX~type instruction into next open CODEBLK slot. 
- Put code and text into structure used for error messages. 
- Convert halfvord binary to character. 


place code into a neu subroutine. 


To: 
ARIXEER ~ Put code and text inte structure used for error messages. 
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ARIXC38& (continued) 


a Type-2 join. 


ARIXC30 May Call 


FARIXCLI - 


ARIXC31 May Call 


ARIXC4O = 
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Put out code to test if end-of-group was encountered for the right-hand side of 


To: 

Move named fragnent into CODEBLK. 

Resolve references for branch instruction in generated code. 
Convert block number and displacement to real storage address. 
Break pointer in block nuxber/displacenent form into two 
halfword fields. 

Put out code in CODEBLK to perform any conparison-type 
operation. 

Put out code to load a register with the address of a block 

of data. 

Put out code to move data items to user area. 

Put out passed RX-type instruction into next open CODEBLK slot. 
Put out passed RR-type instruction into next open CODESLK slot. 
Put out passed SI-type instruction into next open CODEBLK slot. 
Put code and text into structure used for error messages. 
Convert halfword binary to character. 


code to test the relation of a RHS row to a LHS row for a Type-2 join. 


To: 

Put out passed RX-type instruction into next open CODEBLK slot. 
Move named fragment inte CODEBLK. 

Put out code in CODEBLK to perform any conparison-type 
operation. 

Convert block number and displacement to real storage address. 
Resolve references for branch instruction in generated code. 
Put out passed RR-type instruction into next open CODEBLK slot. 
Put code and text into structure used for arror messages. 


Put out code to test for a new group or Type-2 join and take appropriate action. 


To: 

Move passed RX-type instruction into next open CODEBLK slot. 
Put out code in CODEBLK to perform any comparison-type 
operation. 

Convert block number and displacement to xeal storage address. 
Resolve references for branch instruction in generated code. 
Put out passed RR-type instruction into next open CODEBLK slot. 
Put out passed RX-type instruction into next open CODEBLK slot. 
Put out passed Si-type instruction into next open CODEBLK slot. 
Put code and text into structure used for error messages. 
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Put out code to complement a number 


ARTXC34 May Cali To: 
ARIXC39 - Resolve references for branch instruction in generated code. 
ARIXC26 - Put out code to load a block address into register and return 

a block nusber/displacement to caller. 
ARIXCO8 - Determine displacement of data slot's data, null indicator, 

and length field. 
ARIXC33 - Extract information about a passed parse tree node's data 

type. 
ARIXC40 - Put out passed RR-type instruction into next open CODEBLK slot. 
ARIXC41 - Put out passed RxX-type instruction into next open CODEBLK slot. 
ARIXC42 ~- Put out passed SI-type instruction into next open CODEBLK slot. 
ARIXC43 - Put out passed SS-type instruction into next open CODEBLK slot. 
ARIXEER - Put code and text into structure used for error messages. 
ARIXSCH - Convert halfvord binary to character. 


Put out code to fill a coluan with its nev value for the UPDATE function. 


ARIXC35 May Call To: 
ARIXC48 - Convert block number and displacement to real storage address. 


ARIXC36 - Move passed RX-type instruction into next open CODEBLK slot. 


Resolve references for branch instructions in generated code. 
ARIXC39 May Call To: 

ARIXEER - Put code and text into structure used for error messages. 
ARIXSCH - Convert halfword binary to character. 


Convert a pointer (in PTR]) in block number/displacement form to a real address. 
May Call To: 


ARIXC48 - Convert block number and displacenent to real storage address. 
ARIXEER - Put code and text into structure used for error messages. 


Convert block number and displacement toe real storage address. 


ARIXEER - Put code and text into structure used for error messages. 
ARIXSCH - Convert halfwvord binary to character. 


Break pointer in block number/displacement fora into tuo halfword fields. 
[arrxcas | 


past Call To: 


SQL/Data System Logic, Volume 1 Licensed Material - Property of 


IBM 


ARIXC38 (continued) 


Put out code to perfora test and branch instructions. 


pense} tae ak 


ARIXSCH - Convert halfvord binary to character. 
ARIXC42 ~ Put out passed SI-type instruction into next open CODEBLK slot. 
ARIXC46 - Display parse tree entry pointed to by PTREEPTR. 


Convert halfvord to character representation. 


. Build SQLCA (SYR Structure) using input pararzeters passed by RDS module. 


pee 
A 


—\8/ 
RETURN 
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RUN-TIME CODE GENERATOR 


The run-time Code Generator modules are called via ARIXFTB 
(from fragnents or other run-time routines), which contains 
the vector table for fragments and run-time routines. 


ACQUIRE TEMPORARY 


SORT 


| r Linkage to DBSS 


ARIXCRA pec ol 


CALL DBSS to 
perforr a 
sort. 


ARIXCR1 
(page 96) 
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The routine called is based upon the requested function: 


m- Linkage to DBSS 


ARIXED 


ie — | ON 


N/ 
ARIXCRI 
(page 96) 
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aes A_TEMPORARY TABLE 
r-Linkage to DBSS 
ARIXCRC ARIXED 


Call DBSS to 
initialize a DB- 
SPACE and create 
a table or list 


NF 


DELETE ROWS eS eee LONG FIELDS 
Leakage to DBSS 


ARIXED 


ARIXcRD } 


1 Sae page 517 for a description of ARIXCRD. 
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VARTABLE TO A FLOATING-POINT SLOT 


Uses integer or halfword 
input from user's data base E74 
ARIXCRI 
(page 96) 


and provides floating-point 
data to user’s application 
Progra. 


TEST WHETHER STRING IS “LIKE PATTERN 


ARIXCRE 
Pattern aay contain the characters 
"" and "4" ("_“ matches any single 
character, while "Z%" watches an 
arbitrary string of zero or nore 
characters). 


zh WHETHER STRING IS “LIKE PATTERN 


ARIXCRL 
Pattern ray contain the DBCS (Double-Byte 
Character Set) characters "426D"'(hex) and 
“G26C"thex). ("426D" matches any single 


character, while "426C" natches an arbitrary 
string of zero or more characters). 
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UPDATE LONG FIELDS 
ceae| acaenneE 


ARIXCR 
Updates a row 
containing long 
fields that are 

being modified. 


[e] [a] 


\7 \7 
ARIXCR3 ARIXCRD (page 94) 
(page 97) 

7N 

lc | 

Ba 
coe FLOATING- POINT 
ARiXCR 


Convert floating-point 
to decinal data type. 


7N 
[BI 
N 7 


BIND INPUT VARIABLE TO DECIMAL SLOT CONVERT DECIMAL 
{ s 
ARIXCRH ARIXCRI 


Convert decimal to 
floating-point data type 


Uses halfvord, integer; 
decimal, or floating-type 
input from user's data 
base and provides decinal 
data to the user's 
application progran. 


CLOSE SCAN 


currently 
open scan. 


ARIXED 
Call DBSS 


ZN 
Error ——> 0 | 
\/ 


pARTXEER 
Build SQLCA (SYR structures} 
for RDS errors using input 
parareters passed 


ARIXCR1 


Handle 
run-time 
errors. ARIXECK 
Build SQLCA (SYR structures} 
for DBSS errors using input 
parameters passed 


ARIXEBR 
Return to EXEC 
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PUY OUT DATA TO SELECT-LIST 
3 


ARIXCR2 
Return values 
ina 
select-lis 

to user's 

data space. 


[cet storaye] 
Get storage 
[rove data | 
Hove data 
ARIXWSF 
» [Free storage 
7N 
Exror———————| D |ARIXCR1 
7N 
| 8 


NZ 


\7 
| ARIXCRI 


-ARIXED ZN 
Call pBss| | c [aARIxcRJ 
rs 
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INSERT LITERAL ROW WITH LONG FIELDS 


ARIXUS' 
Get storage 


ARIXCR 


Inserts of 

literal rou \7 (page 94 ) 
with long ARIXUSF 

fields into [Free storage] 

a table. 


Error 


ARIXED! 
+)Call OBSS 


[o] 


\/ 


BND Pe VARTABLE TG INTEGER SLOT 


ARIXCR 
Uses halfword or floating- 
type from users's data base 
and provides integer data to 
user's application prograr. 


ARIXCR1 
(page 9) 


IND INPUT VARIABLE TO FIXED-LENGTH OT 
ARIXCR7: 
Uses an input variable of: 
~ character type 
or 
- DBCS character type 
from user's data base and 


provides fixed character NL 
data to user's application ARIXCRI 
program. (page 96) 
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OBSS error— |Build SQLCA structure 


ARTXECK 


A 


ARIXCR 
Locate the program nare 
that defined the cursor, 
then scan table for 

aatching cursor name. 


ARIXCR1 (page 96) 


x VARIABLE TO HALFWORD SLO 


ARIXCR 
Uses integer or floating- 
type from user's data 


base and provides halfvord NH 
data to user's application ARIXCRI 
program. (page 96) 


BIND VARTABLE-LENGTH FIELDS 


ARIXCR: 
Uses an input variable of: 
~ character type 
or 
- DBCS character type 


NA 
from user's data base and ARIXCRIL 
provides variable-length (page 96) 


data to user's application 
prograr. 
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INTERPRETER 


ARIXI14 ~- Called From ARIXERD (Topmost RDS Module) 
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;: SR ee Seer 


ARIXIGL ARIX10~ ARIXIO4 ARIXIO6 See the folloving page for names of the 
ARIXEER ARIXSCH ARIXEER ARIXEER major functions performed by the ARIXI.. 
ARIXECK ARICWSG ARIXECK AR IXECK modules, except for those listed here 
ARIXSCF ARICHWSF ARIXSCH JARIXSCF under "Note Ll". 

ARIXSCH ARIXEDB ARIXSRT ARIXSCH 
ARIXSRT ARIXEER >ARICHSG ARIXSRT 
ARICHSG ARIXECK ARICWSF ARICWSG 
ARICWSF ARIXSRT ARIXEDB ARICWSF 
ARIXEDB ARIXA02 ARIXEDB 

ARIXI20 

ARIXIO07 ARIXI08& ARIXIO9 ARIXILO ARIXI12 
ARISCHR ARIXEER ARIXEER ARIXEER ARIXEER 
ARIXSOB ARIXECK ARIXECK ARIXI22 AR IXECK 
ARICHSG »ARICWSG ARIXSCF | L—+AaRIXI27? ARIXSCH 
ARICWSF ARICWSF ARIXSCH ARIXI29# ARIXEDB 
ARIXEDB ARIXEDB DARIXMSRT ARIXI23 ARIXECW 
ARIXEER ARICHSG | L-sarrxr27? ARIXI16 
ARIXECK ARICHSF ARIXI292 ARIXECK 
ARIXSRT ARIXSCP ARIXI32*—p»aRrIxr28! ARIXSCH 
ARIXA02 MARIXA02Z ARIXSDB 
ARIXA06 JARIXADG ARIXSRT 

PARIXSLN ARIXI24 ARIXI25 ARICI26 ARICI30 ARICWSG 
ARIXSOB Pesiecy ARICMSF 
JARIXSOT ARIXI314 ARIXEDB 
PARIXEDB 
ARIXI27 ARIXI29 ARIXI32? 
LyARIXI28 Note 1: 
, ARIXI27 - CDELETE for index or 

ARIXI13 ARIXIL5 ARIXLI6 ARIXI33 entry in SYSDROP. 
ARIXSCH ARIXEER ARIXEER ARIXEER ARIXI28 ~ Delete all rows on link 
ARIXSDB ARI XECK ARIXECK JOARIXECK } from SYSCAT to CATNAME. 
ARICWSG ARYXSCH ARIXSCH |}AARICWSG ARIXI29 ARIXI30 ARIXISL ARIXI29 - Drop dependencies on 
ARICWSF ARICWSG ARICECN ARICWSF ARYXI27 dropped object. 
ARIXEDB ARICNSF ARIXEDB | SARIXOFE ARIXI3L ARIXI31 - Drop dependent SYSUSAGE 
ARIXEER ARIXEDB -ARTIXEDB rous. 

ARTIXECK ARIXSRT ARIXI32 - Remove catalog rows for 
ARIXSRT ARIXOCK dropped table. 
ARIXA06 ARIXTII9 
ARIXEER 
AR IXECK ARIXIST 
ARIXETR ARIXISH 
ARIXEDB ARIXEER 
ARIXI2O ARIXECK 
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*% From ARIXERD 


| a | ARIXII4 ~ Top Interpreter Module 


NZ 
ARIXIOL ACQUIRE 
OBSPACE 
DSBSPACE 
COMMENT 


ARIXI06 ARIXI2Z0 |UPDATE STATISTICS 
CREATE 
INDEX 


RELATION 
SYNONYN 
VIER 
ARIXI10. 


ARIXI14 is tha 
top module for 
the Interpreter 
component of RDS. 
It calls various 
other Interpreter 
modules depending 
on NODETYPE 
(operation). 


ARIXI22 DROP 
INDEX 
TABLE 
ARIXI24 DROP 
VIEH 


DBSPACE 
TABLE DROP 
SYNONYM 


ARIXI30 DROP 
ARIXI16 ROLLBACK WORK PROGRAM 
ARIXI3 ARIXIL9 ARIXI20 UPDATE 
Get information for STATISTICS 


UPDATE STATISTICS 


ARIXAO7 | GRANT 
ARIXAGS | REVOKE 


Privilege 
Privilege 


ARIXEER Issue error 
nessage 


DROP Object 


Clean up 
SYSOROP 


ARIXI15 LOCK ODBSPACE 
or TABLE 
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AUTHORIZATION 


The folloving diagrams shou froa where the authorization 
modules are called and the interactions between the 
authorization aodules. More detailed diagrams follow this 
one. For a description of the individual modules, see 
Section 3, Program Organization. 


ARIXERD ARIXOCOP, ARIXOIN» ARIXOSC, 


ARIXIO7, ARIXIO9, ARIXI13 | ARIXI14 ARIXI14¢ 


ARIXAOL 
Check CONNECT ARIXA06 5 ARIXA07 ARIXA09 
authorization GRANT Authority GRANT Privilege Revoke 
rrivilege 
Return tL | | — 


Return 


Return Return 


ARIXELX, ARIXERD, ARIXIO3, ARIXIO7, ———— 


ARIXIO9, ARIXI25, ARIXOIN, ARIXOOP,+—> ARIXA02 
ARIXOSCs Check 


Privileges 


ARIXA06 
Revoke 
authority 


Return 


eal oe ARIXAO4 
ARTXI32 DROP/REVOKE 
ARIXA03 
J Delete coluans 
Return fron SYSCOLAUTH 


Return 


ARIXALI 
Calculate rnininun 
AUTH for o view 


ARIXA10 


Calculate aininun 
time 


Return Return 
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* Called by ARIXERD 


# 


\/ ARIXAG] ~ CONNECT 
sly 
Ease 

7{| ARIXAOI is called to 
check the passuord 
by looking into 
SYSUSERAUTH catalog 
and to initialize 


ARIXEER | Issue error aessage 
(knoun cause). 


ARIXECK Issue error message 
(unknoun cause). 


for the SCHEDULE 
CONNECT. 


Allocate storage. 


> 
zi 
ror 
rs 
uw 
on 


ARI 


7 


SF Free allocated storage. 


Linkage to DBSS. 


Calculate length of 
character string. 


Rr be 
a a 
bes H 
Pes es 
w mt 
Cc o 
= o 


* Called by: ARIXA0S, ARIXAQ7, ARIXA09, ARIXELX, ARIXERD, 
ARIXI03, ARIXIO7, ARIXIO9, ARIXI25, ARIXOIN, 
xt ARIXOOP: ARIXOSC, ARIXOVD 
\_/. ARIXAOZ - Check User Authority 


Checks whether a user 
is authorized to 
rerform a specific 
operation on an 
arbitrary relation or 
whether he is alloved 
to run @ progran. 


Issue error message 
(known cause), 


ARIXECK Issue error message 
{unknown cause). 


ARIXSCF Convert fullvord into 
character. 


ARIXSCH Convert halfvord into 
character. 


ARIXSLN | Calculate length of 
character string. 


ARIXEDB Linkage to DBSS. 


> 
a 
4 
~ 
m 
m 
xz 
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* Called by ARIXA04, ARIXAO8, ARIXA09 


\7 ARIXA03 - Delete Colunns from SYSCOLAUTH 


This nodule is 
responsible for deletion 
of columns from SYSCOLAUTH 
associated with target 

of a deleted TABAUTH row. 


Issue error ressage 
(unknown cause). 


ARIXSRT Restores work in 


ease of error. 


Linkage to DBSS. 


*% Called by: ARIXA04 (recursive call), *% Called by: ARIXOOP, ARIXDIN, ARIXOSC, 
ARIXA11, ARIXI30,5 ARIXIO7, ARIXIO9, ARIXI13; 
| ARIX132 * ARIXA07 
N77 ARIXA04 - DROP/REVOKE \7 ARIXA06 - GRANT Authority 
ely u 
wuee) This module is 
7\ responsible for 
deletion of rous 
from: 
SYSTEM. SYSTABAUTH 
SYSTEM.SYSCOLAUTH 


This nodule is 
responsible for all 
entries in these 
tables: 


SYSTEM. SYSTABAUTH 
SYSTEM. SYSCOLAUTH 
SYSTEM. SYSUSERAUTH 
SYSTEM. SYSPROGAUTH 


SYSTEM. SYSUSERAUTH 
SYSTEM. SYSPROGAUTH 
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Issue error message 
(known cause). 


Restore logical unit of 
work in case of error. 


Allocate storage. 


Free storage. 


Check privileges. 


Calculate length of 
character string. 


Get unique character 
string (time stamp). 


Linkage to DBSS. 
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* Called by: ARIXI14¢ 


\_7.- ARIXA07 - GRANT Privilege 
ely — 
sues! Authorizations are 
¢| checked by calling 


ARIXA02, and object 
existence is checked 
in the catalogs. 
ARIXAO06 ts then called 
for each user in the 
usernode list. 


ARTXECK 


ARICWSS 


ARIXA02 


ARIXA06 


ARIXSLN 


ARTXEDB 
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Issue error message 
(known cause). 


Issue error nessage 
(unknown cause). 


Allocata storage. 


Free allocated storage. 


Check privileges. 


Grant privileges 
(update AUTH catalogs). 


Calculate length of 
character string. 


Linkage to DBSS. 
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* Called bys ARIXA08 (recursive 


a] call), ARIXAO09 
* 


ARIXA08 - REVOKE Authority 


\ 


ary 
el 
sen This nodule searches 
along a chain of 
grantor/grantee 
combinations. After 
being called by ARTXSRT Restore logical unit of 
ARTIXA09, ARIXA0NS8 calls work in case of error. 
itself if it found a 

grantee that granted 
his rights to somebody 
else, a grantee that 
has used a table ina 
program, or a grantee 
who has defined a view. 


Nez 


ARIXECK Issue error message 
(unknown cause). 


ARIXSLN Calculate character 
string length. 


ARTXA03 Delete columns from 
SYSCOLAUTH. 
ARIXI102| Drop AUX or view. 


ARIXEDS Linkage to DBSS. 


ARIXA02 Check privilege 


A 
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* Called by: ARIXI14¢ 


“7 ARIXAO9 ~ REVOKE Privilege 


eee) ARIXAQ9 is responsible 
/) for the revocation of 

rowl(s) corresponding to 
the GRANT command 
issued fron the revoker 
to the revokee at an 
earlier time. Only 
this initial row is 
handled by ARIXAO9. 
The other rous in the 
authorization table 
that might be affected 
by that REVOKE command 
are handled by ARIXA06. 
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ARIXSRT 


ARIXEDB 


5 
: 
is) 


Issue error nessage 
(knoun cause). 


Issue error sessage 
(unknown cause). 


Restore logical unit of 
vork in case of error. 


Calculate length of 
character string. 


Drop AUX or view. 


Check privileges. 


Delete rows from 
SYSCOLAUTH. 


Search along grantor/grantee 
chain and revoke authority. 


Linkage to DBSS. 
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* Called by: ARIXA0S 


| 
ar 


ey 
uae 
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ARIXA10 - Calculate Miniaua Tine 


ARIXALO calculates 
the mininum tine 
when a specific 
grantee has received 
his authorization 
rights. 


ARIXA]1 calculates the 
mininum authorization 
for a view. When a 
vieu is created or an 
update on a view AUTH 
is made, the nininun 


AUTH on the view fron 
all the underlying 
tables can be used or 
granted. 
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Issue error message 
Cunknown cause). 


Allocate storage. 
Free allocated storage. 
Calculate length of 


character string. 


Linkage to DBSS. 


Issue error message 
Cunknoun cause}. 


Restore logical unit of 
work in case of error. 


Calculate length of 
character string. 


Delete authorization 
rous. 


Linkage to DBSS. 
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DATA SYSTEM CONTROL (DSC) 


The Data Sys 


tem Control {DSC) component provides the control handle aultiple concurrent users and to communicate with 


services for SQL/DS. Its then) 
® Provides systen-dependent routines that shield the other 
® Controls the initialization and termination of SQL/DS | subcomponents from the VSE/Advanced Functions and VM/SP 
® Provides for the other SQL/DS conponents system interfaces (that is, it allows the other 
- Storage Services - Message Services subcomponents of SQL/DS to be syster independent). 
- Operator Services - Trace Services 


@ Provides Agent Handling and Communications capabilities 
(that is, it allows other subcomponents of SQL/DS to 


DSC OVERVIEW 


For a high-level view of how DSC fits in to the SQL/DS scheme, refer back to page 6. 


DSC SUBCOMPON 


3 


1 2 4 5 6 ? r) 
Initialization] |Storage Operator Message Agent Handling Trace Systea Dependent 
Services Services Services and Consunications Services Routines 


FARISUBBT 
ARICIP1 
ARICIP2 
ARICPRM 


ARICTKN 
ARICCRA 
ARICENA 
ARICHOD 


See page 
See page 
See page 
See page 
See page 
See page 
See page 


wow hm UN ew 


ARICSHT 
ARICWSI ARIYMOL ARLYHOS ARICDSP ARICTRI ARICTRM 
ARICWSG ARIYHOS ARICDHT ARICTRC ARICABE 
ARICWSF ARIYEL3 ARICDPT ARIXETR ARICOMP 
ARICWFR ARICCLA ARIYE1G ARICPDH 
ARICSTK ARICRST ARIYEOL ARIYNO2 
ARICGSE ARICENA 
ARICFSE ARICHAT 
ARICHUD 
ARICSPN 
112 for Initialization. ARICOMB 
136 for Storage Services. ARICIMB 
139 For Operator Services, ARICHMB 
146 for Message Services. 


151 for Agent Handling. 
188 for Trace Services. 
106 for the OSC system dependent module ARICCOM, page 513 for ARISYSD, page 109 for ARISDOOD 


and ARISDOID, page 109 for ARISYSE; page 109 for ARISYSF, and page 109 for ARISYSG. 


(0-suf f ix 


modules are VSE/Advanced Functions only, and C-suffix nodules are VM/SP only.) 


See page 209 for Termination 


VM environment only. (This is the ARISDBK nodule after a “GENMOO" under the name ARISOBBT.) 
VM environsent only. 


Initialization Modules 


ARISDBBT = ('°GENMODed' version of ARISDBK.) In the VM 


ARICIP? - 
ARICIP2 - 
ARICPRM - 
ARICTKN - 
ARICCRA - 


ARYCENA = 


ARICNOD - 


Storage 


ARTCHST = 


ARICNSG - 
ARICWSF = 


ARICWFR = 


ARICSTK - 


ARICGSE - 


ARICFSE - 


environnent, this bootstrap nodule leads the 
DBSS/DSC and RDS code into the specified area and 
then branches to Initialization Phase 1 {ARICIP1). 
Initialization Phase 1. Establish the initial 
environment. 

Initialization Phase 2. Complete the 
initialization. 

Parameter Processor. Process the SQL/DS 
paraareters. 

Tokenizer Routine. Get a token from the parameter 
string (keyword = xxx). 

Create Agent Structure. Allocate and create the 
agent structure control blocks. 

Enable Agent Structure. Makes an agent structure 
dispatchable. In VSE, for MPH, it will “connect 
the cross-partition link”. 

Phase (no code) “loaded” by Batch Resource Manager 
to determine if the environment is MPM or SPH for 
VSE, or MVMM or SVMM for VM. 


Services Modules 


Initialize Working Storage. Allocate and 
initialize a vorking storage pool for an Agent 
Structure. 

Get Working Storage. Get working storage frorx the 
agent's pool. 

Free Working Storage. Return working storage to 
the agent's pool. 

Free Extended Working Storage Pools. 
Unconditionally free all extended vorking storage 
pools. 

Initialize Stack Storage. Allocate and initialize 
stack storage pool. 

Get Stack Extension. Aliocate and initialize 
extensions to the stack storage pool. 

Free Stack Extension. Free an extension to the 
stack storage pool. 


Operator Services Modules 


| ARICSHO - 


Displays users connected to SQL/DS (VM only). 
ARICSHO enables the operator to display the VM 
userid and the SQL id of the users connected to a 
real agent, vaiting for a real agent,» and 
inactive. 
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ARIYMO!L = Establishes Supervisor ‘linkage for operator 
command processing and issues S5QL/DS 
initialization complete message. 

ARISOCN - Entered due to VSE/Advanced Functions MSG operator 
command. Causes the operator agent to be ‘waked 
up’ and dispatched to perforr operator command 

| processing (VSE only). 

ARIYMIO Processes all SQL/DS operator commands (system 
operator and ISQL), Prompts/reads command {system 
operator), tekenizes and validates command, rovtes 
it for command processing and issues error or 
completion message. 

ARTYMIL ~- Routes cperator command (systen operator or ISQL) 
to command processing module. Validates name for 
SHOW commands. 


Message Services Modules 


ARIYMOS - Calied (via HSG or RMSG macro) to retrieve, fornat 
and output a SQL/DS message for DBSS, DSC, RDS; 
and Batch and On-line Resource Managers. Supports 
prompting (WTOR) messages. 

ARIYMOS - Retrieves (from message nodules) and edits/foraats 
SQL/DS ressage lines including translation (for 
example, binary to decinal) and substitution of 
message variables. Called by ARIYMO4. 

ARIYELS - Routes display lines and ressages. Routes to ISQL 
for ISQL command processing. Routes to ARISYSOH 
for output under control of the SQL/DS DSPLYDEV 

| parameter, or to ARIYM50 for operator output, or 
to ARIYM5] for operator output with reply. 
Routing flags control output destination. 


Agent Handling and Communication Modules 


ARICDSP - SQL/DS Dispatcher. Dispatch agents» provide the 
operating system wait, and handle cross-partition 
(VSE) or Inter-User Coamunication Vehicle (IUCV) 
(VM) link termination. 
ARICOWT - Dispatcher Wait Routine. Provide the DSC/DBSS 
linkage to the Dispatcher. 
ARICDPT - Post an Agent Structure. Take an agent out of 
General or Lock Wait. 
| ARTCCLA = Clean Up Agent Routine. Disconnect agent from XPTN 
er IUCY link. If SHUTDOWN issued, post the 
checkpoint agent vhen all agent structures are 
inactive. 
ARICRST - Reset Storage Routine. Frees up storage used by an 
agent (stack storage, working storage, etc). 
ARICENA ~ Enable Agent Structure. For VSE re-enable agent 
structure, “connect cross~partition link". For VM 
it will deallocate = "pseudo agent" froma a real 
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ARICHAT - 


ARICMUD ~ 


ARICSPH - 


ARICOMS 


ARICIHG 


ARTICHMe 


agent and allocate a "waiting pseudo agent" to a 
real agent whenever a real agent completes a LUM. 
Cross-partition Wait Routine (RDS}. Provide the 
RDS linkage to the Dispatcher for cross-partition 
(VSE) or inter-user communication vehicle (VM) 
wait. It will also drive the “rollback” process 
(bhackout}. 

Cross-partition (VSE)} or inter-usexr communication 
vehicle {VM) Message Receive Routine (RDS). 
Receive data (message) sent by the Resource 
Managers. 

Single-Partition Hode Linkage Routine. For YSE, 
load (CDLOAD) the user application, GENCATs 
ADDSEG, DBS Utility, etc, and transfer control to 
it (BALR 14,153. In VM, the routine has been 
loaded; it only invokes the routine. 

Output Mailbox Processor (RDS). Put the reply 
(message) into an output mailbox and send it 
(REPLY) to the Resource Manager(s). 

Input Mailbox Processor (Resource Manager}, Build 
the input mailbox for the Resource Manager({s). 
Input mailbox to be sent (SENDR) to the SQL/0S 
partition. 

Hove Data Routine (Resource Manager). Move data to 
the user application area. 


Trace Services Medules 


ARICTRI - 


ARTICTRE - 


ARIXETR = 


ARTYELG - 
ARTYEO] =- 


Called if TRACOBSS or TRACROS parameters are 
specified. ARICTRI prompts the operator to ready 
trace tape, opéns trace output file and enables 
SQL/DS tracing. 

Called to process the TRACE operater command to 
enable or disable SQL/DS tracing. For TRACE ON, 
ARICTRE prompts for various tracing options. Entry 
point ARICTRC] is called to shut down/close trace 
during SQL/ODS termination. 

Called (via XTRACE macro) to process an RDS trace 
point and generate and write trace output. 

Called (via TRACE macro) to process a DBSS trace 
point and generate and write trace output. 

Called by ARIYMO0 if DBSS entry or DBSS exit 
tracing is active. Produces level 1 trace output 
(via TRACE macro) or calls (if it exists) level 2 
trace module for the DBSS operation code. 
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System-Dependent Routines 


ARICCOM = 


Communication Manager. Provide the VSE 
Cross-Partition Communication or VM Inter-User 
Communication Vehicle interface for SQL/DS. 


SQL/DS Interrupt Handler. Handles external 
interrupts vhich occur as the result of using the 
Tucv. 

Provides a systen-dependent interface to either 
the various VSE functions or VM functions used by 
SQL/DS. It contains multiple entry points 
(described in Section 3+ Program Organization 
starting on page 512). 


ARISDOOD - VSE/Advanced Functions Root Phase for I/0 


Modules, Used to determine vhat type of SAM file 
processing is required and loads and invokes the 
appropriate I/O aodule (ARISOnn). This nodule 
performs SAM file processing for SYSIPT, SYSLST, 
and SYSPCH files. Invoked via entry point 
ARISYSOS in module ARISYSOD. 


ARTISDOID ~ VSE/Advanced Functions Source Statenent Library 


ARISYSE - 


ARISYSF - 


ARISYSG - 


Read Access Routine. Used to find and read a 
nenber in the Source Statement Library. Invoked 
via entry point ARISYSDS in zedule ARISYSOD. 
SQL/DS. VM/SP System-Dependent Routine. Provides 
SAM file processing (including work files for 
PREP?) for all SQL/DS components except ISQL. It 
is always invoked via the entry point ARISYSD5. 
(Also see page 515.) 

SQL/0S VH/SP System-Dependent Routine. It is the 
counterpart to VSE/Advanced Functions module 


ARISDOID. Used to find and read a “card image” 
CHS file. It is always invoked via entry point 
ARISYSDS. (Also see page 515.) 


SQL/DS VM/SP Systern-Dependent Routine. Called 
during SQL/D5 initialization and termination to 
display information such as messages and 
nini-dusps to the virtual machine terminal. 
exists because of the VSE/Advanced Functions 
SQL/DS DSPLYDEY parameter, which is ignored by 
VU/SP SQL/DS. It is always invoked via entry 
point ARISYSDH. (This module is alse briefly 
described on page 515.) 


It 


DSC Texmination Modules 


ARICSHT - 


SQL/DS Shutdown Routine. Handle the system 
operator SHUTDOWN command (NORHAL, ARCHIVE, or 
QUICK}. 
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ARICTRM ~ SQL/OS Termination Routine. "Close" SQL/DS and ARICPDMN - SQL/DS Snap Dunp Routine. VSE “PDUMP" the entire 


return to the operating system (BR 14), SQL/DS partition or VN "CP DUMP" the entire 
j ARICABE - SQL/DS ABEND Handler. VSE "'STXIT AB" ox VM DMSABN virtual machine, or the partition/virtual machine 
routine to handle abnormal termination and prograp minus the the major phases/programs (DBSS/DSC, 
check conditions. RDS,» Batch Resource Manager, etc.). 
ARICDMP - SQL/DS Dump Routine. "Dump" selected areas of the ARIYMNO2 - SQL/DS System Error Routine. Called by SQL/DS 
SQL/DS partition (VSE) or SQL/DS virtual machine routines to simulate an "ABEND" condition, 


(VM) to the printer and/or console. 
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DSG INITIALIZATION 


ARISOBST ~ Bootstrap module ('GENNODed* version of ARISOBKC) 


® Used for VM only. 

- Load the DBSS/DSC and RDS 
code into the specified 
area. 

= Branch to 


ARICIPL 
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DSC Initialization (continued) 


ARICIPI (Initialization Phase 1) 


® If VM and SQL/DS startup 
Farameters vere specified 
on the EXEC command, 

obtain storage for the 
parameter structure. 


ARISYSDG 


Do operating system load {via CULOAD) if VSE 


ARISYSD6 or ARISYSD9 - Do operating system load (via NUCXLOAD) 
if vm 


i. "AN ERROR OCCURRED IN THE ATTEMPT TO LOAD PROGRAM ARICHOD’ (026) 
[anrsvsos | 
2. 


If the error was an ‘insufficient storage’ or ‘program = = found! 
condition, then the follouing nessage is printed: 

RETURN "SQL/0S REASON CODE IS nn" (042) 

Othervise, the follouing message is printed: 


VSE ~- "CGLOAD - REASON = nn" (047) 
ARISYSOG VM - "NUCXLOAD - REASON = nn" £047) 


3. “SQL/DS RETURN CODE IS nnn" (043) 


Load DS¢CMODE (ARICHOD) 


If error, 


and return to 
systen 


® Get storage for global 
control blocks 


® Allocate and initialize 
pointers for global control 
blocks from storage just 


obtained: 

- DS2CVT 1 these tuo tables have the same format as DSCAREA and YTABLE]. 
- YRSSCVT They are used during initialization and during abnormal 

~ ROCVT termination situations. The DSCAREAP will also contain the 


~ DSCAREAP (prototype)? 

- YTABLEIP (prototype)? 

- STACK for YTABLEIP 

- CPLIST (for VM} 

- Printer File Descriptor 
Block (for VSE) 

- IUCV logon VMCBLOCK (for 
vM) 

~ IUCV CONNECT VMCBLOCK 
(for VMN) 


pointer to the initial working storage. The YTABLEIP will 
contain certain parameter values passed to SQL/D5. The 
YTABLELP will he copied into other YTABLE] control blecks 
allocated during initialization. 


® Save return point to 
this module (address of 
CLEANUP routine) in DS2CVT 
field DSERETRG, so SQL/DS 
termination (ARICTRM? knous 
where to return to perforr 
storage cleanup. 


© If VSE, get partition 
boundaries and DSC/DBSS 
phase start and end 
address. 


ARISYSDC 
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- Get the virtual machine 


OSC Initialization (continued) 
userid. 
- Get the virtual aachine 


* If VW, get the following 
information from the 
internal table passed by 
the ARISDBBY bootstrap 
module: 

1. Size of the virtual 
machine 
2. DSC/DBSS start and end 
addresses 
start and end addresses, 
| 


ARISYSDE 
ARISYSD2 


3. ROS start and end 
addresses 
and the pointer to the 
console ECB. 
- Free the ARISDBBT 
bootstrap module storage. 
If error 


Error detection point (11) 
ARIYMO2 | (See page 224 for ARIYHO2) 
ARICABE (page 213) 
ARIYHOS Display: "PROGRAM xxxxxxxx IS LOADED AT aaaaaa’’ !025) 


(see page 123 for the parameters and where they are stored) 
ARIYM0% [Displsy: "SQL/DS RETURN CODE" (043) 


* Display load information 
for DBSS/DSC, ROS (if VM), 
and ARICMOD. 


® Process SQL/DS paraneters 
If error» 


and return to systen 


®° If VH: 

- Set system mask to 
disable external 
interrupts. 

= Logon to IUCV and 
obtain the maximum number 
of IUCY connections. 

- If error» 


ARIYHCS |Display: "SYSTEM COMMUNICATION ERROR" (627) 


Error detection point (12) 
ARTYHO? (See page 224 for ARIYMD2) 


| ARICABE | (page 213) 
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DSC Initialization (continued) 


~ Disable CONNECT 
interrupts 
~ If error, 


; 

ARIYMO4 [|Disple.: “SYSTEM COMMUNICATION ERROR” (027} 
Error detection point (13) 

(See page 224 for ARIYMO2) 

a | (page 213) 


- Set system nask to enable 
external interrupts. 


® Calculate space required 
for remaining global and 
local tables. 


® Allocate initial vorking 2 This does not include the vorking 


storage for the renaining storage for each S@L/DS agent structure. 
tables # ARICWSI 
If error Exror detection point (01) 


| ARIYMOZ | (see pr. 224 for details) 


® Obtain vorking storage 
for: Note: For each control block set,» ARICIP1] calls ARICWSG to obtain 
- WAITECB parameter list storage fron the pool allocated by ARICHSI. Termination 
(VM only) points 02 ~ 06, 10, 1%, and 17 can occur here. 


- WAITM (VSE) or WAITECB 
{VM) list fand initialize 
with pointers to a 
dunry ECB) 

- DCE Array (set each DCE 
to “inactive” and chain 
thea together) 

- If VSE, CPC IDENTIFY 
and all CPC CONNECT 
control blocks (multiple- 
Fartition mode only) 

- If VM, Communication 
Block Queue Header,» 
Communication Block Queue 
Elements, and VMCBLOCKs 
(SVM and MVMM). 

- Trace Tape File Descrip- 
tor Block 

=- TPMAP Array 

- Lock Wait Table 

- S-Latch Table 

- Named Gate Table 

- Free List (LRBs) 

- YTABLES 
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DSC Initialization (continued) 
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System counters 

- Page buffers 

- Directory buffers 
Buffer Contents Table 
(Page and Directory?) 


{ 


ARISYSOK 


Set abend exit (ARICABE) 


Error detection point (16) 
If error 


ARIYNO2 | (see page 224 for ARIYMO02) 


ARICABE (page 213) 


If VN and SVM: 
- load the user 
application 

- If error, 


ARISYSD9 


Hy 


ARIYMO04 |Display: “AN ERROR OCCURRED IN THE ATTEMPT TO LOAD 
PROGRAM xxxxxuxx' £026) 


- If NOT a limit error | ARIYHOG Display: "VYYYYYYY - REASON = Xx" (047) 


where YYYYYYYY is LOADMOD, NUCXLOAD, LOADSYS, FETCH or 


LOAD; and XX is the return code froma the YYYYYYYY 
load attempt. 


- If a limit error, set 
limit error svitch so 
a durp is not produced. 

Error detection point (18) 


- For all errors, ARTYNO2 (see page 224 for ARIYMO2) 


- If no error ARIYMOS |[Display: "PROGRAM xxxxxxxx LOADED AT aaaaaa"” (025) 


Do operating system load (via CDLOAD) 
Tf VSE, load RDS (if 


STARTUP = W or R) 
If errors: 


ARITSYSD6 


EF 
i 


ARIYMO4 |Display: "AN ERROR OCCURRED IN THE ATTEMPT TO LOAD PROGRAN 


ARIXRDS" (026) 
ARIYNOZ Error detection point (07) 


{sea page 224 for ARIYNO2) 


If no error: ARIYHOQ4 |Display: "PROGRAM ARIXRDS IS LOADED AT anaaaa” (025) 


If STARTUP = Wor R, 


initialize the RDCVT ARTXELK 


! 


Create Agent 
Create the Operator Agent 
Structure 


ARICCRA 


y 
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psc 
| 


° 
q 


CLEANUP:2 


© 
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Initialization (continued} 


Enable the Operator Agent 
Structure 


| ARICEINA 
»| ARICDSP 


>| anrsysoK | 


Dispatch the Operator 
Agent Structure ———— 


If termination recursion 
flag is on (OS2RETRM=1): 
~ Clear ABEND exit 
If VSE, return to system 
with return code 516. 

If VM, abend with 

code 25u. 


If termination recursion 
flag is not on (DS2RETRN 
=0), do for each agent 
{DSCAREA), except the 
prototype agent.° 
1. Release storage pointed 
to by each element of 
the storage queue 
(DSCSTGCH ) 
2. Release storage 
extensions 
3. Free working storage 
(obtained via calls to 
ARICHSI) 


2 aRtsys02| 
| ARICRST | 
»| anrsysoe| 


— 
>| ARICFSE | 


Get addressability to 
Prototype Agent structure 


Reset stack to initial 
state. 


Perform Steps 1 and 2 above 
for Prototype Agent 


Release vorking storage 
extensions 


| ARICHFR 


Perform Step 3 above for 
Prototype Agent. 


If VM and storage for 
SQL/DS startup parameters 
was obtained, free this ¢— 
storage 


ARISYSD2 


SQL/Data System Logic, Volume 1} 


1 The actual nodule called at this point 


[ Make agent structure dispatchable and, if VSE and MPM, “connect cross-partition Link” 


(via the Dispatcher) is 


ARICIP2. The remainder of initialization will run as a dispatchable 


SQL/DS task under the Operator Agent Structure. 


See ARICIP2 


(Initialization Phase 2) on the next page. 


After SQL/DS termination processing is 


complete, the SQL/DS 


termination routine (ARICTRM) obtains the address of the 
storage cleanup routine (CLEANUP in ARICIP!) from the field 
DS2RETRG in the DS2CVT, and branches to this routine. 


The process begins with the checkpoint agent, and continues 


through the general purpose agent(s). 
is done last. 


The operator agent 
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DSC Initialization (continued) 


® Clear the abend exit ARISYSOK 
© If VN, and single-user 
mode; then: 
~ If the user application 
Frogram vas loaded via a 
NUCXLOAD, free this 
storage via a NUCXDROP. 


ARTSYSD9 


If error, abend with 
code 249, 


~ If the user application 
Program vas loaded via a 
LOADSYS diagnose, free 
this storage via a 
PURGESYS diagnose. 


ARISYSO9 


If error, akend vith 
code 248. 


~ If the Resource Manager 
vas loaded via a 
NUCXLOAD, free this 
storage via a NUXCDROP, 


If error, abend with 
code 247. 


° If VW. free storage for 
ARICMOD via a NUCXDROP. 


ARISYSD9 


| 


If error, abend with code 
246. 


* Release storage required 
for global control blocks; 
protetyfe control blocks, 
and initial stack. 


ARISYSO2 


®* Return to systan. 
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OSC 


Initialization (continued} 


%* From ARICIP) 
ARICIP2 (Ynitialization Phase 23) 


116 


If VSE and MPM, "logon" to 
use CPC services: 
a. Identify SQL/DS as a € 
subsysten (SUBSID) 
If error: 


Provide VSE CPC interface for SQL/DS 
| ARICCOM 


| ARTYHOS | Display "SYSTEM COMMUNICATION ERROR" (027) 
ARIYHO2 ARICABE (Page 213) 
Error detection point 01 


(see page 224% for ARIYNO23 


ARICCOM 


| ARTYMOS Display “SYSTEM COMMUNICATION ERROR" (027) 


ARTYMO2 } ARICABE | (Page 213) 
Error detection point 02 


(see page 224 for ARIYHO2) 


ARICCOM 


>| ARIYHOG | Display "SYSTEM COMMUNICATION ERROR" (027) 
ARIYMO2 | ARrCaBe | (Page 213) 
Error detection point 63 


ARIYTOO 
"Close" SQL/DS and return to operating systen (BR 14) 


ARIXERO | Read catalog addresses of all systen catalogs 
ARIYMO2 >| ARICABE (Page 213) 
Error detection point 04 


(see page 224 for ARIYHO2) 


bh. Perform CPC logon 
CIDENT) for the General 
Agent Structure(s) 
CSYSARIGO) 
If error: 


€. Perform CPC logon 
CIDENT) for the Indoubt 
Agent Structure(s) 
CSYSARIIO) 
If error: 


Perforr DBSS initialization 
CYINITRSS} 


If STARTUP = E (DBEXTENT) 
or L (COLDLOG), terminate 


If STARTUP = W (Warn) or 
R (Recovery), read 
catalog IDs. 

If error: 
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OSC Initialization (continued) 


1 In SPH (VSE) or SVMH (VM), only one General Purpose Agent Structure is created, and 


® Prepare to create and its entry point is ARICSPM. In MPM (VSE) or MVHM (VM), the nusber of General Purpose 
enable General Purpose Agent Structures created is equal to the NCUSERS value sinus the number of Indoubt 
Agent Structure(s) Agent Structures created by ARIYLI3 during OBSS initialization. The entry point 
for both types of agent structures (and for the Ready/Recovery Agent Structure, 
a. Create General Purpose ereated by ARIYLOO) is the ARIXERD nodule in RDS. 


Agent Structure 
ARICCRA 
b. Enable General Purpose 
Agent Structure * 
@ If MPM CVSE): 
a. Perform CPC logon ARICCON 
(IDENT) for the Ready/ 


Recovery Agent 


(SYSARIRO) 
If error: 


| ARIYHOS | Display ‘'SYSTEM COMMUNICATION ERROR" (027) 


Error detection point 06 
b. Enable Ready/Recovery (see page 22% for ARIYMNO2) 
Agent Structure 


© if VM: 


- Enable CONNECT 
if error, 
ARIYHO4 [Display: “SYSTEM COMMUNICATION ERROR" (027) 
Error detection point (08) 
} arzyito2 | (see page 224 for ARIYMOZ) 
| ARICABE | (page 213) 


® Perforan Operator Communica- 
tions Initialization : Via Dispatcher | ARICSPM (SPM/SVMM? | 
me ARIXERD (MPM/MVMM? | 

© If xeturna Error detection point 07 ! ARTYLOS (CHKPT) a 


At this point, initialization {see page 224 for ARLYNO2) 
is complete and the agent 

structures will be dispatched 

vhen the Operator Agent 

Structure goes into an 

SQL/DS wait state. 
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DSC Initialization (continued) 
ARICPRM (Process SQL/DS Parameters 


® Initialize the default 
table: 
NBLKBUF, NCUSERS, NLRBS» 
and NPAGBUF are set to 0 
® If no JCL parameters have 
been specified: 
a. 


— 


@ Perforn the following steps 
when JCL parameters are 
specified: 
~ Initialize the JCL and PDS 

(Paraneter Data Set) 
tables to null values 
- If JCL parameter string 
contains user paraneters 

{folloving a "/"), create 

a “user parameter area" 

and place the user 

parameters in it. 

If the JCL parameter 

string contains SQL/DS 

paraneters: 

a. Get SQL/DS parameter 


(keyvord=value)} 
PARMSCAN 


token. 
b. ———————- 
c. Repeat until all 
JCL pararzeters 
processed 
If a valid PDS was 
specified (PARMID 
POS name} 
If no JCL or FOS 
“severe errors were en- 
countered: 
a. Merge the Default, PDS, 


values ¢— | MERGE 


b. Diagnose 
conflicts 
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and JCL parameter rnerce | 


yp? 


1 In the discussion of this nodule and its subroutines, the terr 
“JCL" applies to VSE only. For VM, each occurrence of "JCL" 
should be read as "CMD"; that is» parameters were specified on 
the CHS startup EXEC command statement. 


Update fields in DS2CVT, YRSSCVT, 
RDCVT, and YTABLE] (prototype? (see page 123 for UPDATE subroutine) 
Display the resolved paraneters values 

(according te DSPLYDEV setting) (see page 124 for DISPLAY subroutine) 
Note: For VM, DSPLYDEV C (CONSOLE) is enforced. 


= 


| A (page 121) 


Ni 


Get storage 
| ARISYSOG 

Tokenizer routine 
| ARICTKN (page 128} 


Process parameter token 


(see page 122 for subroutine) 


Process the parameters in the PDS 
(see page 122 for this subroutine) 


Merge the values 
(see page 123 for subroutine} 


. al 


— CHKCONFL | 


Diagnose any parameter conflicts 
(see page 124 for subroutine) 
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DSC Initialization t{continued) 


c. Update fields Update fields in DS2CVT» YRSSCVT» RDCVT> 
and YTABLE1 (prototype) 
{see page 123 for subroutine} 


dad. Display resolved Display resolved parameter values according to 

values €—>| DISPLAY | DSPLYDEV setting (see page 124 for subroutine) 
Note: For VM» DSPLYDEV = C (CONSOLE) is enforced. 
If any user parameters vere 


specified, update the 
pointer in the DS2CVT 
(DS2PARMP) to point to the 
user parameter string 
Initialize the DBSS Log 
component indicators. 


If a severe JCL or PDS Display: 
error occurred ARIYMOS | “ERROR OCCURRED IN SQL/DS PARAMETER SPECIFICATION” (017) 


Note: JCL parameters are processed before the POS parameters and 
override the PDS parameters. Therefore, PDS errors will be 
diagnosed, but they will be ignored if there were 
corresponding JCL parameters. It is assured that the JCL 
parameters correct the POS parameter errors. 
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OSC Initialization (continued) 


ARICPRM Subroutines 


PARMSCAN - Process Parameters 


® Scan the token for "="" sign. 
If none found } 
If keyvord is missing 
@ Get keyvord and use for search 
of “routine name" table. If 
keyvord not in table ? 
@ Validate and process 


Display: 
ARTYMO4 1 “INVALID PARAMETER SPECIFICATION" (006) 
2 “KEYWORD IS MISSING" (007) 


3 “INVALID PARAMETER SPECIFICATION” (006) 


PARMRTN is assigned the routine nane to process a given 
SQL/OS paraneter. The entry point is obtained based on 
the “routine name” table index of the keyword. See 
page 125 for this subroutine. 


@ If VSE, “OPEN the SSL (Source 
Statenent Library) using the 
PARMID name. 


Provide read access to library. 
[arzsysoe] 

Provide read access to CMS file. 
' “UNABLE TO OPEN PDS" (002) 


Display: 
"REASON = xx,» CODE = xx" (002) 
“ERROR OCCURRED READING PDS" (003) 
[aersysve| “REASON = xx» CODE = xx" (003) 
“INVALIO RETURN CODE FROM ARISYSDS" (038. 


Display: "ERROR OCCURRED READING PDS" (003) 
ARIYMO4 "REASON = xx, CODE = xx" (003) 
“INVALID RETURN CODE FROM ARISYSDS8" (038) 


er | 


If VH, read a CMS file using 
the PARMID nane. 


If error 


Read statements from SSL 
(VSE) or CMS file (VM) ¢until 
end-of-file). 

If error 


a. Get SQL/DS parameter 
(keyvord=value) token 

b. Process paraneter 

token €——————> 


PARMSCAN 


Repeat until all PDS parameters 
have been processed 
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OSC Initialization (continued?) 


MERGE - Merge Default, PDS, 
and JCL Paraneters 


® Move PDS parareter values 
into Defavit Table 

*® Move JCL parameter values 
into Default Table 

® Set “latent” defaultg for 

NCUSERS, NLRBS, NPAGBUF, and 

NDIRBUF if not specified in 

JCL or PDS 


Parameter Values - Where Stored 


Paremeter Field Contre Block 
ARCHPCT ARCHPCT YRSSCVT 
CHKINTVL AUTOCNT, YRSSCVT 
NPAGSCHK 
DBNAME YRSDBNME YRSSCVT 
DBPSWO DBPSWD YRSSCVT 
DSPLYDEV pS2DSPDV ps2cvT 
DUALLOG DUALLOG YRSSCVT 
DUMPTYPE pDS2DUNPT ps2cvT 
LOGHODE LOGMODE YRSSCVT 
{ LOGARCH) 
NCSCANS NCSCANS YRSSCYT 
NCUSERS NTRANS + nuaber YRSSCVT 


UPDATE ~— Update Tables 


* Hove updated values in the 


Default Table (after merge of 
JEL and PDS) into the DS2CVT, 
YRSSCVT,» RDCVT, and YTABLEL 
(prototype) 
If TRACE paraneters were 
specified, set trace open 
required switch (DS2TROPN) 
Set internal SQL/DS defaults 
Calculate the Naned Gate 
Hashing Value (NNAMGATE). It 
is the first prine nunber 
greater than 

(NCUSERS * NLRBU) / 4. 


Paranete Field 


> See "Parameter Values - Where Stored" 
following this diagram for a list of 
the parameter values and where they 
are stored. 


Control Block 


NLRBS NLRBS YRSSCVT 

NLRBU NLRBU YRSSCVT 
NPAGBUF YTABNPB YRSSCVT 

PARHID Handled internally by ARICPRH 
PROGNAME PROGNANE YRSSCVT 
SLOGCUSH SLOGCUSH YRSSCVT 
SOSLEVEL YSOSLEV YRSSCVT 
STARTUP YRSSTART YRSSCVT 
SYSMODE SYSHODE YTABLEL (Proto) 
TRACDBSS YTATRAC YTABLE1 (Proto) 
TRACRDS RDOCTRAC(RDATRAC} ROCVT (RDAREA) * 


NOIRBUF 


of system agents 
(nurber of systen 
agents is 2 if SUM 
er 3 if MUM) 
YTABNSB 


YRSSCVT 
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% The TRACROS values are temporarily stored in 
the ROCVT. When the agent structure is created, 
these values are rnoved fron the ROCVT into the 
RDAREA. 
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OSC Initialization (continued) 


CHKCONFL — Diagnose Parareter 


Conflicts 


Using SYSMODE and STARTUP as a 
base, diagnose paraneter 
conflicts: 


° If 


SYSMODE=M: 

If STARTUPZW or R>» set 
"severe" error suitch 

If LOGMODE=N, set “severe” 
error suitch 

If PROGNAME=nane ° 


» If LOGMODE#A and ARCHPCT= 
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value 4 


If DUALLOG specified 5 


If VM and no OBNAME 
specified ° 

If NLRBS < NCUSERS * 2 ? 
SYSMODE=S: 

If STARTUP=W ox R and 
PROGNAME not specified, 
set "severe" error 

svuitch 

If NCUSERS > 1 

If PROGNAME specified and 
STARTUP=C,E,L, or § 1° 

If ARCHPCT is specified an 
LOGMODE=Y or N ?? 

If DUALLOG specified and 
STARTUP=H)RsA, or E 


DISPLAY - Print Resolved 


Parameter Values 


® Print resolved SQL/DS 
paraneters: 


D 
| ARIYM04 | : 


wow sw 


i) 
ARIYMO4 


10 
ll 
12 


Note 


——$—$—— Disp 
ARTYM04 | : 


isplay: 
"STARTUP MUST BE HM OR R WHEN SYSMODE=M" (013) 
"LOGMODE MUST BE Y OR A FOR SYSMODE=N AND 
STARTUP=W OR R" (013) 
“PROGNAME IGNORED FOR SYSMODE=NM" (012) 
"ARCHPCT IGNORED FOR LOGMODE=Y OR N" (012) 
“DUALLOG IGNORED FOR SYSMODE=M" (012) 
"DOBNAME MUST BE SPECIFIED FOR VN" (019) 
“NLRBS=nn IS INVALID, IT MUST BE IN THE RANGE 
FROM nl to a2’’ (009) 


isplay?: 
“PROGNANE REQUIRED FOR SYSMODE=S AND STARTUP=H OR R™ (014) 
“NCUSERS GREATER THAN 1 IGNORED FOR SYSMODE=S" (012) 
"PROGNAME IGNORED FOR STARTUP=C,E,L, OR S" (012) 
“ARCHPCT IGNORED FOR LOGMODE=Y OR WN" (012) 
“DUALLOG IGNORED FOR STARTUP=H>R,A, OR E* (012) 


: For Vit, only DSPLYDEV = C (Console) is enforced. 


lay: 
"Character String” parameters (015) 
“Numeric Value" parameters (016) 
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OSC Initialization (continued) 


PARHRIN - Validate and 
Process Paraneters 


This is a "generic" name for one of the 
folloving routines in the follouving 
categories: 


Numeric Value — ARCHPCT, CHKINTVLs NCSCANS, | A | Page 125 
NCUSERS, NOIRBUF, NLRBS,; \/ 
NLRBU, NPAGBUF, SLOGCUSH, 
SOSLEVEL 
Single Character — DSPLYDEV, DUALLOG, DUMPTYPE, 
LOGMODE, STARTUP, SYSHODE B | Page 126 


Character Names - DBNAME, DBPSWD, PARMID, = c | Page 126 
PROGNAME \_¥ 


Trace String -— TRACDBSS, TRACRDS | it] Page 127 
\7 


@ If parameter specified nore 

than once in the JCL or in Display: 

the POS, severe error } “SPECIFIED MORE THAN ONCE" (0053 

2 “INVALID PARAMETER" (009) 

® Get numeric string, validate 
and convert to binary value» 
and store in JCL or PDS 

table entry. If error ? 
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DSC Initialization (continued) 


© If parameter specified xore 
than once in the JCL or in Display: 
the PDS, severe error 1 “SPECIFIED MORE THAN ONCE" (9053 
2 “INVALID PARAMETER" (008) 
3 “DSPLYDEY IGNORED FOR VM/SP"* (018) 


Get character value and 
validate and store in JCL or 
POS table entry. If error 2 


If DSPLYDEV and operating 
systea is VM 


* PARMID can be specified only on JCL. If it is specified in the PDS, 
c b] parretn = character Naxe * | it is ignored and the informational message "'PARMID IGNORED WITHIN 
\ 7 PDS" (004) is displayed. 
® Yf parameter specified more 
than once in the JCL or in Display: 
the POS, severe error a | anryi06 | 2 "SPECIFIED MORE THAN ONCE” (005) 
2 "PARAMETER MUST BE 1 ~ & CHARACTERS" (O11) 

Get character name and 5 “"DBNAME IGNORED FOR VSE" (018) 
validate and store in JCL or * “DBPSWD IGNORED FOR VM/SP” (018) 
POS table entry. If error 2 


If DBNAME and operating systen 
is VSE > 


If DBPSWD and operating systen 
is vm 4 
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DSC Initialization (continued) 


PARHRTN — Trace String 


® If parameter specified nore 
than once in the JCL or in 
the PDS, severe error 


Ned 


Display: 
1 “SPECIFIED MORE THAN ONCE" (005) 
2 “PARAMETER MUST BE 1 — n CHARACTERS” (011) 


{mn = 12 for TRACOBSS; n = 6 for TRACRDS) 


® Get trace string value and 
validate and store in JCL or 
POS Table Entry. If error # 
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DSC Initialization (continued) 
ARICTKN (Tokenizer) 


Sean the input string for 
the first character not 
equal to a blank or a comma. 


If the input string was 

scanned and only blanks or 

commas were found, set the 

token length to zero and 

the pointer (to the token) 

to zero and Return to caller 


Set the pointer to the 

token (address of first 
non-blank or non-comma 

character } 


Scan the string (from point 
of first character) to the 
first blank or comma and 
determine the length of the 
character string. 


Set the token length to the 
length of the character 

string and search the index 
to the first blank or conna 


after the string. 
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OSC Initialization (continued) 
ARICCRA (Create Agent Structure) 


Save register 10 value and 

set register 10 to address 

of YTABLE] Prototype {all 

storage allocation vill be 

from the Working Storage 

associated with the proto- 

type YTABLE1 and DSCAREA). 

1 Via call to ARICHSG (Get Working 
Allocate? and initialize the Storage) 
DSCAREA for the agent and 

add it to the end of the 


DSCAREA chain (the header is Terminate SQL/0S 

in the DS2CVT (DS2DSCCH)). 

If allocation error, } ARTYHO2 | {See page 213 for module ARICABE? 
error detection point Ol. 


(See page 22% for ARIYHO2) 


Assign the slot in the DCE 
Array and initialize the 
DCE (set INACTIVE 
(DCEINACT=1) to prevent 
dispatching of the agent. 


Allocate! and initialize 


a YTABLE] for the Agent. Terminate SQL/DS 
If allocation error, error 
detection point 02. ARTYNOZ (See page 213 for module ARICABE) 


(See page 224 for ARIYMO2) 


Allocate’ the SCANS Table 


for the Agent. If allocation Tersinate SQL/0S 
error, error detection 


If VSE, allocate? the MODCS 
parameter list for the 
Agent. If allocation error, 
error detection point 05 


® Reset register 10 to point 
to the newly allocated 
YTABLE1 and initialize the 
YTABLEL. Cross-connect nevly 
allocated control blocks 
(DSCAREA, DCE, YTABLE1). 
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DSC Initialization (continued) 


| Allocate and initialize a Working Storage pool 


for an Agent Structure 
ARICHSI 


Terminate SQL/DS 


* Get Working Storage for the 
Agent Structure. 
If allocation error, <« 
detection point 06. 


(See page 224 for ARIYM02) 


® Add YTABLE] to the end of 
the YTABLE1] chain. Set Log 
and Lock component values 
and set the register 10 slot 
in the DCE to point to the 
YTABLE] (uhen dispatching 
the Operator Agent, 
Checkpoint Agent, or General 
Purpose Agent in SPM (VSE) 
or SVMM (VM)}). 


e If VSE, initialize the MODCS 
parameter list 


VSAM MOOCB 


* If VM, allocate and 
initialize a Communication 
Manager Parameter List. 


Terminate SQL/D0S 
If allocation error, error 


detection point 08. ARICABE 


ARIYMO2 


® Reset register 10 to point 
to prototype YTABLE). 


® If MPM (VSE}, or MVMM (VM), 
and it is not the Operator 
or Checkpoint Agent 
Structure: 

a. Calculate and allocate 
space for CPC or IUCV 
- Default Input Buffer 
— Output Buffer 
- If VSE, Communication 
Manager 
Paraneter List 


ARICWSG 
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(See page 213 for module ARICABE) 
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OSC Initialization (continued) 


~ If VSE, XPCCB control 
block 

If VSE and allocation 

error, error detection : 

point 07. 


Terminate SQL/DS 


(See page 213 for nodule ARICABE) 
ARICABE {See page 224 for ARLYN02) 


ARTYMO2 


If VM and allocation 
error, error detection 
point 13. 


b. Initialize the pointers 
(te the CPC or TUCV 
blocks) in the DSCAREA. 
For VSE, initialize the 
pointers to the Connect 
ECB in the WAITM list 
entry for the agent and 
put the pointer to the 
Receive ECB into the DCE. 


If VSE and multiple-user 
mode, and it is the 
Operator Agent Structure, 
allocate a Conmunication 
Manager Parameter List. 
If allocation error, error 
detection point 08 <= 


ARTCHKSG 


Terminate SQL/DS 


(See page 213 for module ARICABE) 


ARTYHO2 ARICABE (See page 224 for ARTYMOZ} 


If it is not the Operator 
nor the Checkpoint Agent 
Structure; allocate an 
Output Mailbox Parameter 
List. 

If allocation error, error 
detection point 09 


ARICMSE 


Terminate SQL/0S 


(See page 213 for rnodule ARICABE) 


ARIYNOZ ARICABE | (See page 224 for ARIYMO2} 


l 


Set register 10 to point to 
neuly allocated YTABLEL. 


If it is not the Operator 
Agent, ensure the TPMAP slot 
is initialized and the 
VSAM control blocks are 
allocated and initialized. 


ARTYMQ0 (DBSS Linkage) 
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Initialization (continued) 


If an RDAREA is required 
(Ready/Recovery, General 
Purpose» and Indoubt Agent 
Structures): 

a. Set register 10 to point 
to prototype YTABLE!. 

b. Allocate an RDAREA for 
the agent structure. If 
allocation error, erxor 
detection point 10. 

¢. Initialize the RDAREA. 

d. Create a stack for the 
RDAREA. 

e. Add the RDAREA to the 
end of the RDAREA chain. 

f. Set register 10 to point 
to the neuly allocated 
YTABLEL. 

g. Cross-chain the RDAREA 
with the DSCAREA, OCE, 
and YTABLE]. Initialize 
the Trace Flags from the 
RDCVT. 

n. If VM and SVMM, place 

SQL userid into TPMAP, 

DSCAREA, and RDAREA 

for implicit connect. 


If STARTUP=W or R,» perform 
RDS initialization of the 
RDAREA. 


Reset register 10 to point 


to register 10 of caller of 
ARICCRA and RETURN 
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Terninate SQUL/DS 


ARIYMO2 


ARICSTK | (See page 137 for module ARICSTK) 


| ARICABE | 


ARIXEST 


(See page 213 for module ARICABE) 
(See page 224 for ARIYMO02) 
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DSC Initialization (continued) 


ARICENA (Enable Agent Structure) 


® Initialize the DCE, ensuring that the DCE 
is dispatchable and the link flags are 
cleared, Set register 13 to point to save 
area to be used by agent when initially 
dispatched (the save area is the DSCAREA 
(DSCAREA (DSCOBSSA)). Set registers 14 
and 15 to the entry point of the agent 
(14 is used as the return point fron the 
Dispatcher and 15 is used as the initial 
base register by the entry point of the 
agent). 


e If the entry point is in RDS (ARIXERD), 
set the register 10 slot to point to the 
RDAREA. 


@ For VSE: 
~ If the Cross-Partition Communication 

(CPC) links are to be connected: 

a. Initialize the Communication Manager 
Parameter List to connect the corract 
link (General Purpose, Indoubt, or 
Ready/Recovery). 

b. Issue a CONNECT for the CPC link. 

- If a severe CPC error occurred, 
and error detection point 01 

~- If the connect was not completed, 
set the DCE waiting for a CPC post 
to occur (DCEXPTN=L). 

- If the connect was conpleted, 
‘“unpost™ the connect ECB and set 
the DCE connect flag (DCECNCT=1). 


® For VM: 
~ If the pseudo agent is to he detached 

from the real agent (PFDSCPA=1), then 

perform the folloving: 

(Establish addressability to the pseudo- 

agent control blocks. If the IUCV 

conmunication link has bean disconnected 

(SEVERed) either by the user (VMCSEVCD 

+ 0) or by SQL/DS abnormal termination 

processing (PFSQLAB = 1), then perforn 

Steps 1 - 5. 

1. Rumove pseudo agent from in-use 
pseudo agent queue. 

2. Add pseudo agent to 
Pseudo agent queue. 

3. Increment available 
counter. 


start of available 


pseudo agent 
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If this routine is called by the SQL/DS Dispatcher 
and the CPC or IUCV link is to be reset (not 
disconnected/reconnected), then the Dispatcher vill 
set BDCECNCT=1 (in the link flag byte DCELFLAG}. 


ARIYMO2 ARICABE 


(See page 213 for module ARICABE) 
(See page 22% for ARIYHO2) 


ARLYHOS 


(This does not occur at initialization tine. 
It is part of the Dispatcher/Agent Handling process.) 
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SC Initialization (continued) 


134 


4. Decrement in-use pseudo agent counter. 
5. Set the pseudo agent available flag 
CVMQAVAIL = 1) and reset the in-use 
and allocated flags (VMQINUSE = 0 and 
VMGALLOC = OG}. 
6. If waiting pseudo agents 
(VMHCNTPA-=0)} or current user has rot 
sent another message (RECB not 
posted), then disconnect pseudo agent 
(VNCADDR=0) fron real agent 
(BCEADRPA=0} and clear pseudo agent 
allocated flag (VNQALLOC=0). 
Otheruise, return.? 
7. If there are no waiting pseudo 
agents: 
a. Remove real agent from in-use 
real agent queve. 
b. Place real agent at the top of 
the available queue. 
e. Increment available real agent 
counter. 
d. Decrement in-use real agent 
counter. 
e@, Ensure OCE not dispatchable 
(DCEINACT = 1), not connected 
C(OCECNCT = 0), and that a 'posted’ 
ECB is not in the WAITECB list. 
f. Save the userid (RDAUSER) in 
VNQSQLID, the RDAREA flags 
(VHQRDAFL=RDAFLAGS, VMQRDASP= 
RDASPEC}, the DSCAREA flag 
(VMQDSCFL=DSCFLAGS), and the TPMAP 
flag (VMQTPMFL=UNDOF LAG}. 
g. Return to caller. 
8. Else, if there are any waiting pseudo 
agents: 
a. If the current user sent another 
message (RECB posted) then: 
~- Move current pseudo agent to 
bottorm of vait queue. 

~ Increment vaiting pseudo agent 
counter (VMHCNTPA). 

- Set waiting flag in current 
pseudo agent (VMQWAIT=1}. 

b. Save the userid (RDAUSER?} in 
VMGSQLID, the RDAREA flags 
(VMGRDAFL=ROAFLAGSs VMQRDASP= 
RDASPEC), the DSCAREA flag 
(VMGOSCFL=DSCFLAGS}, and the TPMAP 
flag (VMQTPHFL=UNDOF LAG). 

e. Allocate first waiting pseudo 
agent to real agent. 
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unit of work.} 


RETURN 


l( This is the case where there are no vaiting pseudo agents 
and the current user has sent another message. The current 
user retains ownership of the real agent for another logical 
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DSC Initialization (continued} 


@. Get pointer to first vaiting 
pseudo agent in vait queue- 
e. Connect pseudo agent to real agent. 


f. Update counters and pointers for 
wait queue. 
~ Set pseudo agent “allocated 

flag (VNQALLOC = 1) 
~ Reset pseudo agent “waiting" 
flag (VHQHAIT = 0). 

g. Hake DCE dispatchable (DCEPWF=0) 
and indicate connected 
({DCECNCT=1). 

h. Put RECB of pseudo agent into 
WAITECB list and store in DCERECBP. 

i. Store pointer to VMCBLOCK in 
DSCAREA (DSCVNCBP). 

j- Restore userid, ROAREA flags, and 
DSCAREA flag (USERID (TPHAP), 
OSCUSRID and RDAUSER are all set to 
VNGSGLID; RDAFLAGS=VHGRDAFL, 
RDASPEC=VMQRDASP, DSCFLAGS= 
VAQDSCFL», UNDOFLAG=VMGTPMFL). 

k. Return to caller, ————-———}——)_ RETURN 


ARICHOD (SQL/DS Mode Indicator) 


This nodule is a separate SGL/DS pfrogran. 
It is) the preinitialized DS2MODE control 
block. It is loaded in both Single-User 
| mode and Multiple-User mode for both VSE 


and Vil, and the mode indicator (DS2MO.NO) 
is set te S or M accordingly. It is loaded 
by the Resource Manager to determine if it 
is to execute in a SUM or MUM environment. 
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DSC STORAGE SERVICES 


* From ARICIP] and ARICCRA 
ARICWSI (Initialize Working Storage) 


® Get space from syste 
If return code += 0, set appropriate 
error code and return to caller 


ARISYSO1 


RETURN 


® Initialize the vorking storage header 
in the OSCAREA. Set the first FGE 

in the pool 
* Format the storage pool 
If return code >= 0> 


SQL/DS 


ARICHSF 


terminate 


| ARTYMO2 | Terminate with €ARICWSI 01) 


* From many nodules, including ARICIP1 and ARICCRA (see Section 6» “Nodule-to-Module Cross Reference™, 


in Volume 2 for a list of calling nodules) 
ARICWSG (Get Horking Storage fron Agent's Pool) 


© Get space of requested size fron 
free area using FQE chain. If there 
is no free area or not enough space 
to satisfy the request, get nore space 
froma system 
If return code ~= 0 set appropriate 
error code and return to caller 
or if internal or hardvare error, 
terminate S@QL/DS 


| ARISYSOI | 
RETURN 
ARYTYMO2 Terninate with (ARICWSG 013 


RETURN 


If successful, FQE chain is updated 
before returning to caller 


® From many modules (see Section 6, "Module-to-Module Cross Reference", 
in Volume 2 for a list of calling nodules) 
ARICHSF (Free Storage) 


® Ensure that size is a nultiple of 8. 


© Find free area and return it to 
agent's free pool. Update FQEs. 


® Return to caller RETURN 
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DSC Storage Services (continued?) 


* From ARTYTO6 
ARICNFR (Free Extended Pool) 


© If no attached (extended) pools, 


return to caller RETURN 


ARISYSD2 


RETURN 


® Locate last attached pool in chain 
an@ call ARISYSD2 to release pool to 
operating system 
If non-0 return code, terminate 
S@QL/DS 


® Return to caller 


ARICSTK 


YTABLE1/RDAREA 


Hex 
a ae 


® ARICSTK calls ARICNSG to get working 
storage 
If return code from ARICWSG is not 
zero, return to caller vith the 
return code 


ARICSTK then puts the stack pointer 
in YTABLEI/RDAREA and sets up as 
in the diagram at the right.  <-<<<-<-}--<-9-<<---<---= 


Save area for 15 registers 
{2 > 6) 


ee ne ieesieentaneiannietiantientenna) 


= STACK Header; B = STACK Area 
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OSC Storage Services (continued) 


ARICGSE (Get Stack Extension) 


© ARICGSE calls ARISYSDG to get storage 
to extend the stack. The setup of the 

extension is indicated in the next 

diagram ------- 


r--? 
* Stack 
Extension 


t Previous 
Stack 


ee ee ee 


ARICFSE (Free Stack Extension) 


Get pointer to current stack fron 
register 1. 


Free the current stack and rechain 
pointers back to previous stack. 

(This module utilizes pointers in 
YTABLE1/RDAREA and the Stack (see 
the diagrar on the previous page). 


® Return to caller RETURN 
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DSC OPERATOR SERVICES 


ARICSHO (Called by ARIYMI1) 


® Establish addressability to 
agent control blocks. 


® Disable external interrupts 
while scanning VHQ elenents. 


® Get the counters from the 
VNQ Header block (VHH}. 


® If no users are connected to 

SQL/DS {VHMHCIUPA = 0): 

a. Enable external interrupts 
and display the folloving 
status messages: 

- 0 users connected to 
SQL/DS 

= mn SQL/0S agents are ARLYEO7 
available 

- n SQL/0S user 
connections are 
available ARIYEO7 

b. Return 


ARTYELS 


ARYYELS 


® Calculate the length of the 
status table for connected 
users and get storage for it. 
If there is a storage error: 
a. Enable External Interrupts 
b. Issue storage error nessage 
¢. Terrmination point O01 ARIYNOZ 


ARTYMO4 


® Scan OCE chain for users 
connected to a real agent. If 
any such users found, store 
their pseudo-agent status into 
the "connected users” status 
table: 
a. VM userid (VNQUSRID) 
b. SQL/DS userid (VM@SQLID) 
c. VNQ Elenent flags ‘VMQFLAGS). 


e If there are waiting users, 
scan the waiting users* VHNQ@ 
Elements and store their 
Fseudo-agent status into the 
"connected users” status table: 
a. VMN userid (VHQUSRID) 
b. SQL/DS userid (VNQSQLID) 
¢. VNQ Element flags (VMQFLAGS). 


Licensed Material - Property of IBM Method of Operation 139 


OSC Operator Services (continued) 


140 


Scan VMQ Element chain for users 
not connected to a real agent 
and not in the pseudo-agent 

wait queve. If any such users 
found, store their pseudo-agent 
status into the “connected 
users" status table: 

a. VM userid (VMQUSRID) 

b. SGQL’OS userid (VNQ@SQLID) 

c. VNQ@ Element flags (VMQFLAGS). 


Enable External Interrupts 
(all relevant status information 
at the time the SHCW USERS 

command was issued has now been 
stored in the "connected users” 
status table). 


Get the decimal value of the 
count of users connected to 
SQL/DS and issue message. 


ARIYEO7 


“n USER(S) ARE CONNECTED TO S@L/DS" 


ARIYEL3 
ARIYEO7 


ARIYE13 "n SQL/DS USERS ARE ACTIVE" 


Get the decimal value of the 
number of users connected 
to real agents and issue 
Ressage. 

If any active users, display ARIYE13 "VM-ID = VM-userid SQL-ID = SQLDS-userid [NOT PROCESSING]" 
those users ("NOT PROCESSING" 
is appended to the message if 
DSCINPRC flag is 0.) 


Get the decimal value of the 
nunber of uvaiting users and 
issue message. 


ARIYEO?7 


ARIYEL3 | "n SQL/DS USER(S) ARE WAITING” 
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DSC Operator Services (continued) 


If any waiting users, 
display those users. 


ARIYE1L3 | “VM-ID = Vi-userid SQL-ID = SQLDS-userid" 


ARTYE07 


ARIYEL3 | “n SQL/DS USER(S) ARE WAITING" 


ARIYEO7 


“m SQL/DS AGENTS ARE AVAILABLE” 


ARIYEO7 


‘n SQL/DS USER CONNECTIONS ARE AVAILABLE” 
ARICHST 
ARIYHO4 


Get the decinal value of the 
number of pseudo-agents not 
connected to a real agent and 
not in the pseudo-agent wait 
queue and display then, 


Display the number of 
available real agents. 
Display the nunber of 
available pseudo-agents. 


Free storage obtained for 
the “connected users” status 
table, If there is a storage 
errors 

a. Issue storage error message 
b. Termination point 02. 


ARIYMO? 
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OSC Operator Services (continued) 


ARIYMO!] (Called by ARICIP2} 


® For VSE and multiple user node, 
establish the operator conmuni- 


e€ation exit (STXIT OC) 


Issue "SQL/DS Initialization 
Complete" message (060) 


If VM and multiple user rode, 
issue the "SGL/DS Ready for 
Operator Conmunications" 
message (045) 


Call ARIYHIO to cause a 
Dispatcher wait to occur for 
the operator agent (ARIYMISO 
does not return to this 
routine). 


ARIYMO] is invoked for all cases 
of SQL/DS initialization except 
vhen: 


Performing CCLDLOG 
Adding new DBEXTENT(s} 


NOTE: In single-user mode, the 
operator agent is fut ina 
“general” vait and cannot be 
dispatched. 
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ARISYSDB 


ARIYM04¢ 


ARIYMO04 


ARTYM16 


Aid 


DBSS/DSC Message Service Routine 
(via MSG racro) 


DBSS/DSC Message Service Routine 
(via MSG macro) 


DBSS Operator Command Linkage Module 
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DSC Operator Services (continued) 


ARISOCM (Entered as a result of the VSE MSG supervisor command 
to ‘uake up' the SGL/DS Operator Agent for command entry) 


ARISOCH provides the linkage betvueen 
the VSE operator console and the 
SQL/DS command linkage module ARLYMLO 
when the operator vishes to enter a 
SGL/DS operator comnand, ARISOCH 

can be entered only ia sulti-partition 
node {no supervisor linkage in 
single-partition mode), The nodule is 
entered when the system operator enters 
the VSE attention command MSG, 

which notifies the VSE Attention 
Routine that he wishes to communicates 
with the SQL/DS partition. The Operator 
Agent structure is posted by turning 
off the OCEGENRL bit in the agent DCE 


A ‘busy’ bit is also turned on in the 
DSecvT to prevent entry inte SGL/DS 
command processing in the event that 
the cperator enters another attentioa 
request while the command is being 
processed. A dumay ECB is inserted 
into the SQL/DS Dispatcher Wait List 
and SVC-posted to ensura that YS5E 
will dispatch SQL/DS and that module 
ARTYHLO in the Operator Agent uiil he 
given control. 


The VSE macro EXIT OC returas 
control to the operating systex. 


ARISOCM calls ARISYSCS to obtain the 


address of DSOMCDE from the partition a | 

phase load list. (OScNODE is a + | ARISYSD6O To obtain load ad phase ARICH 
control block and phase that gives L— —— (DS2MO0E control 

addressability te SGL/DS control 


blocks.) 
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DSC Operator Services (continued) 


ARLYMLO (Entry point ARIYMIO entered at ‘SQL/DS initialization corplete' 
(called by ARTYMO1)3 entry point ARIYM101 entered from ARIYMOO) 


ARIYMIO: is entered at SQL/DS ‘initial- 
ization complete’ to place the Operator 
Agent in SQL/DS wait state waiting for 


a syster operator command request. 


ARIYMIOL processes commands from ISQL 
terminal users. 


Note: ARIYM1O entry logic is re-dispatchable by the S@L/DS 
The system operator or ISQL operator Dispatcher when the system operator requests conrzand 
is notified of the success or failure entry via the VSE MSG cormand. 

of the command processing. 


In single-user mode, ARIYMIO places 
the Operator Agent in permanent 

SQL/OS Dispatcher vuait state at the 
completion of SQL/DS initialization 


Modules called from this nodule are: 


® To execute a valid (command nane} 
SQL/DS operator command from the 
system operator or ISQL terminal 
user 


ARISYSDJ| Read an operator command 


ARIYMI) DBSS operator coamand router 
(see page 1453 


To issue command completion or 
error messages to the systea operator 
er ISQL terminal user 


ARIYM04 DBSS/DSC anessage service routine (MSG aacro) 


Yo tokenize the conaand input line 
ARTYEO% | Tokenizer routine 


BIEL 


put Operator Agent in wait state: 
at end of SQL/DS initialization 
(vaiting for systen operator 
request for command entry), or 

at end of command processing fron 
systen operator 


ARIYK18 | Put Operator Agent in vait state 
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DSC Operator Services (continued) 


ARIYMI? (Called by ARIYHIO) 


ARIYMLI is called by ARIYM10 when it 
has received a valid SQL/DS operator 
command from the operator or from the 
ISQL terminal user. ARIYH11 provides 
the interaction betueen nodule 

ARIYM1O and the SQL/DS operator 
command processing modules. Also, 
ARIYM11 validates the SHOWNAME operand 
(operand 1) of SHOW commands. 


ARIYML!I calls the folloving nodules 
for: 


SHOW ACTIVE|LOCK|LOG|SYSTEN 


® SHOW BUFFERS |DBEXTENT |DBSPACE 
|DBCONFIS 


SHOW USERS (VM only) 


Error message processing for invalid 
SHOW name 


Processing COUNTER command 


Processing RESET command 


® Processing SQLEND or 
SHUTDOKN command 


Processing FORCE command 


Processing ARCHIVE command 


Processing TRACE comaand 
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{via MSG macro, see page 146) 


E 
Hue 


(See page 189) 
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DSC MESSAGE SERVICES 


* From DBSS, DSC, RDS and Batch or On-line Resource Manager Modules 
via MSG Macro for DBSS/OSC/RM (or RMSG macro for RDS) 
ARIYMO4 (Message Services) 


ARIYMO4 is invoked to write a DBSS, 
DSC, or RDS message to the operator 
(VSE systen or virtual machine 
terminal, or ISQL) and optionally 
read a reply and/or to write the 
message to the system print file 

or to write a Resource Manager 
message to the VSE system or 
virtual machine terminal operator 
and optionally read a reply. 


ARIYM0G builds the structures MSGID 
and BUFFER and invokes the message 
formatter for message retrieval 
and variakle substitution. ARIYMO4G 
calls ARIYNO5 to retrieve and edit 
all lines of a requested ressage 
or to retrieve an error message 
if there was a znessage formatting 
error. After the message is 
formatted, it is passed to ARIYEI31 
ARIYHSO or ARIYNS! for display 
(ARIYH50 and ARIYMS1 are used for 
reply type messages only). 


; 


For multi-line messages» 
ARIYMOG% loops displaying each 
line of the nessage. 

® If a reply is requested, on the 
last for only? line of the 
message ARIYN51 is invoked to 
display the message line and 
read the reply. 

@ If a reply is requested and 
this is not the last line, 
ARIYMS50 is called to ensure 
that the line is directed to 
the VSE system or virtual 
machine terminal operator. 


yi 


If the message formatter signals an 
incomplete message, an additional 
message is displayed to inform the 
operator or print file of this 
error condition (vith the same 
calls as shoun above}. If the 
message formatter returns an error 
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| ARIYHOS | Message -xmatter (Page 147} 


| ARIYMSO Reply Messages (Multi-line and not last line) 


oo e ARIYEL3) (Page 149) 


ARIYM51 Reply Messages (Last line} 


ARTYNS1 Reply Messages (last line only) 


ARIYM50 Reply Messages (all but last line) 
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OSC Message Services (continued) 


message (return code 16), it is 
displayed in place of the requested 
message with any reply request 
suppressed and the reply buffer 
cleared to blanks. 


*% From ARIYHO4 
ARIYMOS (Message Fornatter) 


ARIYMOS is used to retrieve a 
message lor line of a aulti~line 
message) and substitute inte the 
message (or line) any caller 
provided message variables. Using 
the caller provided xessage number 
or SQL code, the message index or 
SQL index table is searched to 
locate the address of the nessage 
module containing the message. 
Then, the ressage module directory 
is searched for an entry matching 
the requested message/SQL code 
number. 


e if the nessage is not a aulti- 
line message; the message 
directory entry gives the address 
of the aessage text structure. 


° If the message is a anulti-line 
message, the message directory 
entry gives the address of the 
the message sequence structure 
which contains an entry for each 
line of the message. The message 
sequence structure is searched 
for a line number entry matching 
the line sequence number provided 
by the caller. The line number 
entry gives the address of the 
line message text structure and a 
last line flag. ARTYNO5 updates 
the caller line sequence number 
for the next line request. 
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DSC Message Services (continued) 


The message foraatter nov processes 
the message text moving it to the 
caller provided zessage buffer and 
performing variable substitutions 
{with optional binary to decinal 
or hexadecimal conversion vith 
zero supfression and lou order 
blank suppression for normal 
string substitution). Variable 
requests are denoted in message 
text by &nnn. or &nnnalpha. (nnn is 
request for nth passed variable) 
and the variables are passed via 
the VARLIST structure. 


ARIYEO7 Binary to decimal conversion 
ARIYEO8 Decimal to binary conversion 
ARIYE16 Binary to hexadecinal conversion 


The length of the formatted message 

line is returned to the caller. 

Return codes indicate: 

® If there are more lines to the 
message 

® If a formatting error occurred 

® If the message could be found. 
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DSC Message Services (continued) 


* From Comazand Processing Modules and other Routines 
Entry Point ARIYEI31 is called by ARIYM04. 
ARTYEL3 (Line Display?) 


ARIYE13 will display a line of data 

(or a SQL/DS nessage), 

® Main entry ARIYEA3 is used for 
displaying a line of data vhich 
is not a SQL/DS nessage. A flag 
(DSCOMODE), in the DSCAREA table 
of SQL/DS, directs ARIYE13 to 
display the line locally or to 
send the line to the ISGQL 
linkage for display on a CICS 
terminal (VSE) or the ISQL 
virtual machine terminal (this 
is for support of SQL/DS commands 
entered from ISQL). 

® Secondary entry ARIYE131 is used 
exclusively by the DBSS/DSC 
message processor for displaying 
SQL/DS messages. Output 
lines are directed to either 
local output or to ISQGL for CICS 
Terminal output (VSE} or virtual 

machine terminal output. 


During SQL/DS operator command 
processing, only messages 
originating fron the operator 
conrnand linkage and processing 
nodules go to the ISQL linkage» 
all others go to local output. 
© If output is ISQL, ARICOMB is 
called to route the output line 
to ISQL 
® If output is to ISQL and the 
SQL/DS Mailbox is full, ARICHUD 
is called. 
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ARICOMB | ISQL Output Mailbox Linkage 


To SQL/DS Dispatcher to wait for 
Mailbox transfer to ISQL to complete. 


Method of Operation 
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DSC Message Services (continued) 


SQL/DS has an initialization 
parameter OSPLYDEV which directs 
all output lines routed to this 
module to be displayed on either 
the system print file or the 
oferator's console er to both 

tfor VM, the DSPLYDEV parameter 

has no effect and the output goes 
to the virtual machine terminal). 

A routing flag in the DS2CVT 
indicates if line display is to 

be controlled by the DSPLYDEV 
parameter value. If the flag is 

on Coutput is under control of the 
OSPLYDEV initialization paraneter), 
the line and the routing code is 
passed to nodule entry ARISYSOH 
for display on the specified output 
device(s)/file(s)}. This routing 
function is active only during 
SQLYDS initialization and 
termination. It does not conflict 
with ISQL routing since SQL/DS 
opecator commands cannot be entered 
dyring initialization or 
termination. Khen the DSPLYDEV 

| routing function is not active 
(flag is off) local output is 
routed to the operator display 
modules ARIYM50 and ARTIYMS}. 


>| ARISYSOH System Dependent Routine for Directing 


Display Line Output 


ARTYMSO DBSS/DSC Operator Console 


display routine (non-reply line) 


ARTYNSO OBSS/OSC Operator Console 


display and read reply routine (line with reply) 
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BSC AGENT HANDLING AND COMMUNICATIONS 


The following series of diagrams provide an overview of the | In single-user node, the flow is similar except ARICMUD is 
interaction and relationship of agent handling and 


not called hy RDS because it (RDS) can receive the "message" 
communications with some of the other components/functions directly from the Batch Resource Manager. 
| of SQL/DS as it applies to the multi-user mode environment. 
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The Resource Manager (Batch or On-line) will cali ARICIMB to 
build the sessage to be sent to the SQL/DS partition via the 
communication (CPC or IUCV) link. The message will he 
received by ARICMUD and passed on to RDS for processing. 


| DSC/Resource Manager Interaction 


RESOURCE MANAGER PARTITION ox VIRTUAL MACHINE 


APPLICATION 


Communication 
ARICIMB Link 


e—— -- 39 
Build message 


SENDR 
€or rere 


ARICHMS 


Hove data to 


application 


Note: ARICINS, ARICMMS, and ARICOMS are Mail Box modules. 
The Mail Box/Resource Manager interaction is further 
described on the next page. 
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RDS will then call ARICOMB to send a reply message back to 
the Resource Manager partition. The Resource Manager vill 
then call ARICMMB to rove the reply ressage into the 
application’s data areas. 


SQL/DS PARTITION or VIRTUAL MACHINE 


Get message 
© RECEIVE 


Decipher 
pr-----ooe > 
ARICOMB 


Build Reply 
® REPLY 
fl 


EOP? }-yves}--t 
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Hail Box/Resource Manager/R05 Interaction 


Mail Box is a facility specifically designed fer SQL/0S environment. Hovaver, the Mail Box itself’ does not have any 
ecross-partition (CPC) or inter-user communication vehicle system dependency. The following diagram gives an overview 
(IUCV) support. It collects a group of data from one of the Mail Box process. For a more detailed flows see page 
partition/virtual machine and passes it on to another 183. Descriptions of the modules ARICINB, ARICHMB, and 
fartition/‘virtual machine in a one-~move procedure. The ARICOMB are included in Section 3. For the date areas 
actual data transfer is done by CFC (for V5E) or TUCV (for associated with the Mail Box facility, see “Nail dox Data 
VH) link since SGL/DS is assumed to be run in a VSE or VH Areas" in Section 5 of Volune 2. 

PARTITION or VIRTUAL MACHINE {1) PARTITION or VIRTUAL MACHINE (J) 


Application 


Output Output 
eEeEl ff Lee nioie 
D 
E 
Sith AS et c 
Input I Output Output 
P 
Input Data H 
1 E 
Data R 


3 


| 
| 
| ae 


ARICOMB: Build output 
Hail Box 


| 
| 
| 
| 
I 
4 
| 
| 
| 
Sees 


ARICINS: Build input 
Mail Box 


Communication 
Link 
FEUETILSTL TAT EG A 
COPFELLA ELA LASS 


ee ee ee ee ee ee 


ARICHMB: Move ta 
user area 

Input Mail Box VAOETEATETA AGATE Buffer for 
EME hL hhh 
CATAL AL EASES AS 


—_= 
-— 


SOVELEAAAE TATA SE Qutput Mail Box 


em eee ee eer ene 


Buffer for output 
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DSC/ROS Interaction 


This diagram illustrates the relationship betveen DSC and 
RDS. When an agent structure is initially dispatched, 
control is given to the RDS module, ARIXERD. (This does not 
apply to the Operator or Checkpoint Agents nor the General 
Purpose agent in single-partition mode or single virtual 
machine node). If trace is activated for ARIXERD (RDS), the 
trace routine will be called. ARIXERD will then call 
ARICMUD to receive the massage sent by the Resource Manager 
partition. (In single-partition mode or single virtual 
machine mode, ARIXERD does not call ARICMUD, but gets the 
message directly from the Resource Manager routine.) RDS 
will now decipher the message and perform one or more DBSS 
calls to process the input message and call ARICOMB to send 


ROS CARIXERD } 


OSC (ARICMUD? 


@ TRACE 

© GET MESSAGE —-————_| ® ARICWAT 
® RECEIVE 

@® RELOCATE MESSAGE OBSS 


PROCESS SQL 
OBSS CALL-——-_-_—_—> 


@ PROCESS 

- 140 

- LOCK 
CHECKPOINT 
OPERATOR 
COMMUNICATION 


OSC CARICOMB) 


® PROCESS OUTPUT ———> ® BUILD OUTPUT 


MAIL BOX 
© REPLY 
* 
EOP? 
|e—ves—] 
PROCESS NO 
COMPLETE? 


® ARICWAT 


YES 
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a reply message back to the Resource Manager partition. If 
the reply message can be sent as one message the ARIXERD 
will indicate that the reply is also the end of the reply 
process to ARICOMB. If the reply message can not be sent 
back as one message, then RDS will pass back the amount of 
data that has been processed and indicate to ARICOMB that it 
is not “end-of-process". ARICOMB will then send that 
portion of the message processed back to the Resource 
Manager partition or virtual sachine and wait for an 
acknouvledgement by the Resource Manager partition (a SENDR 
vith zero data length). This process continues until RDS 
indicates “end-of-process" to ARICOMB. 


ARICDSP) 


WAITM 


ARICOSP) 


WAIT 
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Cross-Partition Communication Protocol 
Resource Manager 
[ ARIxOLRM ] 


IDENTIFY < > 
| ARIOBARM | 


CONHECT TOAP=SYSARIRO -------- 4} }- 
DISCONNECT (SYSARIRO} 
CONNECT TOAP=SYSARIGG -~-~-~- -4}h 
| 
| | 
proven ; 
I 
| 
| 
| 
| 
a 
I 
I WAIY SECB ¢----{|}-------- = 
| | | 
{ | 
| EOP? |-NO— > RECLEN=0 | 
| T (SENDR) | 
| YES | 
| | | 
| L 
t--wo-{ E0u7 
YES 
DISCONNECT (SYSARIGO) -~-+- = 
1 
| 
TERMINATE tARIxOLRM) | 
I 
I 
EOJ | 
| 
t=. 
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(*ART ') 


¢ SYSARIGO 4 


SYSARIIO > 


| sysariro J 
r Indoubt Agents 


(VSE only) 
SQLs 

SUBSID 
IDENTIFY < 
CONNECT < 


<4 
| DISPATCHER 
| 
L 


WATTM CECB 
DISCNCT/CNCT 
WAITH CECB 


RECEIVE 


DISPATCHER 


WATTH RECB 


CONNECT 
WAITH CECB 


(R/R) 
R/R Agent 
(General) 


(General) 
DISCONNECT (General) 


1General) 


{General) 


pea aoe ewe ares aad 


lé 
| 
| | DBSS 
| | Call to ARTYHOO 
| I/O, Locks, ete 
en REPLY 
em i 
| EOP? }-vES----------- J 
| T 
| NO 
4 ) 
ated Gucet —> Dispatcher (WAITH RECB} 
} 
er 


4 


General Purpose Agents > 
L Ready/Recovery Agent 


! 


This diagrax illustrates the Cross- 
Partition Communication (CPC) flow 
between the Resource Manager and 
SGL/DS partitions. The SQL/D5 
partition issues a SUBSID macro 
instruction to identify itself to 
VSE/Advanced Functions as a subsystem. 
It then issnes three CPC IDENTIFY 
instructions; one for each category 

of agent structures (General Purpose, 
Indoubt, and Ready/Recovery). After 
SQL/DS has identified itself to 
VSE/Advanced Functions as a subsystem, 
it issues a CPC CONNECT for each agent 
structure (General Purpose, Indowbt, 
and Ready/Recovery) and then waits for 
the Resource Manager partition(s) te 
complete the connection and send 
messages. The SENDR/RECEIVE protocol 
flow is as described above (DSC/RDS 
Interaction). 


The Resource Manager partitionls) vill 
also issue a CPC IDENTIFY and then 
attempt to "CONNECT" to the SGL/DS 
Ready/Recovery Agent. This connect" 
is used to determine if SQL/DS is 
"ready" to communicate with the 
Resource Manager partition(s). If the 
connection is completed, the Resource 
Hanager disconnects from the SQL/DS 
Ready/Recovery agent and attempts to 
connect to a General Purpose (or 
Indoubt, Online Resource Manager only) 
agent structure. If that connection is 
successful, it will then send messages 
to the SQL/DS partition following the 
protocol as described above 
(DSC/Resource Manager Interaction}. 


When all messages have been processed 
{the Resource Manager partition has 
issued a COMMIT RELEASE, qone to EOJs 
etc) its CPC link will he 
disconnected. The SQL/DS partition 
will then disconnect its CPC link and 
reconnect it for any other potential 
communicator. 
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Inter-User Communication Vehicle Protocol (VM only) 


Oe ee ee St SS SE SE Se et Ce Se et Og 


Resource Manager SQL/0$ 
This diagram illustrates the Inter- 
User Communication Vehicle (IUCV) flow 
LOGON to IUCV (HNDIUCY) LOGON to IUCV (HNDIUCY) betveen the Resource Manager and 


SQL/DS partitions. 
CONNECT to SQL/DS (CMSIUCV) -~-] }---3 SQL/DS External Interrupt Handler 
Allocate pseudo agent 
(and put on "In-use" queue). 


Wait for connection €---=--- -| | f----- SQL/DS External Interrupt Handler 
EIH post CECB ACCEPT pending connection. 
SEND to SQL/DS see eee 4 t- -----9 SQL/DS External Interrupt Handler 


Post RECB ~ If allocated te Real 
Agent, return. If Real Agent 
available, allocate and return. 


2----> Dispatcher 
ROS 


Wait for reply €------- -{}}- RECEIVE 
EIH post SECB Return | 


-+--) REPLY 
~--NO----~ | EOP? 4 
7, LT gape beyes------- 
ii 


End of Conmand Dispatcher 
i 


RECEIVE 


DISCONNECT from SQL/DS (CMSIUCV) ---{]| }--7--> SQL/DS EIH 
LOSOFF from IUCY (HNDIUCV) Sever pseudo ayent if not connected to real agent 
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Post Flags 
Return 


--> (Dispatcher) 
Deallocate real agent from pseudo agent 
Sever pseudo agent 
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Dispatcner Overvieuv and Control Blocks 


The SQL/DS Dispatcher is a non-preemptive, round-robin 
dispatcher. It dispatches SQL/DS Agents (SQL/DS tasks). A 
SQL/DS Agent has an associated set of control blocks called 
an agent structure. The control block in this structure 
that is used to drive the dispatcher is the Dispatcher 
Control Element (DCE}. In addition te the DCE, there is 8 
WAITM (VSE) or WAITECB (YM) list containing the pointers to 
the various IORSs (CCB8s) and ECBs that are posted by the VSE 
operating system or the SQL/DS External Interrupt Handler 
(VM). The Dispatcher will issue a WAITM (VSE) or WAITECB 
(VM) en this list when no agents are dispatchable. 


There are five basic categories of SQL/DS agent structures: 

* The Operator Agent structure, which is used for 
communication betueen SQL/DS and the VSE system operator 
or SQL/DS operator {VM). (Since this agent has no 
interaction with the RDS components it has no RDAREA.) 

® The Checkpoint Agent structure, which controls the SQL/0S 
checkpoint and archiving process (it also has no RDAREA). 

® For VSE only: 

- The Ready/Recovery Agent structure, which is queried by 
the Resource Manager({s) to determine if SQL/DS is ready 
to communicate vith other partitions. In addition, the 
Online Resource Manager uses this agent structura to 
transmit recovery data to SQ@L/DS tthat is, to 
synchronize the CICS and SQL/DS logs). This agent 
structure only exists when the parameter SYSNODE=N is 
specified, 

~ The Indoukt Agent structure, which is used to either 
commit or rollback previous units of vork that vere 
prepared-to-commit or roliback when SQL/DS unexpectedly 
terminated. These agent structures exist only in a VSE 
multi-partition mode environment. After “Indoubt 
processing” has been completed, these agent structures 
are converted to a General Purpose Agent structure. 

© The General Purpose Agent structure which is used to 
perfora normal SQL/DS processing. There is one General 

Purpose Agent structure built in single~partition/single 

virtual machine mode, The number of General Purpose Agent 

structures built in aulti-partition/multiple virtual 
machine mode is equal to the "'NCUSERS" parameter value 
minus the number of Indoubt Agent structures created. 

VM this number is zero. Note: The NCUSERS value sust 

always be large enough to allow creation of all Indoubt 

Agent structures. 


In 


An agent is dispatchable when the DCEPHWF field (in the DCE) 

is zero, If this field is nen-zero; then it can be one of 

five states (which are autually exclusive): 

® I/O wait, the agent is waiting for an I/O operation to 
conplete. When the 1/0 operation completes, the pointer 
to the IORB (CCB - VSE or ECB - VM) in the WAITM (VSE) or 


WAITECB (VM) list will he replaced with a pointer to a 
dumay ECB (which is not posted}. This prevents a HAITM 
(VSE) or WAITECB (VH) request from being satisfied by a 
previously~-posted IORB or ECB. 

® Lock wait» the agent is vaiting to obtain a leck held by 
another agent. 

* Cross-Partition Communication (XPTN) or Inter-User 
Communication Vehicle (IUCV) wait» the agent is vaiting 
for its connect ECB to be posted (to establish a CPC link) 
or for its receive ECB to he posted {both CPC and TUCV). 

® General wait. This is the normal vait state condition for 
the Operator and Checkpoint Agents whenever they conplete 
a given function. In addition, this wait state cendition 
is entered by other agents whenever the Checkpoint Agent 
is activated. 

® Inactive. This condition occurs only at initialization 
time for VSE (while the agent structure is heing created!) 
and when the agent is disconnected and reconnected to the 
CPC or IUCV link. 


The above wait state conditions and dispatchability of an 
agent are tested in the following order: 

1. I/O wait ({DCEIOWAT=1) 

Zz. Oispatchable (DCEPWF = 0) for a suspend wait} 

3. Lock wait (DCELOCK = 1) 
4. XPTN wait (DCEXPTN = 1) 
5. General Wait (DCEGENRL = 1) (or Inactive - DCEINACT = 1) 


In addition to the Dispatcher wait flags (DCEPWF), there is 

a second set of Dispatcher flags which control the 

Dispatcher flow. They are as follows: 

® CPC or IUCV link connected (OCECNCT). The agent is 
connected via a CPC or IUCV link with the Resource Manager 
partition or virtual xachine. 

® Rollback requested (DCELKTRM). This indicator is set 
whenever ARTYT23 is called to begin the rollback (backout) 
process. (It will also be set if a commit is required and 
the Resource Manager partition or virtual machine vent to 
@ normal end-of-job and a logical unit of work (LUN) was 
not in process (DSCINPRC = 0}. In VM, this indicator is 
also set by ARICHUD whenever ROS indicates that a logical 
unit of work has heen completed (OSCELUN = 1}. In 
conjunction with DCELKTRM, the DCERESET indicator results 
in the current user (pseudo agent) associated with the 
real agent structure being deallocated from the real 
agent, and allowing a new user (pseudo agent) to be 
allocated to the real agent for a logical unit of work. 

® Disconnect/reconnect of the CPC or IUCV link requested 
(OCEFORCE}. This flag indicator is set when a FORCE 
DISABLE command has been issued, It will cause the CPC or 
IUCV link to be disconnected and then reconnected for use 
by any neu conmunicator. 


® Reset the agent (DCERESET). This indicator is set | abnormally severed the communication link and the logical 


whenever a FORCE command (but not FORCE DISABLE?) is issued | unit work for that user vas rolled hack. 

(or the Resource Manager partition issued a CPC CLEAR 

command (VSE only)}. VSE only ~- The current LUW will be Yhe basic dispatching flow is as follows: The DCEs are 
backed out (rolled back), and the agent structure chained together in the order that the agent structures vere 
re-initialized as if a CPC cennection had just been created. The Dispatcher will scan the DCE chain testing its 
completed. However, is this case, no CPC | associated IORB/ECBs (using the pointers in the WAITM (VSE) 
disconnect/reconnect will be done. or WAITECB (VM) list) to determine if they are posted. The 
In VM, this indicator is also set by ARICNUD whenever RDS various wait state conditions are tested in the priority 
indicates a logical unit of work has been completed stated earlier. Whenever a posted ECB is encountered, the 
(DSCELUH = 1). In conjunction with DCERESET, the DCELKTRM corresponding OCE wait bit is reset and the agent is 
indicator results in the current user (pseudo agent) dispatched. The DS2CRDCE field in the DS2CVT will contain 
associated with the real agent structure being deallocated the pointer to the DCE of the agent that vas dispatched. 
from the real agent and allowing a new user (pseudo agent) Whenever the Dispatcher is called to perform a SQL/DS wait 
to be allocated to the real agent for a logical unit of for an agent, that agent will give up control. (Its DCE 
vork. wait flag having already been set, unless it is a "suspend 


® SQL/DS ABEND (DCESQLAB). This indicator is set by ARICABE wait". In this case, the agent has given up control to let 
(HUM only) to show that SQL/DS abnormally severed the IUCY other agents have a chance to run). The next OCE in the 


communication link. This bit is tested by ARICCLA. If chain will be obtained and determined if dispatchable as 
on, ARICCLA passes the keyword '"SQLABEND" in the user data described above. When all agents are in a SQL/DS wait 
fieid for the IUCV sever function, prior to disconnecting | state, then a WAITM (VSE) or WAITECB (VM) will be issued on 
the comaunication link. This is used to inform the the WAITM or WAITECB list. 
Resource Manager that the SQL/DS virtual aachine 
OCE 
2 DCEPWF (Priority) 
; ——— DCEGENRL X'80° — General Wait (5) 
Length (X'80') PYF A DCEIOWAT X'GO* ~ I/O Wait (1) 
DCELOCK X'20" — Lock Wait (3) 
ft DS2CVT ¢ DSCAREA OCEXPTN X'10° = XPTN Wait (4) 
_ OCEINACT X‘'O08"° ~ Inactive 
? YTABLE1! t RDAREA x'OG® = Dispatchabie (2) 


: (or Suspended) 
¢ Next DCE ¢ Wait-Multiple list 2 DCELFLAG 
ifor this DCE) ————— 
—_ DCECNCT X'80° 


- XPTN Link Connected 


+ RECB ¢in XFCCB) Dummy ECB DCELKTRM X'40° = Roliback Started 
OCEFORCE X'20° ~ Force (Disable) 
Registers 0 3 15 (of ARICDWT/ARICWAT) DCERESET X'10° — Force (Abort) 
Note: Register 9 contains pointer to save DCESQLAB X*°O08" — Coma link terminated hy SQL/DS 
area (ARICDWT/ARICWAT); Register 10 
contains pointer to YTABLE1. Note: X'20° causes XPTN link 


to be disconnected and reconnected. 


Address next available Address next in-use X'10' causes XPTN link to be "reset". 
real agent | real agent 


7 Dispatcher parameter lists (for Calls) are 
Address of previous Address of associated in the DSCAREA (DSCSTBKP/DSCSTBKL and 
in-use real agent pseudo-agent DSCPELSP/OSCPELST). 


Whenever ARICENA is called at initialization time, or 10 = Pointer te YTABLEI/RDAREA I RDAREA in MPM/MVMM) 
whenever an agent is reset (or disconnected/reconnected) by 
the Dispatcher, it sets register slots in the DCE: 
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13 - Pointer to DSCOBSSA (DSCAREA) (for STH on “Agent 
entry") 

14 - Pointer to Agent “Entrypoint” (acts as Dispatcher 
return register) 

1S - Pointer to Agent "Entrypoint” (Base Register - module 
call BALR 14,15) 
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Pseudo-Aqant and Real Avent Structures 


SQL/DS uses a control block called an agent structure for 
reak agent) to service requests from aultiple users to 
access a@ common data base. Each real agent requires 
approximately 200K bytes of storage. Since it would not be 
practical in terms of storage and performance to allocate a 
real agent for each user, pseudo-agents that use 
approximately 300 bytes of storage were developed. 
Pseudo-agents allow many users to share [but not 
concurrently) a feu real agent structures. in VSE, ISQL 
and user applications use CICS to do the terminal 
processing. CICS routes multiple users through one SQL/DS 
agent structure, allowing the number of real agent 
structures to be kept low. VM does not use CICS but needs @ 
Similar technique to sinimize storage requirements. } 


Pseudo-agents are allocated to the real agent structure in 
round-robin fashion. Each user connecting to the SQL/DS 
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service machine (via IUCV CONNECT) is allocated a 
pseudo-agent. Each user connecting to the SQL/0S service 
machine (via IUCV CONNECT), is allocated a pseudo-agent. 

The pseudo-agent is then placed in an ‘in-use’ queue, until 
the user associated with that pseudo-agent sends a message 
(IUCV SEND with reply!) te the SQL/DS service machine. That 
pseudo-agent is then allocated a real agent {assuming one is 
available). If all real agents are in use, any users having 
sent messages to the SQL/DS machine will have their 
pseudo-agents placed on a ‘wait’ queve until a real agent is 
available, A real agent becomes available uhenever an 
active user fone whose pseudo-agent already ouns a real 
agent) completes a SQL/DS unit-of-work. At this point, the 
first waiting pseudo-agent is allocated to the newly 
available real agent. If the pseudo-agent uhich just 
completed the unit-of-work has sent another message, it will 
be added to the end of the waiting pseudo-agent queue. 
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WAITM List (ARICEVT) - VSE 


: 

: 

: 

: 

: 

: 

20 7 RECB (RECEIVE or | 
DUMMY ECB) 

24 ¢ IORB for DUMMY ECB) 

28 t CECB (CONNECT) 

2c RECB (RECEIVE or 
DUMMY ECB) 

30 ¢ IORB for DUMMY ECB) 

34 ¢ CECB (CONNECT) 

38 ¢ RECB (RECEIVE or 


DUNHY ECB) 


FF OFF OFF OFF 


| 
| 
| 


(Offsets are in hexadecinzal) 


3 Operator Agent 


| 
| 
| 


> Checkpoint Agent 


> Ready/Recovery Agent 
(MUM only?) 


> General for Indoubt) Agent 
(Indoubt in MUM only) 


DCE Chain - VSE 


OCE Gperator (01) 1 
DCE Checkpoint (02) 
DCE R/R HUM = (03) 


DCE G/I SUM —- (03) 
MUM = (04) 


DS2CRDCE fin DS2CVT) 
contains pointer to 
“dispatched” DCE 


DCE G/I MUN - (05) 


entries are HUN only?) 


> Other General (or Indoubt) Agents 
| (This and following entries are MUM only) 


«—— End of WAITM List 


7 
> Other General (or Indoubt) 
Agents (This and following 


® ARICWAT puts pointer to RECB into WAITH slot on XPTN Wait. 


ARICOWT puts potnter to IORS into WAITN slot on I/O Wait 
and pointer to RECB into WAITM slot on Lock Wait (allous 
“ISGL Operator" to force an agent in Lock Wait). 


Licensed Material - Property of ISN 


® ARICDSP replaces IORB and RECS pointers with pointer to a 
dummy ECB; this keeps “processed ECBs"* out of the list. 
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WAITECB List CARICEVT) - VM 
t I70 ECB (or DUNMY ECB) 
ft BUMMY ECB > Operator Agent 


t DUMMY ECE 


t DUMMY ECB 


> Checkpoint Agent 


> Ready/Recovery Agent 


t I/O ECB (or DUMMY ECB) 


t OUMHY ECB 
t RECB (RECEIVE or 
DUMMY ECB) 


t I/O ECB 


t DUMMY ECB 


> General Agent 


> Other General Agents 


t RECB (RECEIVE or 
OUMMY ECB) 


<— End of WAITECB List 


® ARICWAT puts pointer to RECB into WAITECB slot on XPTN 
Wait. 


© ARICOWT puts pointer to I/O ECB into WAITECB slot on I/0 


Wait and pointer to RECB into WAITM slot on Lock Wait 


(allows "ISQL Operator" to force an agent in tock Wait). 
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(Offsets are in hexadecimal) 


| 
| 
| 
| (allocated, but not used) 
| 
| 


DCE Chain - VM 


OCE Operator (01) 


OCE Checkpoint (02) 


DCE Ready/Recovery 
MUM - (03) 
DS2CRDCE (in DS2CVT) 
contains pointer to 
"dispatched" DCE 


SUM = (03) 
MUM ~ (04) 


1 

> Other General Agents (This 

| and following entries are 
MUM only) 


MUM - (05) 


(This and following entries are MUM only} 


© ARICOSP replaces I/O ECB and RECB pointers with pointer to 


a dummy ECB; this keeps "processed ECBs" out of the list. 
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Backovut Flow Initiated by ARICHAT 


The folloving diagram provides a general overview of the will initiate the bacsout process vhenever it is called with 
backout (rollback) process as intiated by ARICWAT and an a explicit backout request or it finds the DCEFORCE 
example of the backout process is also provided. ARICWAT indicator set. 


ROS (ARIXERD) 
® RDS Clean-up 


ARICHMUD/ARICOMB 


ARICHAT 
, (Backout ) 
Normal Wait? | NO —> DCEFORCE = 1 | NO 
¥ 
YES ] DCERESET = 1 | 
YES 

RO = RIS ARLYT23 ------ Sets Backout Flags 
RIS=sDCE 1 
a inca DCELKRTRM = 1 


ARICOSPI 


DCELKTRM = 1? /— NO > RETURN 
bs 
YES 


ARTIYTIS 
Perform os eae (rollback) 


RO = R13 
RIZ=fDCE 
OCEXPTN=3 


ARICDSP1 SF eo When the Dispatcher is called, DCELKTRN = 1; 
{no RETURN) -- OCEXPTN = 1» INTRAN = 0, RSSFLAG = N, and 
either ARICENA or ARICCLA vill be called. 
In either case, this agent will be re-dispatched 
at the start of ARIXERD. 
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Example of Backout Flow Through SQL/DS (FORCE Issued) 


RDS: 
@ Issues a DBSS (ARIYMOO) call (RSSFLAG=Y,INTRAN=1 ,DCEPWF=0 ) 
© DBSS does I/O and issues I/O wait(s) (OCEIOWAT=1) 


* Operator issues FORCE DISABLE 
® Operator Agent dispatched (process FORCE) 
*% FORCE calls ARIYT23. Initiates backout, and sets 
OCELKTRM=1, DCEFORCE=1, DCEXPTN = 0, DCELOCK = 03 
returns to Dispatcher to wait next command (DCEGENRL = 1). 


@ ¥/G operation(s) complete (all I/O done) return is made to ARIYNOO 
@ ARIYMOO finds the backout (rollback) process has been started, calis 
ARIYTIS to do the rollbacks and sends a return code to RDS. 


RDS: 
¢ Yssues a reply message vith EOP (end-of-process) (ARICOMB) 
® Goes to get the next message CARICNUD } 
— ARYCMUD calls ARICHAT 
~ ARICWAT finds DCEFORCE=1: 
a. Calls ARIYTI5 (NOP as it has been previously called) 
b. Calls ARICDSPi (Dispatcher wait) with DCEXPTN=! 


Dispatcher Wait: 
© Finds DCELKTRM=1 and DCEXPTN=13 goes to DISPLIO. 
® DISPIIO finds "not INTRAN' and "RSSFLAG=N" (from rollback process) 
- Calls ARICCLA to disconnect/connect the CPC or IUCY link 
WAITM or WAITECB on CECB (or dispatches if connected? 


hs To start of RDS (ARIXERD) 
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DSC Agent Handling and Communications (continued) 


ARICDSP (SQL/DS Dispatcher) - for YSE 


Fa bas DISP: 


N7/ 


® Save pointer to current DCE (OS2CRDCE). 
® Load agent's registers and return To Agent 


ARICDSP1 (WAIT): 
® Save agent's registers (DCE + X'30'). 


® If "XPTN WAXT" (DCEXPTN=1) and 
"backout in progress” (DCELKTRH=1) D | DISPLIO 
Nf page 167 
® Reset the current DCE pointer (DS2CROCE?) 
to zero. 


fsbo DISPO10: 


Sef 


© Get next DCE in chain (unless end-of-chain) 


© If it is the last DCE in the chain and the 
chain is scanned: 
a. Do WAITM on ECB list. 
b. Start at top of DCE chain. 


* Get pointer to DCE's entry into HAITM list 
and get the pointer to the IORB slot. 


® If the DCE is in an I/O wait (DCEIOWAT=1)! 
and I/0 is complete: 

a. Reset the DCE I/0 wait indicator. 

b. Replace the rointer to the IORB with a 
pointer to a dummy ECB in the WAITH list 
slot for this OCE. 

e. If the agent is not in a backout state 
({OCELKTRH=0), and it is a General 
Purpose Agent, check for a CPC reason 
code (IJBXREAS). 

1. If there is a CPC reason code 
2. If there is no CPC reason code 


® If the DCE is dispatchable (OCEPWF=00), 
go to - 


® If the DCE is in an I/O wait (DCEIOWAT=1) 
and the agent is not in a backout state 
(DCELKTRH=0), and it is a General Purpose 
Agent, check for a CPC reason code 
(IJBXREAS): 
a. If there is a CPC reason code 
b. If there is no CPC reason code 


® If the DCE is in a lock wait (DCELOCK=1) 
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The DCE can be in only one type of SQL/DS 
“vait state" at a time (1/0 wait, lock vait, 
CPC (XPTN) wait, or general vait, but not in a 
combination of any of these wait states). 


‘/ 


V7 


1 9) ©: | LINKDOWN 


(page 166) 


L__ __., Tc | LINKDOWN 


(page 166) 
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OSC Agent Handling and Communications (continued) 


and the agent is not in a backout state 

(OCELKTRM=0)}, and it is a General Purpose 

Agent, check for any CPC reason code 

(IJBXREAS): 

a. If there is a CPC reason code (not=0), 
reset the lock wait indicator 
(DCELOCK=0), replace the pointer to the 
Receive ECB (in the WAITM list) with 

the pointer to the dummy ECB and 


If there is no CPC reason code (=0) [5 | prspo1o 
\_7 (Page 165) 
® If the DCE is in an XPTN wait (DCEXPTN=2): 
a. If the DCE is not "connected" 
(DCECNCT=0) and the CECB is posted: 
unpost the CECB, reset the XPTN vait 
indicator (DCEXPTN=0), set the agent- 
connected indicator (DCECNCT=1), move 
the application name into the 
Communication Manager's Parameter List 
C(CPLTOAP=IJBXTOAP), and 


If¢ the DCE is “connected” and the RECB 
is posted: reset the XPTN wait indica- 
tor (DCEXPTN=0), replace the pointer to 
the RECB (in the WAITM list) with the 
pointer to a duamy ECB and a 


© If none of the above, then it must be a 
“general® wait (DCEGENRL=21) 


[2 | prspoio 


\_7 (Page 165} 


[a | DISP 


\_/ (Page 165) 


DISP020; 
© If CPC reason code (IJBXREAS) is 9 


© If CPC reason code (IJBXREAS) is not 0 


LINKDOWN: 
® Store the pointer to the DCE into the 
OS2CVT current DCE pointer (DS2CRDCE) and 
establish addressability to the agent's 
DSCAREA and YTABLEIL. 


® Ensure that Operator Communications does 
not call the Dispatcher for wait 
(DSCWTONT=0) and does not go to the ISQL 
operator. 


° If it is the Ready/Recovery Agent: 


a. If the link has been disconnected | e OrsPizo 
b. If a severe IUCV communication error t \7 (Page 1723 
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OSC Agent Handling and Communications (continued) 


occurred, error detection point Ol 


* Initialize to backout agent (rollback? 
to “save point” 0. 


© If the Resource Manager partition issued a 
CPC CLEAR, set the reset indicator 
{OCERESET=1). 


© If the Resource Manager partition did a 
normal disconnect, initialize to do a 
commit (roll forward). 


® Reset the CPC reason code fIJBXREAS=0}). 


® Restore the pointer to the current DCE 
(RL3=OS2CRDCE). 


re DISP110: 


\? ® Store the pointer to the DCE into the 
OS2CVT current DCE pointer (OS2CRDCE) and 
establish addressability to the agent's 
BSCAREA and YTABLE). 


® Ensure Operator Communications does not 
call the Dispatcher for wait (DS2WTOWT=0) 
and does not go to the ISQL operator. 


® If it is an Indoubt Agent {TPHNDOUT=1) 
and not forced off (OCEFORCE=0) by the 
operator E DISP120 

\_7 (Page 168) 

*® If the agent is “in-tran" (INTRAN=1) or 
“in DBSS” (RSSFLAG=Y) and backout has not 
started (DCELKTRM=0) initiate the backout 


If return code: Display: 
1. Display “INVALID RETURN CODE FROM ARIYT23 (036)" 
2. Error detection point 02 


Reset the “XPTN WAIT (DCEXPTN=0) and 
indicate "backout in progress" 
CDOCELKTRM=ID. 


ARLYHO2 


* If the agent is not “in-tran" CINTRAN=0) 
and not in DBSS (RSSFLAG=N)}; 
- If the IUCY communications link has been 
disconnected set DCERESET=0 and go to 
DISPL20. 


| E | DISFi20 (Page 168) 
\é4 
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OSC Agent Handling and Conmunications (continued) 


- If the cross-partition link is not to be 


disconnected (DCERESET=1 and ARICRST 
DCEFORCE=0)}, reset it. 
ARICENA 


- Ensure the agent connected indicator 
€DCECNCT=1) is still set. 


3 ARICCOM 
Fe bs DISP120: 


Nf - Else the cross-partition link is to he 


dropped ~ disconnect/reconnect ARICCLA ARICRST 
® Reset the pointer to the correct DCE 


(OS2CROCE=0) and enable the Operator Agent 
to call the Dispatcher for I/0 waits 
(DS2NTOWT=1). 


¢ If the DCE is dispatchable >| A DISP 
ELs@_ —$$£ $$ \./ (Page 165) 


la | DISPOLO 


\_7 (Page 165) 
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DSC Agent Handling and Communications (continued) 


| 
U 


ARICDSP (SQL/DS Dispatcher) - for VM 


Ose: 
® Save pointer to current DCE (DS2CRDCE). 
® Load agent's registers and return To Agent 
ARICDSP!] (WAIT): 
® Save agent's registers (DCE + X'30"). 
© If "XPTN WAIT" (DCEXPTN=1) and “Link 
termination in progress" (DCELKTRM=1) D } OXYSP110 


\/ page 171 
® Reset the current DCE pointer (DS2CRDCE) 
to zero. 


DISPOLO: 
® Get next DCE in chain (unless end-of-chain) 


® If it is the last DCE in the chain and the 
chain is scanned; 
a. Do WAITECS on ECB list. 
b. Start at top of DCE chain. 


Sve 202 


* Get pointer to DCE's entry into "multiple 
wait" list and get the pointer to the 
I/O ECB slot. 


© If the OCE is in an I/O wait (DCEIOWAT=1)? 
and I/O is complete: 

a. Reset the OCE I/O wait indicator. 

b. Replace the pointer to the I/O ECB 
with a pointer to a dumay ECB in the 
“wait-multiple" list slot for this DCE. 
and go to DISP 

¢. If the agent is not in a backout state 
(DCELKTRN=0), and it is a General 
Purpose Agents check for an IUCV 
communication code (VMCRESCD, set by 
SQL/DS External interrupt handler) 

1, VNCRESCD = 0 
2. VNCRESCD = 0 


* If the DCE is dispatchable (DCEPWF=00), 
go to 7 

® If the DCE is in an I/O wait (DCEIOWAT=1) 
and the agent is not in a backout state 
(DCELKTRH=0), and it is a General Purpose 


Agent, check for an IUCV conaunication 
code; 
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The DCE can he in only one type of SQL/DS 

"Onit state" at a tine (1/0 wait, lock wait, 

IUCV communication wait, or general wait, but not 
in a combination of any of these wait states). 


p—__—_sfie ] LINKDOWN 


\_7 Upage 170) 
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OSC Agent Handling and Connunications (continued) 


a. If there is an IUCV communication 
code : 
b. If there is no IUCY comnunication 
code : 


® If the DCE is in a lock wait (DCELOCK=1) 
and the agent is not in a backout state 
(DCELKTRH=0), and it is a General Purpose 
Agent, check for any IUCV communication 
code: 
a. If there is a IVUCY communication 
code (not=0) reset the lock wait 
indicator (OCELOCK=0), replace the 
pointer to the Receive ECB fin the 
“wait-multiple" list) with the pointer 
to the dumay ECB and 


If there is no IUCV communication 
code (=0) = 


to the RECB (in the “wait-aultiple” list) 
vith the pointer to a dumsay ECB and see, 


© If none of the above, then it must be a 
“general” vait (DCEGENRL=1) 


>/DISPO2O: 
® If IUCV communication code is 0 


e If IUCV communication is not 0 “1 


LINKDOWN: 

® Store the pointer to the DCE into the 
DS2CVT current DCE pointer (DS2CROCE) and 
establish addressability to the agent's 
OSCAREA and YYVABLEL. 


® Ensure that Operator Communications does 
not call the Dispatcher for wait 
(DS2WTOWT=0) and does not go to the ISQL 
operator. 


® Ynitialize to backout agent [rolliback) 
to “save point" 0. 


© If the Resource Manager partition did a 
normal disconnect, initialize to do a 
conmit (roll forward). 


170 =©SQL/Data System Logic, Volume 1 


® If the DCE is in an XPTN wait (DCEXPTN=1]): 
and the RECB is posted: reset the XPTN wait 
indicator (DCEXPTN=0}, replace the pointer 


> fc | LINKDOWN 


\N/7 (page 170) 


ale | DISPO10 


\_/7 (Page 169) 


[| DISPOLO0 


\_7 (Page 169) 


\7 (Page 169) 
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DSC Avent Handling and Communications (continued) 


® Reset the reason code (VHCRESCO=0). 


* Restore the pointer to the current DCE 
(RL3=DS2CROCE). 


fo bo DISP110: 


ey * Store the pointer to the DCE into the 
OS2CVT current DCE pointer (DS2CRDCE) and 
establish addressability to the agent's 
OSCAREA and YTABLE1. 


© Ensure Operator Communications does not 
call the Dispatcher for wait (DS2WTOWT=0) 
and does not go to the ISQL operator. 


®@ If the agent is “in-tran" (CINTRAN=1) or 
“in OBSS” (RSSFLAG=Y) and backout has not 
started (OCELKTRH=0) initiate the backout 


If return code: Display: 
1. Display “INVALID RETURN CODE FROM ARIYT23 (038)" 
2. Error detection point 02 


Reset the "XPTN WAIT (OCEXPTN=0) and 
indicate "backout in progress" 
(DCELKTRM=1). 


ARIYHOZ 


© If the agent is not “in-tran" (INTRAN=0) 
and not in DBSS (RSSFLAG=N): 
~ If the IUCV communication link is not 
to be dropped (DCERESET=1: DCEFORCE=0): 
a. Clean up the agent structure 
b. Set Systex Mask (SSM) to disable 
external interrupts. 
c. If the IUCV communication Link has 
been disconnected (SEVERed) 
d. If the IUCV cormnunication link has 
not been disconnected, allocate 
the first waiting pseudo agent to 
this real agent. 
e. Set Systen Mask (SSH) to enable 
external interrupts. 


ARICRST 
| E DISPizo0 
N74 


{Page 372) 


ARICENA 


F | DISP130 
\/ «(Page 172) 


— Set System Mask (SSM) to enable external 
interrupts. 


~ Ensure the agent connected indicator 
(DCECNCT=1) is still set. 
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DSC Agent Handling and Connunications (continued) 


DISP120: 
\_7 - Else the IUCV communication link is to be | ARICCOH ] 
dropped and the first waiting "pseudo 
agent" will be allocated to this "real 
agent". —>} arrccia | | ARICRST ] 
NZ ® Reset the pointer to the correct DCE 


(DS2CRDCE=0) and enable the Operator Agent 
to call the Dispatcher for I/O vaits 
(DS2NTONT=1). 


© If the DCE is dispatchable 
Else 


A | DISP 
\/ UPage 169) 


[a | DISPO1G 
\/ (Page 169) 
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DSC Agent Handling and Coraunications (continued) 


ARICDWT {Dispatcher Wait Routine) 


If the wait request is a "gate wait" or 
“latch wait", set the lock wait indicator 
({DCELOCK = 1) and store the pointer to the 
Receive ECB in a “wait-multiple”™ list 
RECB slot for the agent. 


If the wait request is an "I/O wait", set 
the I/0 wait indicator (DCEIOWAT = 1) 

and store the pointer to the IORB {VSE} or 
I/O ECB (VN) in a “wait-avltiple"” list IORB 
or I/0 ECB slot for the agant. 


If the wait request is not a “gate wait", ! 
a “latch wait", an "I/O wait", nor a 
“suspend wait", set the “general wait" 
indicator (DCEGENRL). 


Ensure that all DCEs are scanned 
{(DS2DCESC = 1) and wait for the "event 
to coaplete. 


ARICDPT (Oispatcher Post Routine) 


If the request is not for a "gate wait" or 
“latch wait" post, reset the “general 
wait" indicator (DCEGENRL = 0). 


If the request is for a “gate wait" or 
“latch wait" post, reset the “lock vait" 


indicator (DCELOCK = 0) and put a pointer 
to the dumay ECB into a "wait-aultiple" 
list receive ECB slot for this agent. 


Tell the dispatcher to scan the DCE chain 
for a dispatchable agent (DS20CESC = 1). 
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et) 


A “suspend vait" request is a vait request that does not 
set the DCE wait indicators, that is, it leaves the DCE 
morked as dispatchable. Its purpose is to sallow tenporary 
suspension of a long running process (for example, index 
search or sort) to give up control to allow other 

S@L/DS agents to he dispatched. 


When control is returned to the SQL/DS Dispatcher, the 

next DCE in the chain is obtained and checked if 

dispatchable. Once the end of the DCE chain is reached, 

the DCE at the start of the chain uill be obtained and 
checked if dispatchable. The scan will continue until 

the end of the DCE chain is reached a second time 

(assuming no dispatchable DCEs were found). At this point 
the dispatcher will issue a WAITM (VSE) or MAITECE (VM) macro 
instruction on the list of ECBs in the a "wait-multiple™ list. 


ARICDSP1 
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DSC Agent Handling and Conaunications (continued) 


ARICCiA (Clean-up Agent) - for VSE 


Deactivate the Agent Structure 
(DCEINACT = 1) and indicate 5QL CONNECT 
reguired (DSCSCHED = 0). 


Determine what type of Agent Structure is 
to be disconnected from the CPC link 
(General, Indoubt, Ready/Recovery). 


Disconnect Agent Structure from CPC link. 
If error: 
— Print: 


— Error detection point 01. 


Clean-up Working Storage and Stack 
Storage. 


If SQL/DS is quiescing (SHUTDOWN NORMAL or 
ARCHIVE): 
~ Reset the XPTN link connected indicator 
(DCECNCT = 0) and deactivate the agent 
structure. 
- Decrement the "number of active agents 
counter’ (YRSACTAG). 
- If all agents are inactive: 
1. Set “all agents quiesced” indicator 
{YRSQDONE = 1). 
2. Initialize to perfora final archive 
or checkpoint. 
- If all agents are not inactive, 
display: 


If SQL/DS is not quiescing, determine the 
type of Agent Structure to be reconnected 
and connect it to a CPC link. 
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ARIYMOS 


ARICCOM 


Display: "CPC ERROR" (027) 


ARTYHOZ 


ARICRST | ARIYT06 


ARIYMOS 


ARIYKIL9 


Display: “n SQL/DS COMMUNICATION LINKS ARE STILL CONNECTED" 
(029) 


—————)/ ARICENA 
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DSC Agent Handling and Communications (continued) 


ARICCLA (Clean-up Agent) - for VN 


Deactivate the agent structure (DCEINACT 
=1) and indicate whether an SQL CONNECT 
is required (DSCSCHED=0). 


If communication link was terainated (by 
the SQL/BS side), set up passback to the 
Resource Manager (set the IUCV user data 
field to “SGLABEND"). 


Set System Mask (SSM) 
interrupts. 


to disable external 


Gisconnect Agent Structure from IUCV 
link (perform SEVER). 


ARICCOH 
ARIYMO4 | Display: "COMMUNICATION ERROR" {027) 
ART Yra2 


ARICRST | ARIYTO6 | 


—- Print: 


- Error detection point Ol. 


Clean-up Working Storage and $tack 
Storage. ———————$____—_—______. 


Decrerent count of the number of connected 
users. 


If SQL/DS is quiescing (SHUTDOWN NORMAL or 

ARCHIVE): 

- Reset the XPTN Link connected indicator 
{BCECNCT = 0) and deactivate the agent 
structure, 

~ If all users have disconnected: 

l. Set System Mask (SSH) to enable 
external interrupts. 

@. Initialize to perform final archive 


ox checkpoint. — >] ARIYELS 
~ If all users are not disconnected, — 


display: ie ARTYHOG Display: ''n USERS STILL COHMUNICATING WITH SQL/DS" ' 92°) 


° Tf SQL/0S is not quiescing 


—- Turn on indicator to request Enable 
Agent handling to remove pseudo-agent 
from ‘real agent’, 


$$$ nny | ARTCENA 


- Set System Mask (SSM) to enable 
external interrupts. 
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DSC Agent Handling and Communications (continued) 


ARICRST (Reset Storage Routine) 


[ 
® Initialize to perform reset storage 


function using the prototype agent 
structure. 


* If the agent structure has an RDAREA stack: 

- Check for stack extensions, and if any, 

free then. 

~- Reset the initial stack to free any 
allocated storage. 


® If the YTABLEi stack has any extensions: | 

- Free the extensions. 

- Reset the initial stack to free any 
allocated storage. 


@ If the current input mailbox buffer is 
not the default buffer: 
~ Free the buffer storage. 
~- Error detection point O01. 
- Reset the pointer to the current input 
mailbox to use the default buffer. 


® If the agent structure has a TPMAP entry 
currently assigned: 
- Reset the TPMAP. 

- Free any working storage extension. 


ARICWAT (Cross-Partition Wait Routine) 


e If it is a "noraal" XPTN wait request 
(DCEFORCE = @ and not a rollback request 
CCWATTYPE = ' '))}: 

- Indicate a XPTN wait request 
(DCEXPTN = 1). 

- Place the pointer to the Receive ECB 
into the agent's "vait-multiple™ List 


slot. 
~ Wait for Resource Manager to issue a 
SENDR. | | ARICDSP1 
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DSC Agent Handling and Communications (continued) 


e If it is a rollback request 

(CWATTYPE = S): 

- If the agent structure is to he reset 
only, then indicate "reset agent 
structure” (DCERESET = 1) (do not 
disconnect/connect CPC or IUCV 
compunication link). 

~ If the agent is an "Indoubt" agent that 
has not been forced off, do not prepare 
to rollback (that is» do net call 


ARITYT23) 
- Prepare to rollback the "logical unit 
of work": ‘ 
If return code: 
1. Print: 


2. Error detection point 01. 


- Indicate backout process initiated 
{DOCELKTRM = 1). 


@ If "Backout in Progress" (DCELKTRM = 1): 
~- If the agent is not an “Indoubt" agent 
then perform the follouing: 

J. If the agent is still in a logical 
unit of vork (CINTRAN=1), then 
frepare to do a rollback. 

If cveturn code: 
a. Print: -—— 


b. Error Detection point 02. 


2. Rollback logical unit of werk. 
~ Initialize to reset agent structure or 
I disconnect/connect CPC or IUCV 
| communication link and restart agent at 
start of ARIXERD - (DCEXPIN = })). 
If return is made to this point, error 
| detection point 03. 
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ARTYNO4S 


ARIYT23 


Gisplay: "INVALID RETURN CODE FROM ARIYT23" (0383 


ARLYHOZ 


Display: “INVALID RETURN CODE FROM ARIYT23" (038) 


ARTYMO2 
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DSC Agent Handling and Communications (continued) 


ARICMUD (Communication Link Data Receive Routine? 
— i The Hail Box function is detailed on page 183. 


® Set "Initialize -— output mailbox" indicator 
(OHDINIT = Y). 


e Y¥f ISQL Operator intercepted an RDS SQL 
command go to 


® For YH: Has an end of Logical Unit of work 
(ELUW) occurrea for the current user of 
this agent structure (DSCELUMW = 1)? If se, 
set DCELKTRM = 1 and DCERESET = 1 to force 
current user to release the "real agent" 
for the next "vaiting” user. 


© Wait for the CPC or IUCV RECB to be 
posted (by the SENDR or SQL/DS External 


“The receive message length could be zero due to 


a rollback condition occurring while the SQL/0S 
partition is in a "REPLY/SENOR (length = 0)" loop 

{not end-of-process, see ARICOMB). In this case, 
SGL/DS will be re-driven from the start of ARIXERD 

and ARICMUD will be re-entered fron its entry point 
(as called by ARYIXERD). The application partition 

may have issued a SENDR with message length of zero 
expecting the REPLY process (in ARICONB) to handle the 
condition, but the REPLY process never gets control 
due to the rollback and re-drive of SQL/DS5 at the 
start of ARIXERD. Therefore, ARICMUD must be sensitive 
to this condition and issue a CPC PURGE or an {UCV 
REJECT (VSE only - sending the message length of 

wero back as CPC "User Data"). The Resource Manager» 


] 
ARICWAT | in the application partition, will then reset te do 
a normal SENDR of a message. 


Interrupt Handler). OOO 


e If the receive message length is zero?, 


then "purge" the SENOR request (with 
ROLLBACK}. -—————————_| PURGE 


© If the input buffer is not large enough 
to handle the message to be received then 
get ao larger buffer. 

- If the current input buffer is not the 
default input buffer then release (free) 
the current input buffer. - 
If free storage error, 
error detection point 01. 


| ARIYMNO2 


Allocate a larger input buffer 
If allocation error: 
1. Error other than insufficient storage, 
error detection point 02. 
2. If insufficient storage, "purge" 
SENDR request ——- 
and 
@® Receive the input message fron the 
application (the SENDR side) © 
- If severe CPC or IUCV error: 
1, Print: 


| ARICCOM | 
| ARIYHO4 Display: "COMMUNICATION ERROR" (027) 
ARTYMO2 


2. Error detection point 03. 
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OSC Agent Handling and Communications { continued) 


- If VSE and if the application issued a 
CPC CLEAR, then rollback the “logical 

unit of vork"' without disconnecting the 
CPC link. 
If roliback process returns to this 
point, error detection point 04. 


ARICWAT 


ARTYHO2 


* Set "Bo not allow ferce-forvard indicator" 
(OSCINPRC = 1) until SQL statement 
processed fand REPLYed). 


© Set pointer to "received" message and its 
length. 
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DSC Agent Handling and Communications (continued) 


ARICMUD Subroutine (for VSE) 


3The ARICMUD routine will issue a CPC PURGE under tuo 
conditions, the first is described in Note * above. 
The second case is when there is insufficient storage 
to obtain a buffer large enough to hold the message 
sent by the Resource Manager Side. In this case, a 
CPC PURGE is issued and the “large message length" 


[ arzccon is sent back as the CPC “user data". 
ARIYM04 Display: "CPC ERROR” (027) 
| ARIYHO] | 


© Initialize to issue "CPC PURGE" land 
disconnect link) and passback ‘'SENDR” 
message length as CPC "user data", 


© Purge SENDR request (SENDR issued by 
application side). —————————— 
~ If severe CPC error: 
1. Display: oo 


2. Error detection point 05. 


- If application side issued a "CPC CLEAR" 
just before SQL/DS issued a "CPC PURGE", 
initialize to rollback link without 
"CPC BISCONNECT/CONNECT"’. 

~ If rollback required, then backout 

“logical unit of vork". —— 

If roliback process returns to this 

point, error detection point 06. 


ARICWAT 
$a) | ARTYNOZ 


ARICMUD Subroutine (for VM) 


3The ARICMUD routine will issue a CPC PURGE under two 
conditions, the first is described in Note ? above. 
The second case is when there is insufficient storage 
to obtain a buffer large enough to hold the message 
sent by the Resource Manager Side. In this case» a 
IUCV REJECT. 


>| ARTYHO4 | Display: "CPC ERROR" (0273 


® Initialize to issue "IUCV REJECT" Cand 3 
disconnect link). 


© Purge SENDR request (SENDR issued by 

application side). 

~ If severe IUCV error: 
i. Display: 


ARICCOM 


2. Error detection point 05. ARIYMO2 
~ If rollback required, then backout 
"logical unit of vork'"'. 
If rollback process returns to this 
foint, error detection point 06. 


ARICWAT 


| ARIYNO2 | 
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DSC Agent Handling and Comaunications { continued) 


ARICSPHM (Single Partition Mode Routine) ~ VSE 


If STARTUP = C, set PROGNAHE to “ARIGCAT™. 


If STARTUP = S,» set PROGNAME to “ARISEGB”. 


Load the phase specified in PROGNANME. 
If error: 


Display: “ERROR LOADING PHASE prognarne™ (026) 


~ Exror detection point Ol. 


If it is an SQL/DS phase, save the Star? 
and End Address in the DS2CVT, and 


Call “prognane” phase. ——>|  prognane 


If return code fron “prognane™, set user 
error code in DS2CVT (DSZUSERC = 1), 


Call Implicit Commit Support 


ARIYMOS | Display: “prognane PHASE LOADED AT asaaae”" {625} 


Terminate SQL/DS Single-Partition 
Hode (SPH}. 
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OSC Agent Handling and Communications (continued) 


ARICSPM (Single Virtual Machine Mode) - VM 


f Restore the 'SET DOS ON’ field in the CMS 
NUCON area. 


® Call “prognare" routine. €—————}| progname 


© If return code from "progname", set user 
error code in DSecCvtT (DS2USERC = 1). 


® Turn the bits off in order to complete 
SQL/DS termination. 


Call Implicit Commit Support 


Terminate SQL/DS Single Virtual Machine 
Mode (SVNM). 
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ARLYT23 | ARIYTIS | 
| ARICTRM | 
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OSC Agent Handling and Communications (continued) 


ARICIMB - Build Input Mail Box 


ARICIMB resides in the application side partition. Its 
function is to compact all the input data (by user) and 
place it into a buffer (input Nail Box buffer) in the sane 
sequence requested. This module also manages the buffer 
allocation and deallocation (input Mail Box) when the 
original buffer is not big enough for input request. (The 


ARICING 


Build input 
for input 
Mail Box. 


ARICIIF 


Pointer 
passed 


® Resource 
Manager 


& 


Calling Modules 
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INPUT MAIL BOX 


original buffer is allocated by the Resource Manager.) 
ARICIMB builds the input Hail Box upon different opcodes 
passed to it (up to 14 opcedes). All the input data 
information exists in RDIIN control block (RDS). Pointer to 
RDIIN resides in ARICIIF. 


RDIIN (RDS) 


* CALL TYPE 
® RDIMBLEN 


Linkage 
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DSC Agent Handling and Communications (continued) 


The felloving are the opcodes (call types) passed to ARICIMB: 


CAtt TYPE (RDYCTYPE) MEANING 

30 AUX CALL 

35 SET UP CALL 

40 DESCRIBE CALL 

45 CLOSE CALL 

50 OPEN CALL 

120 SCHEDULE OR CONNECT CALL 

le RECOVERY CALL 

130 PREP INIT CALL 

131 CREATE PROGRAM CALL 

132 DROP STATEMENT CALL 

135 LOOKUP CALL 

146 SQL CALL 

145 FINISH CALL 

355 OPERATOR MESSAGE CALL 

160 RECOVERY (INOOUBT) CALL 

170 OPERATOR CONTINUE CALL 
ARICIMB has to know the size of input to Mail Box (RDIMBLEN otherwise the default Mail Box. (Defavit buffer size is 
in RDIIN) in order to use the right buffer for input mail declared externally in ARICINB). If RDIMBLEN has not been 
box (overflow or default buffer size). Also, it has to calculated, then ARICIMS will find the size of input (first 
inform the Resource Manager uhich buffer has been used for pass). 
Mail Box. There is a message size length in ARICIIF 
(IIFMSGLN). If IIFMSGLN is greater than the default Mail After building the input Mail Box ARICIMB will return to the 
Box size» then the overflow buffer is used as the mailbox» Resource Manager. 
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DSC Agent Handling and Communications (continued? 


ARICHMB —- Hove data to user (application prograr) area (in application side) 


ARICHHB resides in the Resource Manager partition or virtual The Resource Manager is the linkage between the application 
mochine, Its function is to deconpact the data passed by program and ARICHMS. 
SQL/DS to the input Mail Bex and replace it in the user 
(application program) area. Return Codes are: 
6 Successful 
The pointer to the input Mail Box is passed by the Resource ~1 Address boundary violation 
Manager. 
ARICHMB 


Move data from 
input Mail Box 
to user fappli- 
cation progras) 


area 


Input Mail Box 


® Default 


Pointers or buffer 
fassed e ® Overflow 


ARICIIF 


© Resource 
Manager 


Calling redule 
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DSC Agent Handling and Communications (continued) 


ARICOMB - Send data to user (application program) partition or virtual aachine. 


ARICOMB resides in the SQL/DS partition (VSE) or virtual a multiple-user mode environment, ARICOMB would use the Mail 
machine (VM). Its function is to "get" the SQL/DS output to Box facility to pass the data to the user partition or 

the user (application program) area. ARICOMB is sensitive | virtual machine. The main functions when using the Mail Box 
to running-mode environment. There is a flag (RDASYSM) in facility in a rnultiple-user mode environment are: 

RDAREA uhich states the running environment of the syster 

('S* = single-user aode or 'M' = nultiple-user mode). If 1 - Build an output elerent in output Mail Box buffer 

SQL/DS is running in singlé-user node, then ARICOMB sinply 2 - Pass the output data (Mail Box) via the coraunication 
moves the data to the user area (no Mail Box). Hovever, in link. 


Move data to user partition/virtual nachine 


RDAREA i 
® Mail Box routine 
Te [ 


(multiple-user saode) 


® Simple nove data to user 
area (single-user node) 


DSCAREA 


ARICOIF 


Len of | ¢ Area 
data SQL/DS 


End of 
process flag 


Linkage 


Calling Modules 
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DSC Agent Handling and Communications (continued} 


Layout of Output Mail Box Contents 


Output 
Mail Box OUTPUT ELEMENT 2 
Buffer : 


liieadae ots) OUTPUT ELEMENT (n) 


Output Element (in OUTBUILD Mail Box} 


POINTER 
TO USER 


AREA 


Transfer of output Mail Box would happen in two cases: 


1, The precess is done and conplete. 
2. It is not the end of process but the output Mail hox 
buffer is full CSEGMENTATION). 


The following would <¢ause the second case (SEGMENTATION): 
1 ~- The output message length is greater than output Mail 


Box buffer size 
2 - There is not enough room in output Mail Box buffer 


MAIL BOX HEADER | OUTPUT ELEMENT 1 


In the above cases ARICONS would sequent the output data to 
the Mail Box capacity and then ships the Mail Box cross 
over. This action vould repeat until the whole output data 
is transferred. The wait is issued in segmentation process 
until control is returned. This vill insure that output 
data is received in the other side and placed in the user 
area. 


ARICOIF is the linkage between the caller and ARICOMB when 
ARICOHB is called to build an output element in the output 
Mail Box or to do a simple nove (single user node). The 

pointer to input parameters resides in DSCAREA (DSCOMBPP). 


DSC TRACE SERVICES 


* Fron ARIYTOO 
ARICTRI (Trace Initialization) 


ARICTRI is called during SQL/DS 
initialization if either the 
TRACDBSS or the TRACRDS parameter 
was specified as a SQL/DS 
initialization paraneter. ARICTRI 
supports SQL/DS trace activation 
via the SQL/DS initialization 
process (as opposed to the YRACE 


operator command). ARICTRI proapts 


the operator to: 

® Allocate a currently unassigned 
tape unit to SQL/DS for tracing 

® Ready the unit (with a scratch 
volune) 

® Reply with the tape unit cuvu. 

For hex to binary conversion (cuu 

message prompt input) call 


ARICTRI then: 

® Causes the trace output file to 
be dynamically assigned (VSE 
only) and opened. 
If the open fails an error 
message is diplayed and the 
operator is again prompted 
(see above). 
Updates the DS2CVT to indicate 
that trace is now active 
Inforrs the operator that trace 
is active 
Returns to the caller. 


If the message operator replies 
CANCEL rather than CUU to the 
prompting message, the DS2CVT 

is flagged to indicate that 

trace is ‘OUTPUT DISABLED‘ (so 
that the trace service routines 
can deactivate tracing in each 
agent structure and so that the 
trace conraand processing/shutdoun 


SQL/DS initialization continues. 


ARXYMO4 is called to issue 
messages to the Syster Operator 
for: 

® Prompting message ARIOS5A ~ to 
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routine can function properly), and 


ARIYE06 Hex to Binary Conversion 
ARISYSDS5 | Systen Dependent Input/Output 


Return 


ARTYM04 DBSS/DSC Message Services 
(via MSG rmacro) 
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ready trace tape and reply vith 
cuu 

® Error nessage ARIO86E - if 
invalid reply to nessage ARIO55A 

® Message ARIOS6I - if reply to 
message ARIO56A is CANCEL 

® Message ARICI4E - if dynanic 
assign/open for trace output 
file fails 

@ Hessage ARIO95I - for normal 
conpletion 


* From ARIYH1L1 
Entry point ARICTRC] is called by ARICTRM 
ARICTRC (Trace Connand Processing) 


ARICTRC is invoked to process the 
SQL/DS TRACE cperator connand 
(primary entry point ARICTRC} or to 
shut doun SQL/DS trace when the 


SQL/DS partition or virtual 
machine terminates nornally or 
abnormally (secondary entry point 
ARICTRC1). 


If the TRACE ON operator command 

is specified, the operator is 

prompted, via reply messages» for 

the folloving: 

® Whether SQL/DS is to trace only 
activity for: a specific user-ID, 
a specific agent number or all 
agents 

® Khether SQL/DS is to trace 
functions in the DBSS or the RDS 
or both 

e If RDS tracing is requested, 
which functions are to be traced 
and the trace level for each 

@ If DBSS tracing is requested, 
which functions are to be traced 
and the trace level for each 

@ If the DUMP paraneter vas 
specified in the TRACE ON 
command, what trace point number 
is te cause a SNAP DUMP uhen 
first activated. 
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DSC Trace Services (continued) 


For TRACE ON, modules ARIYEO6, 
ARIYEOQ4, and ARIYEOS are called. 
ARIYEOQ6 is used for cuu parameter, 
ARIYEO04 is used to edit terminal 
input line into token array (for 
prompting aessage inputs). 
ARIYEOS is used for converting 
inputs agent number and trace point 
number. 


ARIYEO6 Hex to Binary Conversion 
ARIYEOS Tokenize Input Line 


ARIYEOS Decimal to Binary Conversion 


H 


When prompting is complete, unless 
trace is in OFF NOCLOSE state the 
routine ARISYSDS is called to 
dynamically assign (VSE only) 
and open the trace output tape 
file. Next, the systen control 
blocks which contain trace control 
information (YTABLE] for DBSS 
agent local, RDAREA for RDS agent 
local and DS2CVT for SQL/DS 
global) are updated to indicate 
that trace is active and to control 
what DBSS and ROS functions are 
to be traced. The operator is 
inforned that trace is active. 


| ARISYSDS5 | System Dependent Input/Output Routine 


If the TRACE OFF operator command 
is specified, the trace control 
information in system control block 
CYTABLE1, RDAREA, or DS2CVT) is 
reset to reflect the TRACE OFF 
state. If NOCLOSE was specified, 
the operator is inforaed that trace 
is now off but the trace file 
remains open. If NOCLOSE was 
omitted, routine ARISYSD5 is 
called to close and dynamically 
unassign (VSE only) the trace 
output tape file, the DS2CVT 
control block is updated to 
reflect trace file closed, the 
block is updated to reflect trace 
file closed, the operator is 
informed that trace is off and 
closed, 


>| ARISYSDS | System Dependent Input/Output Routine 


If trace lock is held by another 
agent, ARICDWT is called. 


| ARICDWY | DSC Dispatcher External Wait 
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DSC Trace Services (continued) 


When the ARICTRC is called during 
SGL/DS termination (secondary 
entry point ARICTRC1)}): 

® If trace is not active and 
closed, the module returns. 

* If trace is active or not closed, 
Processing is functionally 
identical to the TRACE OFF 
operator command above except 
that the NOCLOSE specification 
does not apply. 


ARTYNOG is called to issue ARIYNO4 | OBSS/DSC Hessage Services 
messages to the operator fors 


{via MSG macro) 
® Various prompting messages for 
additional TRACE ON parameters 
(entry point ARICTRC only? 
A message that command or trace 
shut doun was processed 
successfully 
A message that command conflicts 
with existing trace status (entry 
point ARICTRC only} 
A nessage that command has 
invalid, missing or extra 
parameter (entry point ARICTRC 
only) 
4 message that prompt message 
response is invalid (entry point 
ARICTRCE only?) 
A message that operator requested 
command ternination (entry point 
ARICTRC only) 
A xessage that trace file 
dynanic assign (VSE only) or 
open failed (entry point ARICTRC 
enly) 
* A message that trace vas output 
disahbied and is now off 
A message that trace file close 
or dynamic unassign (VSE only) 
failed 
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DSC Trace Services (continued) 


® ARIXETR and ARIYE!4 are ‘tuin' 
OBSS, respectively. 
ARIXETR is called by a RDS acti 
ARIYE!4 is called by a DBSS act 


trace services routines for ROS and 


ve trace point (via XTRACE macro). 
ive trace point (via TRACE macro). 


ARIXETR/ARIYEL4 (Trace Services) 


Trace services routines are used 
to cause trace point data to be 
collected and written to the Trace 
Output File. This function is 
invoked via the XTRACE macro (RDS) 
or the TRACE macro (DBSS). 


On entry tests are made to 

determine if: 

© Trace is active at all 

® Active for current User-ID 

® Active for the invoking function 
(If not active; return with no 
output). 

© To determine if a snap dump was 
requested (via TRACE command) 
(If snap dump was requested, the 
SQL/DS partition or virtual 
machine Snap Durp Routine is 
called and Snap Dump request 
is disabled (dunp first tine 
only )) 


Using the caller-provided trace 
point number, the corresponding 
trace point descriptor module is 
located and within the trace point 
descriptor module, the 
corresponding trace point 
descriptor structure (generated hy 
macros TPOINT etc.) is located via 
the trace point descriptor 
directory (generated by the TPDIR 
macro). The trace point descriptor 
structure, supplemented by caller 
parameters, describes what data is 
to be collected and displayed for 
this trace point activation. A 
trace point header subrecord 
containing the trace point nuaber» 
opcode, user-ID, agent number, 
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OSC Trace Services (continued) 


date» time and LUW (DBSS only) is 

created and written out. Various 

optional substructures within the 

trace point descriptor allow 

display of: 

© Trace point module nane or entry 
point name and whether trace 
point is module entry, nodule 
exit or other 

® Literal strings which are nessage 
“Eye Catchers” for the trace 
point 

© Return code values 

® Local variables (addressability 
is nodule local) 

® Global variables (addressability 
is global} 


For variables, the trace point 

descriptor supplies: 

® The keyword to be associated 
with the data 

® The display format (decinal, 
character» hex, hex dump,» 
special formatting) 

* Mininum trace level required to 
display the variable. 


The address and length of the 
variable may be supplied by the 
trace point descriptor or by the 
caller depending on data 
addressability and length 
characteristics. The trace point 
data is collected into trace point 
data records in a stylized 

internal format and written to the 
trace output file. For trace record 
output ARISYSDS is called. If 
ARISYSOS call returns an error, 
an @rror message is issued via a 
call to ARIYHOS. 


ARISYSO5S | I/O Services Function of System Dependent Services 
DBSS/DSC Message Services 
ARTYHO4 {vie RMSG or HSG eacro) 


DCE Dispatcher External Wait 


On nodule entry, after it is 
determined that trace point output 
is required, if internal trace 
lock is held hy another agent, 
ARTCONT is called. 
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DSc 


Trace Services (continued) 


% Froa ARIYMOO 
ARIYEO!] (Trace DBSS Opcode Entry and Exit) 


The main entry point 1. “lLled by 
ARIYHOO when ARIYMOO is called and 
DSSS entry tracing is active. 
Entry point ARIYEO11 is called by 
ARIYMOO vhen ARIYMOO is returning 
(DBSS opcode call completion) and 
DBSS exit tracing is active. 


If trace is not active for the 
current user-ID, the nodule simply 
returns. 


For DBSS Entry: 


If the entry trace level is 2 

and there is a DBSS entry trace 

routine for the opcode, the DBSS Entry level 2 
routine is called to display Opcode—dependent 
the ‘opcode name’ string, and trace routine 
opcode input variables via a 

DBSS entry trace point. 

If the entry trace level is 1 or 

there is no DBSS entry trace 


routine for the opcode, this 
module executes a trace point | ARTYE14 | DBSS Trace Service Routine 
vhich displays: {via TRACE macro) 


DBSS ENTRY, and 
L_OPCODE='opcode name‘ 


For DBSS Exit: 


194 


If the exit trace level is 2 and 

there is a DBSS exit trace = 

routine for the opcode, the DBSS Exit level 2 

routine is called to display Op code—dependent 

the ‘opcode name’ string, the trace routine 

return codes and opcode output 

variables via a DBSS exit trace 

point. 

If the exit trace level is 1 

or there is no DBSS exit trace 

routine for the ovpcode, this 

module executes a trace point —| anzvess | DBSS Trace Service Routine 

which displays: (via TRACE macro) 
DBSS EXIT, 
L_OPCODE='opcode name's and 


RETCODE=return-code-value. 
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DSC SYSTEM DEPENDENT ROUTINES 


ARICINT (SQL/DS External Interrupt Handler) - VM only 


Entry Point - ARICINT 


* If 


interrupt type is ‘pending connect*> 


then: 


a. 


by 


Tf no pseudo-igent is available, 
SYSTERR. 0 
Use first available pseudo-agent. 


. If shutdoun is in progress, call 


communication manager to sever with 
user data ‘SHUTDCHN'. 

If running in SVMM; call communication 
manager to sever vith user data 
"SVMMODE*. 

If dbname being connected to does not 
match dbname that is running: 

call communication manager to sever 
vith user data ‘WRONGDB’. 


. If no SEVER or SYSTERR condition, then: 


Tf 


- Call communication manager to accept 
connection, 

- Allocate pseudo-agent from available 
queue and put on in-use queue. 

- Return to caller. 


interrupt type is ‘pending message's 


inen: 


a. 
b. 
ian 


Save interrupt information in VMCBLOCK. 

Post RECEIVE ECB. 

If not already connected to real 

agent, then: 

~ If real agent is available, connect 
pseudo-agent to real agent. 

- If real agent is not available, put 
pseudo-agent on waiting queue. 

Return to caller. 


interrupt type is ‘severed’, then: 
Save interrupt information in VHCBLOCK, 
Post RECEIVE ECB. 
Put translated sever code into VNCBLOCK. 
If pseudo-agent is not connected to 
real-agent»s then: 
- If skutdoun is in progress and this 
is last pseudo-agent, then: 
L. Connect pseudo~agent 
2. Return to caller. 
~ Call cornunication manager to do 
sever. 
- Renove pseudo-agent from in-use queue 
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DSC System Dependent Routines (continued) 


and put it on available queue. 
e. Return to caller. 


e If interrupt type is any other, SYSTERR. 


Entry Point ARICINTL 


© If interrupt type is ‘completed 
connection’, then: 
- Save interrupt information in VMCBLOCK. 
~ Save starting and ending block nuabers. 
- Save R/O or R/W status. 
- Post CONNECT ECB. 


e If interrupt type is ‘severed’, then save 
interrupt inforration in VMCBLOCK. 


® If interrupt type is ‘completed nessage', 
then: 
- Save interrupt information in VMCBLOCK. 
- Post SEND ECB. 


® If interrupt type is an other, SYSTERR 
and return to caller. 
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ARICCOM tSQL/DS Communication Manager) = VSE 


the request is 

or REPLY: 

a. Initialize the CPC control block vith 
the pointer to the message buffer and 
message length. 

b. If the request 3s for a SENDR, 
initialize the CPC control block with 
the pointer to the reply area and to 
length. 

¢. Clear out the “receive user data" 
field and store any user data to be 
sent into the "send user data" field 
in the CPC block. 

d. Issue the XPCC command. 

e. Clear the "send user data" field in 
the CPC block and get any “receive 
user data". 

f. Get the last function executed by the 
other side (the connunication 
partner) and the CPC return code fron 
the CPC block. 

g. If the return code in register 15 = 
and the requested function vas a 
RECEIVE, then get the length of the 
rnessage that was received and return 
to caller. 

h. If the return code in register 15 = 
and the requested function is a SENDR 
or REPLY: 

If a WAIT was requested and a wser 

” eat specified go to user exit. 

- If a WAIT was requested: 

1. Wait for the SENDR or REPLY te 
complete. 

2. Get the nessage length sent; the 
“yeceive user data", and the last 
function performed by “partner's 
side". 

3. If there is a CPC reason code, 
get the reason code. If the 
partner side disconnected 
(nornally or abnormally), set 
the reason code to the 
“disconnected return code" value. 

~ Return to caller. 


for a SENDR, RECEIVE, 
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DSC System Dependent Routines (continued) 


i. If the return code in register 15 7= 0: 
~ If the other side disconnected, 
convert the disconnect codes to 
SQL/DS disconnect codes (normal or 
abnormal). 

- If the return code was not a 
disconnect or a clear, treat the 
return code as an SQL/DS systen 
error. 

- Return to caller. 


© If the request is for a WAIT then wait 
for the ECB to be posted. 

a. Unpost the ECB and get the message 
length, the user data, and the last 
function performed by partner's side 
froa the CPC block. 

b. If there was a reason code (in the 
CPC control blocks and if partner's 
side disconnected, convert the 
disconnect codes to SQL/DS disconnect 
codes. 

c. Return to caller. 


° If the request is for a CONNECT: 
a. Initialize the CPC control block with 
the CPLTOAP name (or binary zeros if a 
CONNECT ANY request), the ID (XP) of 
the CPC control block, the CPC control 
block length» and the ID key from the 
IDENTIFY function. 

b. Issue the XPCC command. 
ec. If the return code in register 15 = 0: 
Get partner's name into CPLTOAP (for 
CONNECT ANY)» unpost the CONNECT ECB 

(CECB) and the SEND ECB (SECB) and 
return to the caller. 
d. If the return code in register 15 += 
and it is a warning code (8) and the 
CPC return code is not a ''quiesce"™ 
code, then treat it as if an SQUL/DS 
system error occurred and return to 
caller. 
e. If the return code is an informational 
code (4); 
- If a WAIT was requested and a user 
exit specified, go to the user exit.— 
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- If a wait vas requested: 
4. Wait for the CONNECT to he 
completed. 
2. Get partner's nazne into CPLTOAP 
(for CONNECT ANY) and unpost the 
CECB and SECB. 
3. If there is a reason code; get 
it and set the reason code in 
register 15 to a 4 (infornatory). 
4. Return to caller. 
~ If no wait requested, convert any 
CPC return code to an SQL/DS return 
code. 
- Return to caller. 


° If the request is for a DISCONNECT or 
unconditional DISCONNECT: 
a. Issue XPCC command. 
b. If any return code in register 15, then 

treat it as an SQL/DS system error. 
¢. Return to caller. 


* If the request was for a Receive RESETR or 
Send RESETS: ? 
a. Put any "send user data" into the CPC 
block, clear the “receive user data" 
field in the CPC block. 
. Issue the XPCC command. 
¢. Clear the "send user data" in the CPC 
block and get the RECB (RESETR?) or SECB 

(RESETS) address. 

d. If the return code in register 15 = 0: 

-— If a vait vas requested and @ user 
exit specified, go to the user exit. 

- If a wait was requested: 

1. Wait for the RESETR or RESETS to 
complete. 
2. If there is no CPC reason code, 
return to caller. 
3. If there is a CPC reason code: 
a. If it is a disconnect, convert 
it to an SQL/DS disconnect code 
(normal or abnormal). 
b. Return to caller. 
e. If the return code in register 15 -= 0: 

— Convert any disconnect code to a 
SQL/DS disconnect code. 

- If not a disconnect or clear return 
code, then treat it as an SQL/DS 
System error. 

- Return to caller. 


> The SQL/DS RESETR and RESETS functions are 
the XPCC PURGE and CLEAR functions respectively. 


yr 


“USER EXIT’ 
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o If the request is for an IDENTIFY: 

a. Initialize the CPC control block with 
the ID (XP), the length, and the 
applications name. 

b. Issue the XPCC Command. 

c. Get the task-id and the return code 
fron the CPC block. 

d. If the return code in register 15 = 0, 
return to caller. 

@. If the return code in register 15 >= 0 
and it is a "duplicate name" code; 
convert it to an SQL/DS return code. 

f. If the return code in register 15 += 0 
and it is not a "duplicate name” code, 
treat it as an SQL/DS system error. 

g. Return to caller. 


* If the request is for a DISCONNECT ALL, * 
LOGOFF, LOGOFF UNCONDITIONAL, or a 
SHUTDOWN: 

a. Get the address of the CPC Identify 
control block. 

b. Issue the XPCC Command. 
ec. If a return code, treat it as an SQL/DS 
system error. 

d. Return to caller. 


* LOGOFF is the XPCC TERMINATE function. 
LOGOFF UNCONDITIONAL is the XPCC TERMPRGE function. 
SHUTDOWN is the XPCC TERMQSCE function. 


e If the request for a Subsystem Identify: 
a. If it is a NOTIFY, issue a SUBSID 

NOTIFY command, o_o 

b. If it is a REMOVE, issue a SUBSID 

REMOVE command. 

e. Return to caller. — RETURN 


° If the function request cannot be 


identified, treat it as an SQL/DS systen 
error. 
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DSC System Dependent Routines (continued) 


ARICCOM (SQL/DS Comaunication Manager) - VM 


If the request is for a LOGON or LOGOFF») 
set pointer (VMCFTR} to LOGON VMCBLOCK. 


If the request is not for a LOGON or 
LOGOFF: 

- Set pointer (VHCPTR) to CONNECT VHCBLOCK. 
- Clear out TUCV PLIST. 

- Initialize path-id in IUCV PLIST. 


If request is for a LOGON, CONNECT, or 
OPEN, clear out the VNCBLOCK. 


® Store request code in VHCBLOCK, 
Set return codes and reason codes to 0D. 


If the request is not for a LOGON, LOGOFF, 
DISCONNECT ALL; or ACCEPT; issue COMPARE 

and SHAP instruction om VHCBLOCK to ensure 
that a SEVER has not been issued for this 
connection. 


If a SEVER occurred, branch to SEVERCND. 


tf the request is for a SENOR: 
~- Initialize the VMCBLOCK and IUCV 
paraneter list vith: 
a. Pointers to send and reply buffers 
b. Message length and reply length 
¢. Flags to indicate that all nessages 
expect a reply and that all messages 
are non-priority. 
« Store ¢t to SEND ECA in WAIT ECB of 
CPLIST. 
~ Unpost SEND ECB. 
= Issue IUCV SEND macro. ¢ 
~ If return code from IVUCV = 9: 
a. If WAIT requested (CPLWATIN = 'Y¥'}) 
1. If user exit specified 
{CPLUSEXT == 0), call user 
exit. 
2. If ECB unposted, issue WAITECB 
macro on ECB to be posted 
(CPLRTECB). 
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OSC Systea Dependent Routines (continued) 


3. If return code ~= 0, then: 
~ Translate and store reason code 
(CPLRETCO) in CPLIST and in 
reason code field in VMCBLOCK. 
~ Set register 15 accordingly. 


~ If asynchronous return code (reason 
code = 0: 


a. 


Store message ID (VMCHIDP) for IUCV 
function execution in VHCBLOCK. 
Store actual length of reply in 
VMCBLOCK and in CPLIST. 

return code fron IUCV -= 0, then: 
For any return codes > 1000 (CP IUCV 
codes), subtract 900. 

Translate any codes that nap to VSE 
codes. 

Store actual return code in VMCRETCD. 
Store translated return code in 
CPLRETCD. 

Set register 15 to indicate either a 
severe error (12), a varning (8), or 
an informatory message (4). 


e If the request is for a RECEIVE: 
Initialize the VMCBLOCK and IUCV 
parameter list with: 


a. 
b. 
co 


Unpost RECEIVE ECB. 
Issue IUCV RECEIVE macro. 
condition code = 2 {no message found), 


If 


Receive buffer address 
Receive buffer length 

Flag to indicate that path-id is 
specified. 


set CPLRETCD to indicate condition. 
Set return code (register 15) to 
indicate a severe error (12). 


Branch to EXIT LOGIC. 


If 
a. 


b. 
Co 


a. 
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return code ~= 0, then: 

Translate any codes that aap to VSE 
codes. 

Add 100 to all CP IUCV codes. 

Store actual return code in VMCBLOCK. 
Store translated return code in 
CPLIST. 

Set register 15 to indicate either 

a severe error (12), a warning (8), 
or an informatory aessage (4). 
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DSC System Dependent Routines (continued) 


° oi the request is for a REPLY: 
~ Initialize the VMCBLOCK and IUCV 
parameter list with: 
a. Reply buffer length 
b. Reply buffer address 
c. Flags to indicate that path-id, 
msg-class, and asg-id are specified. 
- Unpost RECEIVE ECB. 
~ Issue IUCV REPLY macro. 
= If condition code = 2 (no nessage found)» 
set CPLRETCD to indicate condition. 
Set return code {register 15) to 
indicate a severe error (12). 
Branch to EXIT LOGIC, 
- If return code -= 0, then: 
a. Translate any codes that map to VSE 
codes. 
h. Add 100 to all CP IUCV codes. 
¢. Store actual return code in VMCBLOCK. 
Store translated return code in 
CPLIST. 
d. Set register 15 to indicate either 
a severe error (12), a warning (8)> 
or an informatory message (4). 


A 


© If the request is for a WAIT: 
s bad ECBPOST = *O'B, then: 
Issue WAITECB macro on ECB to he 
posted. 
- Unpost WAIT ECB. 
~- If reason code = 0, then store reply 
length in CPLIST and in VHCBLOCK. 
- If reason code == 0; then: 
a. Translate and store reason code 
in CPLRETCD of CPLIST,. 
b. Set register 15 to indicate either 
a severe error (12), a warning (6)> 
or an informatory message (4). 


° If the request is for an ACCEPT: 
~ Initialize the VMCBLOCK and IUCV 
parameter List with: 
a. Path-id 
bh, User data 
c. Message Limit 
a. Flags to indicate that path-id is 
specified 
~ Clear error flags in VMCBLOCK. 
= Unpost CONNECT ECB. 
= Issue CMSIUCV ACCEPT anacro. 
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DSC System Dependent Routines (continued) 


- If return code ~=0, then: 
a. For any return codes > 1000 (CP IUCV 
codes), subtract 900. 
b. Translate any return codes that rap 
to VSE codes. 
¢. Store actual return code in VMCBLOCK. 
Store translated return code in 
CPLIST. 
d. Set register 15 to indicate 
either a severe error (12)> a 
warning (8), or an infornatory 
message (4). 
~ If return code = 0, set up CPLIST 
with the folloving passback information: 
a. Target user nare 
b. User data 
¢. Address of CONNECT ECB 
d. Address of wait ECB. 


® If the request is for a CONNECT 
or OPEN: 
- If request is for an OPEN: 
a. Initialize DISKID parameter 

list vith DDNAME from CPLIST 

(CPLDDNAM). 

b. Store DONAME in VMCBLOCK (VMCDDNAM). 
¢. Call DISKID function via 

svc 202. 

da. If return code = 0: 

1. Set up exit address (address of 
External Interrupt Handler) in 
CMSIUCV PLIST. 

2. Store the virtual device address 
in CPLIST and in VMCBLOCK. 

3. Store the block size in CPLIST 
and in VMCBLOCK. 

4. Store the offset in CPLIST and 
in VMCBLOCK. 

5. Store the virtual address, block 
size, and offset in IPUSER for 
IUCV function execution. 

6. Store "*BLOCKIO" in CPLIST and 
in field for target application 
nane (VMCTOAP) in VMCBLOCK. 

7. Set VMCFPDTA flag to indicate 
message will be in parameter list 
for block I/O. 

e. If return code -= 0, then: 

1. Store return codes in CPLIST and 

in VMCBLOCK. 


S0ISKID (SVE 202) 
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DSC System Dependent Routines (continued) 


2. Set return code in register 15 
to indicate a severe error (12). 
Branch to EXIT LOGIC. 

~ If request is for a CONNECT: 
a. Initialize the VNCBLOCK and IUCV 
parameter List vith: 

1. Partner user nane 

2. User data 

3. Message limit 

b. Unpost CONNECT ECB. 
- If request is for CONNECT or OPEN: 
a. Initialize the VMCBLOCK and IUCV 
parameter list with partner user nane. 
b. Unpost CONNECT ECB. 
¢. Issue CHSIUCV CONNECT macro. 
d. If return code == 0, then: 

1. For any return codes > 1000 (CP 
IUCV codes}, subtract 900. 

2. Translate any codes that nap to 
VSE codes. 

3. Store actual return code in 
VHCBLOCK. Store translated return 
code in CPLIST. 

4. Set register 15 to indicate either 
@ severe error (12), 8 warning (8), 
or an infoxrnatory message (4). 

e. If return code = 0, then: 

1. Store address of CONNECT ECB in 
WAIT ECB ({CPLWTECB) in CPLIST. 

2. Store WAIT ECB in CONNECT ECB 
(CPLCECB) in CPLIST. 

3. Store address of SEND ECB in 
CPLSECB. 


[a | page 208 
\@ 


IUCV CONNECT macro 


- in VMCBLOCK for — 
future calls. 
5. If WALT requested: 
- If user exit specified, then 
call user exit. 
- If WAIT ECB unposted, issue 
WAITECB on ECB to be posted. 
~ Issue WAITECB on ECB to be 
posted. 
~ Set return code to 0, 


*. If asynchronous return code (reason 
code) == 0; 
1. If request is for OPEN: 
- Add 150 to all asynchronous 
return codes and pass back in 
CPLIST (CPLRETCD). 
- Set register 15 to CPLSEVER (12) 
to indicate a severe error. 
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DSC System Dependent Routines {continued) 


2. If request is for CONNECT: 
- Pass back reason code in CPLIST 
(CPLRETCD). 
~ Set register 15 to CPLWARN (&) to 
indicate a warning message. 


® If return code = 0 and request is for OPEN: 
~ Store the number of blocks in the file 
in CPLIST (CPLNOBLK)? and in VMCBLOCK 


(VMCNOBLK ). 

- Set flag €VMCOPENF) to indicate the file 
is open. 

- If flag (VMCIOFLG) indicates file is 
read only: 


a. Set flag in CPLIST (CPLIOFLG) to 
indicate read only. 

b. Store return code to indicate read 
only in CPLIST (CPLRETCD} and in 
VMCBLCCK (VMCRETCD?}. 

c. Set register 15 to CPLINFO (4) to 
indicate an informatory message, 

- Clear vait bit in CONNECT ECB to 
indicate function has completed. 


* If the request is for a DISCONNECT 
PURGE, DISCONNECT ALL or CLOSE: 
- If request is not for CLOSE, stores user 
data in IUCV PLIST. 
~ If request is for DISCONNECT ALL, then 
set code to disconnect all outstanding 
connections. 
- Issue CMSIUCV SEVER macro, 
~ If return code ~= 0, then: 
a. For any return code > 1000 (CP IUCV 
codes), subtract 900, 

b. Translate any codes that map to VSE 
codes. 

¢. Store actual veturn code in VMCBLOCK. 
Store transiated return code in 
CPLIST. 

d. Set register 15 to indicate 
either a severe error (12), a 
Warning (8), or an informatory 
message (4). 

- If return code = 0 and request is for 
CLOSE, then set open Flag (VMCOPENF) to 
NO indicating that the file has been 
closed. 


————>CMSIUCVY SEVER macro 
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OSC System Dependent Routines (continued) 


° 


- If return code ~= 0, then: 


~ Store application name (CPLAPNAN) in 


at the request is for a RESETR: 
Set flag to indicate that path-id is 
specified. 


- Unpost RECEIVE ECB. 


- Issue TUCY REJECT macro. 
- If condition code = 2 {no message found), 
then set CPLRETCD to CPLNOHSG. Set 
register 15 to 12 and branch te EXIT 

LoGIc. 


IUCVY REJECT macro 


| A Page 206 
\7/ 


a. Translate any codes that map to YSE 
codes. 

b. Add 100 to all CP IUCV codes. 

e. Store actual return code in VMCBLOCK, 
Store translated return code in 
CPLIST. 

d,. Set register 15 to indicate 
either a severe error (12), a 
warning (8), or an infornatory 
message {4}. 


bd the request is for a LOGON: 
- Initialize eyecatcher (VHCCATCH). 
- Initialize length of LOGON VHCBLOCK. 


LOGON YMCBLOCK (VMCVMID). 
~ Issue HNOIUCV SET aacro. 
- If return code -= 0, then: 

a. For any return codes > 1000 (CP IUCV 
codes}, subtract 900. 

b. Translate any codes that map to VSE 
codes, 

¢. Store actual return code in VMCBLOCK. 
Store translated return code in 
CPLIST. 

d. Set register 15 to indicate 
either a severe error (12), a 
warning (8), or an informatory 
message (4). 

~ If return code = 0, then: 

a. Set task-id (CPLTID) to binary zeros 
in CPLIST and in VMCBLOCK (VNCTSKIO). 

b. Store the maximum number of 
connections in CPLMHAXCNS snd 
in VMCHAXCNS. 


NDIUCY SET macro 


If the request is for a LOGOFF: 
- Issue HNDIUCV CLR macro. 
~ If return code == 0, then: 
a. For any return codes > 1000 (CP IUCV 
codes), subtract 900. 


HNOIUCY CLR nacro 
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OSC System Dependent Routines i continued) 


b. Translate any codes that map to YSE 
codes. 

¢. Store actual return code in VMCBLOCK. 
Store transiated return code in 
CPLIST. 

® If the request is for a SETMASK: 
- Store the mask byte in IUCV PLIST and 

VMCBLOCK. 

- Issue IUCV SETCMASK macro. 
- If return code ~= 0, then: 

a. Translate any codes that map to VSE 
codes. 

b. Add 100 to all CP codes. 

e. Store actual return coda in VMCBLOCK. 
Store translated return code in 
CPLIST. 

a. Set register 15 to indicate either 

a severe error (12), a warning (8)>5 
or an informatory message (4). 


IUCV SETCMASK aacro 


© If the request is not for any of the above: 
Send back code in CPLRETCD and in VMCRETCD 
to indicate invalid request code. Set 

register 15 to CPLSEVER (12). 


[ab 


\ 7 


EXIT LOGIC 


® If the request is not for a LOGON, LOGOFF, 

DISCONNECT, BISCONNECT ALL, or ACCEPT: 

- Issue COMPARE and SWAP instruction on 
VMCBLOCK to ensure that a SEVER was not 
issued for this connection. If no SEVER 
occurred, branch to RETURNCD. 

~ SEVERCND: Set return codes and reason 

codes accordingly. 


[sb 


\ 7 
RETURNCD 
e If register 15 <= 4, then store request 


code in VMCBLOCK for last performed 
function. 
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DSC TERMINATION 


ARICSHT (SQL/DS SHUTDOWN Routine - SQLEND/SHUTDOWN Command) 


If invalid input parameter {not ARCHIVE, 
NORMAL» or QUICK) # 


Set return code = —1 and 


(If VM» set the shutdown indicator 
DS2SHTDN=1, so the SQL/DS External 
Interrupt Handler will not accept nev 
users.) 


If SQLEND/SHUTDOWN QUICK, set reason code 
to 0, set return code to Warning (8) and 
terminate 


If SGLENO/SHUTDOWN ARCHIVE or NORHAL 
been issued before 
and return (return code = 0) 


Set SHUTDOWN-in-progress indicator 
(YRSTRMQS=1) and 


If SQLEND/SHUTDOWN ARCHIVE, set ARCHIVE- 
requested indicator (YRSTRMAR=1) 


If VSE: 

a. Issue CPC TERHQSCE command to prevent 
new users from “logging on" to 
sau/ps,? 

If error: 


and 


b. Determine the number of “active Agent 
Structures (DCECNCT=!1) and set "number 
of active agents" counter (YRSACTAG). 


If Vu: 

. Disable external interrupts. 

Sat “number of active agents" counter 
(YRSACTAG) to the nunher of in-use 
pseudo agents. 


oe 


If agents are still active (YRSACTAG not 
03 tand, for VM, reenable for external 
interrupts). 


} SQLEND/SHUTDOWN uithout an operand defaults to SQLEND/SHUTDOWN NORMAL 


Display: 
“SPECIFY ARCHIVE, NORMAL, OR QUICK” (031) 


RETURN 


Display: 
“SQL/DS TERMINATION ALREADY IN PROGRESS" (030) 


RETURN 


Display: 
"SQL/DS IS TERMINATING" (028) 


2 the order of issuing the CPC TERMQSCE conmand is for 
Ready/Recovery, General, and Indouvbt Agents. When an 
agent is disconnected from the CPC link, it will not 
be reconnected. 


| ARTYNO4 | “DA COMMUMICATION LINK ERROR HAS OCCURRED" (0273 


>/ARIYHO2 | Error detection points 01, 02, 03 
(See page 224 for ARIYNO02) 


Dis; %y: 
"n  SL/DS COMMUNICATION LINKS ARE STILL CONNECTED" (029) 


DSC Termination (continued) 


. If VM, reenable for external interrupts. 


no agents are active: 


Indicate all agents are quiesced 
CYRSQDONE=1) 

If SQLEND ARCHIVE (CYRSTRMAR=1), then 
set on archive-requested indicator 
CARCHCOM=1 ) 

If SQLEND NORMAL (or SQLEND), 
indicate checkpoint required (CHKCNTP=0) 
Post the Checkpoint Agent Structure to 
perfora final checkpoint or archive 
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RETURN 
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OSC Termination (continued) 


ARICTRM (SQL/DS Termination Routine) 


e If termination has already started ! Display: 


(YRSTRMST=1) SS ARTYMO4G " ERROR OCCURRED DURING SQL/DS TERMINATION’ (034) 


and return to operating system 
with return code 516. 3 Once ARICTRM has been invoked, a VSE system operator 
CANCEL or a VM/CMS HX should not be issued. If a 
* Set "termination started" indicator RETURN TO CANCEL or HX is issued, it is treated as a termination 

CYRSTRMST=1) and ensure that: SYSTEM error. 

- Operator Communications goes to the 
system operator (OSCOSLCT=0,0SCONODE=0) 

— For VSE, messages are printed on both 
console and printer (D0S2DROUT=1, 
DS2OSFDV=B); for VM, messages are printed 
on the console only (DS2SDPDV=C). 

— Operator Communications does not 
invoke the Dispatcher wait routine 
(OS2WNTONT=0). 

® If there is a return code in the DS2CVT 

(DS2RETCD) and it is greater than 8 

{warning code), override any potential 

user return code and reset user retura 

code indicator (OS2USERC=0). 

® Get reason code from DS2&CVT (DS2RESCD) if 
greatar than any reason code passed to 
this routine uhen called, 
I¥ return code is not zere and it is a 
SOL/U5 return codes add 500 to return 
code value. Display: 
® Display message # et Sea - | arrins | 2 SQL/DS HAS TERMINATED” (032) 
if yveason code 7? ¢— 2 "SQL/DS REASON CODE" (962) 
Uisplay sessage 3 7 "S@L/DS RETURN CODE" (043) 
® Close the SQL/0S data hase if 
SGLEND/ SHUTDGWNH->="QUICK" 
® Close the SGQL/DS trace tape (if not open; 
it is treated as a NO-OP by ARICTRCEL),. €— 
* If any return code is greater than ary 
previous SQL/DS return code lin DSZRETCO), 
add 500 to it and pass it back te the 
operating systen. 
© If the printer file was open (VSE), 
close it. 
a. If rceturn code; ensure output goes 
only to the console and display © 
b. If no previous SQL/DS return code, set 
the return code to 504 (linformatory) 
and pass it back to the operatin 


Display: 
——$——}| ARTYM04 “ERROR TRYING TO CLOSE THE PRINTER" (033) 
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DSC Termination (continued? 


systen. 
© If VM, issue an IUCV LOGOFF. 
® Initialize registers to return to ARICIP) 
system clean up routine. 
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OSC Termination (continued) 


ARICABE (SQL/DS Abend Handler) 


MMH HN HHH HM HM RHR HH 
For VM, "PHASE" ("phase") is translated 
to “PROGRAM” ("program"). 

SHRM RMR MMH HMM RARER 


Set the pointers to the DS2CVT and the 
prototype YTABLE!. 


Ensure messages are printed according to 
the OSPLYDEV parameter (DS2DROUT=1) and the 
Dispatcher wait routine is not called by 
Operator Communications (DS2WTOWT=0), 


If the routine was called by the operating 
system abend routine, set the reason code 
to the abnormal termination code (if VSE,> 
passed by the operating system in register 
0; if VM, obtained from the abend PSW 
interrupt code). 
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For VSE, register 0 contains the abnormal teraination code when ARICABE 
is called by the operating system (it contains 0 uhen called by ARIYMO2). 
The abnormal termination codes are docuzented in VSE/Advanced Functions 
Macro Reference, SC24-5211, under the discussion of the STXIT AB macro 
instruction and in SQL/DS Hessayes and Codes {see the VSE manual for 
further infornation). Register 1 points to the start of the abend save 
area (in the DS2CVT, field DSZABSA). 

For VH, register 1 points to the start of the CNS Abend save area 
{OMSABH CSECT in DMSNUC). The abnormal termination code is obtained 
from the abend PSW interrupt code. These codes are documented in 

VMN/SP Systera Messages and Codes, SC19-6204, under the discussion of 

CHS abend codes. The abend PSW and registers at the time of the abend 
are moved into DSZABSA. 

Preceding the DS2ABSA Abend save area is a pointer to the start of 
DS2CVT. In addition, the Abend process is driven off the prototype 
YTABLE1] established by, and used during, the SQL/DS initialization process. 
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OSC Termination (continued) 


® If the DScCVT does not contain a pointer to 
the “current DCE’ (DS2CRDCE=0), set the 
tracking indicator to 0. 


3 I¢ an Abend condition occurs while a SQL/DS Agent has been 
dispatched, the address of the DCE of that agent will be 
found in DS2CRDCE. This aeans that the DSCAREA for that agent 

° If there is a pointer to the "current OCE” ean also be located via the DCE (DCESRAP). If the OS2CROCE 

in the DS2CVT, set the tracking flag to 

DSCYRACK and reset the DSCTRACK indicator 

in the DSCAREA. Reset the ISQL Operator 

Communications flags in the OSCAREA,. 


When the OSCAREA can be located via the DCE, there is a tracking 

flag set to indicate what area of SQ@L/DS was executing when the 

Abend condition occurred (that is, in the DSC/DBSS, RDS, AUX 

© If this routine was called hy the operating 
systen abend routine, reset the ABEND 
exit to allow this routine to be reentered 
on potential future abend conditions. 


setting of this flag directs the Abend Handler in determining 
what functions it showld perform. 


ARISYSDK 


® If this routine was entered due to a 
“cancel” request: 

a. Display 2 

b. Display ? 

c. If the reply was 'Y’, do a snap dump. 
(The snap duap to he taken is 
according to the SQL/DS DUMPTYPE 
paraneter. If DUMPTYPE=N vas 
specified, then the default DUMPTYPE=P 
(partial - control blocks only) will 
be used). 

d. If VM and an "HX" condition, return 
to the CMS Abend routine. 


Display: 
ARIYMO4 1 "S@L/DS CANCEL HAS BEEN REQUESTED" (0353 
2 "IF YOU WANT A DUMP, REPLY Y" (044) 


ARICPOM {see page 223 for module ARICPDM) 


@. Verminate SQL/DS. ARICTRM {see page 211 for module ARICTRH) 

© If VM and called by SQL/DS Interrupt 
Handler (ARICINT) for a systerr, put out 
systerr message for ARICINT, error 
detection point xx. 


ARTYMO4 


® If the abend condition was a program check 
in the AUX (access module) and it was in 
the range of a data exception to a floating 
point divide, go to CONT1L {page 217) 


® Display abend save area (DS2ABSA) ARICDMP 


| 


© Determine the address of the instruction at 
the time the abend condition occurred 
(that is, the "failing address"). 


field is 0, the Abend condition could have occurred during SQL/DS 
initialization or termination, or while in the SQL/DS Dispatcher. 


(access module), ox called by ARIYMO2 (system error routine). The 
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OSC Termination (continued) 


® If ARICABE was not called by ARIYHO2: 
a. Display the abnormal termination 
code! 
b. Display the “program old PSN” ? 


ARIYE13 
ARIYE13 


(page 21 


® Display the general purpose registers at 
tine of failure 


® Locate the phase containing the 
“failing address". ————- 


® if the phase vas located: 
a. Display ¢———————————_ 
(see page 219 for the subroutine?) 


Display: 


Note i: 


If register 13 points to a 
“potential” save area address and 
the save area back pointer (save 
area + 4) contains a "potential" 
save area address, display ¢€——3> 


Display: 


Note 2: 


® Using the register 13 hack pointer, locate 
the return address to the module calling 
the “failing” module and find the phase of 


® If the calling phase was found: 
a. Display “CALLED FROM OFFSET ¢nnnann 


in xxxxxxxx PHASE (aaaaaa) a 
PRTMSGP | Page 


(See Note 1) 


b. If the back pointer in the 219 
caller's save area contains a 
“potential” save area address, 
display “CALLED FROM OFFSET ¢nnnnnn 
IN MODULE ARIxxxx yy.ddd" 
(See Note 2) “La prmiscn] page 
219 
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1 “ABTERM CODE cece AT aaaaaa" 

2 “PROGRAM OLD PSH IS: xxxxxxxx xxXxxXxxxx" 

cece - is the abnormal termination code 

avaaaa - is the failing address 

XXXXXXxX ~ is the PSW separated into tuo 4~-byte sections 


9) 


“FAILURE AY OFFSET ¢nnnnnn in xxxxxxxx PHASE (aaaaaa)" 


The List of "known" phase addresses is located in the DS2CVT. 

annnnnn is the hexadecimal offset from the start of the 
phase (the address derived from the PSH in the abend 
save area). This value can he added to the phase starting 
address obtained from the linkage—editor map to assist in 
in determining the failing nodule. 

xxxxxxxx is the name of the phase 

waazaa is the starting address of where the phase resides 
in storage. 


“FAILURE AT OFFSET ¢nnnnnn IN MODULE ARIxxxx yy.ddd" 


The nodule name is found using the “eyecatcher™ 

in the module where the failure occurred. It is 
found by following the register 13 save area back 
chain pointer (register 15 of the caller of the 
failing nodule points to the entry point of the 
failing aodule). 

¢nnnnnn is a hexadecimal value; the offset fron 

the start of the module to the “failing address" 
(that is; the address derived from the PSW in the 
abend save area). This value can be used when looking 
at an assenbler source listing of the referenced 
module (ARIxxxx). 

ARIxxxx is the name of the failing nodule. This is 
obtained from the module “eyecatcher” five or seven 
bytes past the module entry point. 

yy.ddd is the compilation date of the module. It is 
also obtained from the nodule "eyecatcher" field. 
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DSC Termination (continued) 


e If this routine vas called by the operating 
systenrs 
a. Display the storage around the 
failing instruction 
If the failure was due to a 
“potential” wild branch, display 
“POTENTIAL WILD BRANCH AT aaaaaa” ? 
i. Using the register 14 values 
locate the phase containing the 
BAL(R} instruction €————3 


2. If the phase vas located; 7) 
PRTMSGP | 
3. If the name of the (eyecatcher) 
module containing the BAL({R) | 
can be determined, —— | PRTNSGH| 
4. Display the storage around the 


BAL(R) instruction 


® If the error was a program check in the AUX 
(access module) and it vas in the range of 
an operation exception to specification 
exception 


If SYSMODE=S or if the abend condition that 

occurred vas not in RDS nor in the AUX 

(access nodule), then: 

a. Call SYMPSTRG to put out symptoa 
string 


b. Take a dump according to the 
DUMPTYPE parameter. 

¢. If VM and called by operating system» 
call SETMASKS f 

dad. If VM and called by SQL/DS Interrupt 
Handler (ARICINT) for a systerr, return 
to the CMS Abend routine. 

e. Terminate, 


If SYSMODE=N and the abend condition 
occurred in RDS or a non-program check 
abend condition occurred in the AUX (access 
nodule): 
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ARICOMP 
ARTYEI3 


ARICTRM 


i 


2 Normally, the area displayed is 80 bytes of storage 
beginning 32 bytes before the failing instruction 
(or BALCR)). If the failure is in low storage (near 
Location 0}, then the first 80 bytes of storage is 
displayed, 

Tf the program check is an operation, addressing» 

or specification exception, then the address in 
register 14 fin the failing rnodule's save area) is 
decrenented to deternine if it follows a BAL 14 or a 
BALR 14,15 instruction. If so, then failure could 

be due to an invalid branch address; therefore, it is 
assumed to be a "potential wild branch". 


Page 
219 


Display: 
"BAL(R? AT OFFSET ¢nnnnnn in xxxxxxxx PHASE (aaaaaa}" 
(See Note 1 on page 215) 


Display: 
"BALCR) AT OFFSET +nnnnnan IN MODULE ARIxxxx 
(see Note 2 on page 215) 


- 


yy.ddd” 


| ARTCOMP | 


CONTI] (page 217) 


SYMPSTRG (page 220} 


ARICPDN 


SETMASKS (page 2193 


il 


{See page 211 for module ARICTRM) 
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DSC Termination (continued) 


If VM. call 


Take a dump according to the DUMPTYPE 
paraneter 
Initialize to rollback the logical unit 
of work 

If return code;, 


Call SYHPSTRG to put out syapton 
string 
and terminate 


Indicate rollback started and 
communication link is to be 
disconnected/connected 
(OCELKTRM=1 and DCERESET=0). 
If VM, DCESQLAB=1. 

Rotlback (back out) the LUW 
Set Operation Communication flags 
(OSeWTOWT=1 and DS20ROUT=0). 
Invoke the Dispatcher to de a 
“communications” wait (DCEXPTN = 


1). ARICOSP1] 


CONTI: 
This section of code handles a program 
check im the AUX (access module): 

a. If VM, call 


b. Set the SQLCODE to 802 and add 900 to 
the program check code (SQLERRDI). 

- if the program check was from an 
operation to a specification exception, 
set the SQLCODE to 906, 

Ensure the SQLCODE and SGLERRD) are 
negative values and set the character 
string "GENCODE” into SQLERRP field, 
Put the message tokens and PS tokens 
into the SQLERRMT field ".......5 + 
EXCEPTION PSHCE) PSMI2)". 

Store the message length into the 
SGLERRNL field. 
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SYHMPSTRG 


ARIYT15 


SETNASKS 


(page 219) 


Display: 


"INVALID RETURN CODE FROM ARIYT23" (038) 


ARIYMO4 


(page 220) 


ARICTRN 


Control will be given to the Dispatcher and it will 
not return to this routine. The abend condition vill 
have been cleared and the agent structure cleaned up. 
The agent structure can be reused by the next user 
wanting to communicate with SGL/DS over the 
communication link. 


(page 219) 


wsoeeeee indicates the type of program check exception 

(for example, operation, data: or floatinag-point—divide). 

PSH(1) is the first 4 bytes of the FSW [in printable hexadecimal). 
PSH(2) is the second 4 bytes of the PSM (in printable hexadecimal). 
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DSC Terrination (continued) 


g. If register does not contain a potential 
Save area pointer» 
Call SYMFSTRG to put out synptor 
string 

take a dump, 


Display: 
ARIYM04 “NO SAVEAREA FOUND FOR ARIXRDS" (036) 
>| SYMPSTRG| (page 220) 
4 ARICPON | 


| anrcree | (See page 211 for nodule ARICTRM) 


Display: 
= ARTYMOG | “ENTRY POINT FOR ARIXEBR CANNOT BE FOUND" (037) 


and terminate 
h. Search the register 13 save area 
(folloving the back pointer chain) for 
the entry point to the ARIXEBR module. 
i. If the entry point to ARIXEBR is not 


found, 
Call SYMPSTRG to put out symnpton r 
string,» ¢ aera SYMPSTRG| (page 2203 
take a dump -| ARICPDN | 


and terminate 
j. If the entry point is found, set the 
Operator Communication flags (DS2WTONT=)] 
and DS2DROUT=0). 
| | k. Set register 13 to point to the ARIXEBR 
save area and register 14 to return 
to ARIXEBRI. 


| 1. Return to RDS. ARIXEBR1 


— >) ARICTRM | {See page 21) for saodule ARICTRN) 
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OSC Termination continued) 


ARICABE Subroutines 


PRTMSGP 


® Convert the phase offset (¢nnnnnn) and 
phase address (aaaaaa) te printable format 
and create the message: 
“xxxxxx AT OFFSET tnannnn in xxxxxxxx 
PHASE (aaaaaa)" 


* Gisplay the asessage 
an@ return. | 


PRTHSGN 


© If the module contains an syecatcher and 

it can be found: * 

— Convert the module offset (4¢nnnnann?) to 
printable format and create the message: 
“"xxxxxx AT OFFSET +nannmn IN ARI xxxx 
yy.dda ? 


~ Display the message 
and return. 


° If the search address falls within the 
range of one ef the phase starting and 
ending addresses in the DSZ2CVT, determine 


the offset inte the phase by subtracting 
the address froma the start of the phase, 


® Return 


a 


xxxxxx - is one of the following character strings: 
"FATLURE’, "CALLED", or “BAL(RI". 

nnannnn - is the offset (in hexadecinal) from the start of the phase 
or module. Note: It is possible that if an error occurs 
while in the "prolog” code (that is, before it has established 
the pointer to the save area in register 13), the offset may 
result in a negative value based on the entry point in the 
calling module. 

XXXKXMXXK - is the name of the phase (or module). 

yy.ddd - is the year and the day of the year the xodule was compiled. 


ARIVYE13 


? The start of each zodule should have one of the following code strings: 


USING #, 15 

B @FROLOG 

DC AL1(16) 

OC CL16"modname yy.ddd' 


BALR 15,0 
USING #, 15 
B 3PROLOG 
be ALI(16) 


or 
DC CL24'modnare yy.ddd PFTID‘ 
@PROLOG STM 


ARIYELS 


OC CLI6"modnase yy ddd’ 

or 
DC CL24'modnaxze yy-ddd PFTIo' 
@PROLOG STH 


SETHASKS (VH/SP) 


® Change the CHS protect key to the user key — that is, 
key ‘ec’. {CHS Abend Handler gives control to ARICABE 
in the nucleus protect key - that is, key '0',} 

® Set the system mask enabled for external interrupts. 

® Set the program mask. 


DSC Ternination (continued) 


SYMPSTRG 


* Build appropriate symptom string. There 
are three formats: 


1. For SYSTERRS - 
HS/ARTO4OE 
PIDS/574xSDLY0* 
RIDS/Failing nodule name 
PRCS/xx (where xx is systerr point) 


2. For Prograrm Checks - 
AB/xxxx (uhere xxxx is abend code) 
PIDS/574xSD1LYO* 
RIDS/Failing nodule name 
ADRS/nnnann (uhere nnnnnn is offset 
into failing nodule) 


3. For Abends other than Progran Checks - 
AB/yxxxx (where y = S if a systen 
abend and 
y U if a user abend 
and Xxxx abend code 
PIDS/574xSDLYO* 


® Display the syaptonm string 


% 574xSD1YO0 is SQL/DS Program Nuaber vhere: 
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x 
x 


| ARIYE1LS 


6 for VSE 
8 for Vi 
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DSC Termination (continued) 


ARICOMP (SQL/DS DUMP Routine (17) 


* Get an output buffer to build the dump 
display lines and reset pointers and 
suitches. 


ARISYSDG 


Get four bytes of unprintable data froa 
the area to be displayed and convert to 
printable hexadecinal (eight bytes). 


If there is less than five bytes of 
input data to process go to 


Move the data to the output buffer and 
bump pointers to input data and output 
buffer to next group of data. Go to 


If there is from one to four bytes of 
data left to process; move the data to 
the output buffer and reset the pointers. 


If a title was specified (in the input 
parameters), display the title. 


Print Header Liner ADDR OFFSET DUMP DATA 
| A Page 222 


\7 


Print the header line for the dump. 


If the current length of the dump area 
(CURNTLEN) is zero go to 


© If the current length of the dump area 
is less than 32 bytes then set the 

“printer"™ length (PRNTLEN) to current 
length. 


Build up output "message" (16 bytes of 
data at a tine) with the follouing 
steps. When the area has been dumped, go 
to 
a. Translate pointer to dump area 
(CURNTPTR) into printable hex. 

b. Compute and translate the offset 
(CURNTPTR =— INPUTPTR) of the data to be 
printed «from the point of the data to 
he printed (CURNTPTR! less ‘the start 
of the input data (INPUTPTR)). 

c. Move the input, eight bytes at a tine 
into the output message. 

dad. Hove and translate the hexadecimal 
charactex to printable characters 
(non-printable characters are 
replaced with a period). 


Ta | Page 222 


\7 


Licensed Haterial - Property of IBN Method of Operation 221 


OSC Termination (continued) 


e. If the current line to be printed is 
not identical to the last line 
printed 

f. If the duplicate line suitch is 
off (0): 

- Set it on. 

~ Save the address of the input 
dump area to, be printed in the 
duplicate line field (to and fron 
address portions) and 

g. If the duplicate line switch is 
on (1): 

Move the address of the area to be 
dumped into the duplicate line 
field (to address portion) and 

h. If the duplicate line switch is 
on (1) display: 

i. Reset duplicate line suitch 
(DUPSW = 0) and rove new line into 
message area and print it. 

j. Save the new line in the last line 
field for the comparison in step e. 

k. Update the pointers to print the 

next 16 bytes of data. 


° If the duplicate suitch is on (DUPSW = 1)? 
fhen display the “duplicate line nessage" 


© Free the storage obtained for the output 
buffer and return. 
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'as each “line of data to be displayed (fron the 

dump area) is processed, it is checked against the 
previous line that vas displayed. If they are equal», 
then the nev line will not be printed (the last line 
has already been displayed). Instead a message will 
be printed which states "address TO address 
SUPPRESSED. LINE(S) SAME AS ABOVE..."" when a new 
line is encountered; which is not a duplicate, the 
neu line will be printed. 


Display “address TO address SUPPRESSED. 


LINE(S) SAME AS ABOVE...” 


ARIYEI3 


2This handles the case where the last line is 
a duplicate of the preceding line, that iss 
the first duplicate line encountered is also 
the last Line to be displayed. 
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DSC Termination (continued) 


ARICPDM (SQL/DS Snap Oump Routine) 


* Initialize to snap duap the entire S@QL/DS 
partition if VSE, or entire virtual aachine 


if VM. 


If DUMPTYPE = Full: 


Snap dunp the entire partition at VSE, 
or entire virtual machine if vi.* ARISYSDA 
If VSE, check if the SQL/DS code is in 


1 If sone of the code is in the discontiguous saved 


seguent aren (beyond the end of the virtual aachine) 
it will also be dusped. 


the SVA. If so, dump the SQL/DS code in 
the SVA,. 
and return RETURN 
If VSE and DUMPTYPE = Partial, snap duap 
the following: 
a. Partition save area (preceding SGQL/DS 
code, DSC/DBSS Phase) 
Control blocks after DSC/DBSS phase and 


before RDS phase (if loaded} 
Control blocks after ROS phase iif 
loaded) and before “user phase" lif 
loaded ~— SPM only) 
Control blocks after “user phase” (if 
loaded?) and Batch Resource Manager 
phase (if loaded — SPM only) 
Control blocks after the Batch Resource 
Manager phase tif loaded) up to 
the end of the partition 

f. The DSC/DBSS and ROS link swaps 


If VM and DUMPTYPE = Partial» snap duap the 
folloving: + 
a. Area betveen the start of the virtual 
machine and the YN Resource Manager 
{if loaded). 
Area between the VM Resource Manager 


2 Tf the “user phase" or “user program” is an SQL/DS 


programs such as DBSU, PREP, ete.» (where the first 
three characters of the phase name are "ARI") it 

will not be included in the dump. If the “user phase” 
is a user application program then it will be included 
in the partial duap. If the “user phase" may not he 
coded as reentrant; and therefore may have vital data 
areas that need toe be displayed. 


and the vesee prograr” (if loaded, 
SVHM only?). ARISYSDA 
Area betueen the “user prograrm" (if 


leaded, SVMM only) and the RDS/DSC/DBSS 
code. 

Area between the RDS/DSC/OBSS code and 
the end of the virtual machine. < 

The DSC/DBSS and ROS link maps 


® RETURN 
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DSC Termination (continued) 


ARIYHOZ } 


® Ensure that Operator Communications goes 
to the system operator (DSCOSLCT=0, 
DSCOMODE=0), that messages are sent to 
both the console and printer? (DS2DROUT=1, 
DS2ZDSPDV=8), and that Operator Coamaunica— 
tions does not invoke the Dispatcher 
wait routine (DS2NTOWT=0). 


® Check YTABLE)] (YTIRESCD) for any reason 
code. If a reason code exists» move it 
to DS2RESCD. 


® Save the name of the failing nodule and 
its error detection point (SYSTERR) number 
for the symptom string. 


© If a "limit error’ (OSCLIMER=1)}, set limit 
error return code (12), display message 
and tersinate 


e If a “hardware error" (DSCHRDER=1), 
set hardvare error return code (20), 
display message 


and terminate eee copemany Ue 


© If neither a limit error nor a harduare 
error, then it is a SQL/DS system error: 
- Display message 
~- Set systen error indicator (D52SERFL=1) 
~ Set interface to SQL/DS abend routine 

(ARICABE) to look as if called by 

operating system ABEND routine: 

e. Move ealler’s registers inte DS2ABSA 
(abend save area) 

b. Put address of caller's BALR into 
PSW field in DS2ABSA. 

ec. Set the DSCAREA tracking flag 
indicator to indicate SQL/0S systen 
error path (DSCTRACK=08). 

d. Move the abend information (registers 
and PSH) from DSZABSA into a aapping 
of the CMS Abend save area. 

@. Set register 0 to 0 (abend code}. 


224 = =SQL/Data System Logic, Volume } 


Display: 

ARTYMOS “SQL/DS LIMIT ERROR" 

ARICTRM (Sea page 211 for ARICTRM) 
Display: 

AREYMG4 "SYSTEM HARDWARE ERROR OCCURRED" 

ARICTRM (See page 211 for ARICTRM) 
Display: 

| ARTYHG4 | “SQL/DS SYSTEM ERROR" 


\ When ARIYMOZ is called, it is passed a parareter string 
containing the name of the calling nodule and a number 
(ARIxxxx nn}. The nurber is considered to be the "error 
detection point’ in fhe calling module, that is, the 
point where the problem was detected and ARIYMO2 is called. 
Note: No SQL/DS duap {nor “nini-dump") will be taken for a 

linit error or hardvare error. 


2 VSE only. Printer is not supported for VH. 


(039) 


(041) 


(040) 
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DSC Termination (continued? 


f. If VSE, set register 1 to address of 
DSCABSA. 

If VM, set register 1 to the address 
of CHS Abend save area mapping. 


* Abend SQL/DS 


ARICABE | (Page 213) 
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RESOURCE MANAGERS 


The VM Resource Manager description begins on page 260. 

The VSE/Advanced Functions Resource Manager description begins on page 
226. 

RESOURCE MANAGER CRM) FLOW (CVSE/ADVANCED FUNCTIONS)? 


APPLICATION — ISSUE SQL STATEMENT 


RM - IF FIRST PASS, INITIALIZE COMMUNICATIONS 


osc — GATHER INPUT ROY FROM APPLICATION'S 
AREA(S) INTO A CONTIGUOUS MESSAGE 
CINPUT MAIL BOX} 


RM —- SET MESSAGE LENGTH AND SEND IT 


DSC/RM/ISGL WAIT EXIT 
~ BATCH/ICCF WAIT FOR REPLY 
— ONLINE RM OR USER EXIT 
WAIT FOR REPLY 


ARICC 
) SENOR 


r—ARICCO 
WALT 


cic 
DFHKC 


» 


DSC 


- SCATTER OUTPUT ELEMENTS FROM CONTIGUOUS 
REPLY MESSAGE (OUTPUT MAIL BOX) INTO 
APPLICATION'S AREA(S) 


RM 


- IF FLAG IN MESSAGE INDICATES NOT 
"END-OF-PROCESS", THERE IS MORE OUTPUT 
SO SET MESSAGE LENGTH = 0 

- ELSE RETURN 


APPLICATION - PROCESS OUTPUT OF SQL REQUEST 
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BATCH RESOURCE MANAGER 


The Batch Resource Manager phase is ARIRBARM. It includes these 
nodules: 
ARIRIRM - Initialization 
ARIRBRH = Mainline function 
ARICCOMD - Cross-partition communication 
ARICINGB - Cross-partition input mailbox build 
ARICHMB - Move cross-partition reply (output mailhox) to 
application areas 
ARISYSDD - Systen-dependent routines 
Entry Points: ARISYSD1 - GETVIS 
ARISYSD2 - FREEVIS 
ARISYSD6 - COLOAD 
ARTSYSD7 - ABEND 
ARISYSDA - PDUMP 
ARICGSE Get stack extension 
ARICFSE - Free stack extension 
ARIRBIL3 -~ Resource Managex MYO function 
ARIRB51 - Resource Manager WTOR function 
ARTYMOS First-level message aodule 


Batch Resource Manaqer Execution Overview 


ARIRIRN Batch Resource Manager Initialization 


Get control 
block IOENTIFY 
storage 


Batch RM 
Hain Line 


ARTSYSO! 


ARICCOMD 


ARTSYSD6 ARIRBRN 


(COLGAD} 


Multi-Partition Moda 


Systen-dependent 
Functions 


[aarsyso0 | 


Os Cross- 
Partition 
Operations 


ARICIMNG 


ART CCOMD 
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Hove CPC 
Reply to 
Application 


Method of Operation 
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Batch Resource Manager Sinqle~Partition Mode Environment 


OSC/DBSS 


DS2MODE with 'S'’ indicating SPM 


User Application Progran 


Low 


h 
ARIPRDID — CDLOAD ARIRBARM | 


Batch Resource Manager (ARIRBARM) 
Branches directly to SQL/DS 


GETVIS Space 


High 
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Bat Resource anager Multi-Partitio lode 


APPLICATION PARTITION crc 


Lou LINK 
Batch application 
7 EXEC SQL #/ 

L 15,V(ARIPRDI? 
BALR 14,15 


ARIPROX 
LOAD and BR te ARIRBARM 


Batch Resource Hanager 
© If first tine, initialize 
control blocks 
® Ensure SQL/DS is active 
® Get CFC message built 
® SENOR CPC nessage 4 
WAIT \ 
Hove data to application 
End of process? 
No — Buffer length = 0 
Yes 
WHENEVER 
YES — ABEND 
NO - RETURN 


Resource Manager control 
blocks 


ARICNOD indicating 'M' for 
Multi-Partition Mede 


High 


Batch Resource Manager Assumptions 


The Batch Resource Manager: 
® Assumes a l-task/l-link relationship. 


SQL/DS PARTITION 


Control Blocks 


® Assumes node transparency — Single- vs Multi-Partition Modes 
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Batch Resource Manager Control Blocks and Data Areas 


Note: Offsets are in hexadecimal. The RMLO, RMLT ROXIN, and DS2MODE are fully described in the Data Areas section of 


SQL/DS Logic» Volume 2. 


RDIIN 


RDICODEP (f error code 
structure) 


a RDISQTIE 
oc 


SQLTIE 


SQLTRMEP 


SQLTRLOC 
14 SQLTMODP 
aa ARICMOD (DS2MODE ) 


DS2MDSCP = DSCAREA (SPM only) 


DSeMCVTP - ¢ DSeCVT 


DS2@MRMLP 
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RMLO 


oc RHLOSTK - ¢ start of stack 


10 RMLONXTP ~ + next RMLO 


RMLOLTEP ~ (0 on first call) 


RMLOSTRL ~ # 4 Length of storage 
for batch RMLO> 


RMLOTID - Batch-only task IB RMLTs «2. 


RHLOUSTA - "State of unit" 


RMLOSTRC ~ ? 2 Place to save Storage 
Management return code 
after failure to free 

RMNLORMSA — RM reg. save area an overflow Mailbox 


RMNLOSTAK ~- Stack for reg. save 

¢ area & auto. storage of rou- / 
¢ tine called by RM / 
ii eS SY 


RMLT 


oc RMLTSTAT + Link status bytes 

10 | RMLTCPLP ~ } Comm. Mgr, PLIST 
ws [ance — pH ae 
18 RMLTCCBP - ¢ CONNECT/SEND bik 


iC | RMLTMLST- Mailbox PLIST 
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Batch Resource Manager Execution 


ARIPRDID ARTRIRH 


Entry Point ARIPRDI 


© If SQLTIE Resource Manager 
® Save caller's registers 


entry point (SQLTRMEP) is @, 
this is the first call fron 
application program: 
— Get storage control 
blocks: 
RMLO, RMLT, CPC control 
blocks, CPC huffers 
~— Put RM entry point in 
SQLTIE 


® If Resource Manager entry 
point in SQLTIE is 0, ten 
this is first call; 
=~ CDLOAD ARIRBARN (Batch 
Resource Manager phase) 
~ Yf CDLOAD errors set 
SQLCODE = ~934 and return 


ARISYSOL 


to application To = CDLOAD ARICHOD ARTISYSO6 
application = If this is first call fron 
® Branch to ARIRIRM program this task: Initialize 


control blocks and 
automatic storage(stack) 
~ If not first call from 
this task: Free up gotten 
storage 
and use control blocks 
gotten for a previous 
nodule 


ARTSYSD2 


Call Batch Resource Manager 


main line (ARIRBRM) ARTRBRN (Page 232) 


Restore application 
registers 


Return to application 
following the SQL statesent 
To application prograx 
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From ARIRIRM (page 231) 


232 


ARIRBRM 


>\° If single-partition mode: 


If it is COMMIT or ROLLBACK 
and application is not in 
work, treat as no-op and 
exit 

Get entry to SQL/DS fron 
DS2CVT 

Establish addressability 

to the RDAREA 

Branck and link 


If multi-partition mode: 


If COMMIT or ROLLBACK and 
application is not in works 
treat as no-op and exit 
If a CPC link is not 
connected, connect a CPC 
link 
If SQL/DS not availabie: 
a. Issue operator message 
cancel, 
wait and start SQL/DS 
cancel, set SQLCODE 
-940 
uait, call ARICCOM to 
CPC WAIT 
Call ARICIMB to convert the 
RDIIN structure to one 
contiguous ressage 
in the mailbox 
Call ARICCOM to send rnessage 
to SQL/DS 
If error in send, set 
SQLCODE = -933 
If not end of process», set 
CPC message length = 0 to 
indicate that the reply is 
not complete 


Continue uvhen end of process 
Perform SQL WHENEVER pro- 
cessing: 


SQt/Data Syster Logic, Voluae 1 


RETURN 
To SQL/DS 


RETURN 
ARICCOM 


| ARIYNOG 
| ARICCOM 
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a. If SQLCODE < 0 and appli- 
cation specified WHENEVER 
ERROR STOP, set register 


35 to 8, POUMP the 
and make call for VSE 


b. If SQLCOOE > 0 or 
varning flags on; and if 
application specified 
WHENEVER WARNING STOP, 
set register 15 to 4, 
PDUHP the SQLCA, ¢——— 
and make call for VSE 
CANCEL 

~ Return 


ARISYSDA 
ARISYSO7 
To ARIRIRM 
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ONLINE RESOURCE MANAGER 


Online Resource Manaqer - Initialization/Termination Control Overview 


From CICS/VS 
ARIRENT 


® Receives control from CICS/VS 
as a result of terminal opera- 
tor entering transaction ID 
"CIRB" or "CIRT', or from 
SQL/DS Online Support or "CIRD" 
requesting immediate SHUTDORN 
via ‘ATTACHING’ the transaction 
“CIRT". 


Initializes automatic 
storage 


Enables or disables SQL/DS 
Online Support. Uses EIBTRNID 
to determine the transaction 
that vas entered. 


© Returns control to CICS/VS. 
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ARIRENA, for CIRB - = 
Resource Manager Begin 


DFHEAIO 


Gets automatic storage, 
which is freed when the 
transaction terminates 


See page 235 and/or 236. 


or 
ARIRDISD, for CIRD - 
Display transaction 
information 

or 
ARIRDIS,» for CIRT - 
Resource Manager Termi-~ 


nate ~+ See page 240 and/or 241. 
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Online Resource Manager - Initialization Overview 


ARIRENA See page 236 for details 


Use EXEC 
CICS/VS 


Communication |Get 
partition 
boundaries 


interface token 
| ARICTKN | | ARICCOM | | ARISYSOC ARIRSQLA 
Convert input 


token to binary 
ARIRSEN 
| ARIYEOS (ARIPRDI) 


Message 
services 


ARTYNG¢ 


ARTCeSE* | | ARICFSE? 


ARIRECL 


Get a 
message line 


Display 


Get storage 
ARIYNOS ARIROLS 
| ARISYSDL | Entry 
ARIYELS 
Free storage text 


Write to 
system op 
console 


Write to 
cics/¥s 
terminal 


| ARISYSD2 | ARTRUSG 
{text only) 


. ARICGSE and ARICFSE are used by all SQL/DS nodules 
below ARIRENTD for automatic storage extensions, ARTRECT | ARISYSOS | 


| DFHEIL | 
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oO Initialization Detail 


: Get stack extension 
EXEC CICS/VS address CSA 
[aerrecr 
: EXEC CICS/VS receive input 


Convert token to binary 
ARIYEOS 


EXEC CICS/VS. Load the Exe 
[azrrec 
[pereecr global 
peer vorkarea >32K 


nliine Resource Manager - 


Fron ARIRENT 


ARIRENA 


Initialize for CICS/VS 
macro interface 


Receive input paraneters 


Process input parareters 


- Tokenize 


~- Convert to binary if 
necessary 


Load the SQL/DS Online 
Support 


Calculate global RM 
vorkarea storage 
requirezent and get 
global storage 


1 


Caleulate local RM 2 


storage requirenent 
Enable the Resource 
Manager (NOSTART) and 
get pointer to RHGL. 


Identify ARIxOLRM to 


coraunication |ARICCOM e 
subsystem and connect l®© Issue SVC | 
to SQL/DS partition © Return je 
- Wait as required for asynchronous _./ 
asynchronous passback passback ! 

i 
le 

L 
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cution-Tine Resource Manager ARIOOLRM. 


ARISYSO! 


cIcs/vs 

Initialize CICS/VS Resource 
Manager Linkage (RMI) but still 
disallow online access to SQL/DS 


(NOSTART? 
- Record entry point of ARIOOLRM 
— Get global area 


$vCc 
Insure uniqueness of RMID. 
The "x" im ARIxOLRM is the 
RNID input parameter. 


Provide access to SQL/DS 
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® Initialize the RM global 
vork area 
~- Build RMCV, RMLT, etc. 
~ Establish the parti- 
tion boundaries for 
the mnilbox process 


ARISYSOC 


Build ROIIN 


a 
® Access SQL/DS partition | 
t 


for: Send nessage 
- ROI GET RECOVERY ARIRSQGLA > Once for each link 
LIST (RMRE) JARIRSEN | : 


e@ Yf the recovery List (RMRE) 
shows that logical units of 
work vere prepared for 
commit or rollback prior to 
a system or subsysten 
failure; 


= Identify each recovery 
token to communication 
subsystem and connect 
to “In-Doubt" XPCC 
link (ARISYSIO 


ARICCOM 
® Issue XPCC SVC 

® Return asynchronous 
passback 


i nes a 
— Mark link as allocated svc | 
(RMLAFREE = '1'B); | 
mark link as not ! 
RESYNCHRONIZED yet | 


(RMLANR = '1’'B) 


[ 
| Insure uniqueness of 
| recovery token as an 
| application name 


- Save recovery token fron 
recovery list in RMLTTOK 
(RHLTTOK = RHCVRMRE —> 
RMRETOK(I) } 


- Set RESYNC bit in 
CRMCVRSYN) 


© For each XPCC link not 
used for recovery: 


= Do a Communication sub—- 
system connect to a 
general purpose link 
(ARISYSGO) 


ARICCOM 

® Issue XPCC SVC 

® Return asynchronous 

passback 

~ If recovery list con- 
tained entries, mark link 
as allocated to stop any 
SQL actavity until all 
in-doubt LUMs are 
resolved 


r | 
| svc | 
{| Insure uniqueness of | 
| recovery token as an | 
i application nane I 


a ae ee ee ee 
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Build CICS recovery list 


Start the CICS resynch process 


ARIRECI 


tic ARIG37E -— ARIG24A, 
restart resynchroni- 
zation is not avail- 
able and there are 


Initialize pointer to 
in-doubt LUWs to be 
resolved 


recovery list in RECP 
CRECPSETF ) 

Set RECPFUNC = RSYN 

Call ARIRECI for EXEC 
CICS RESYNC 

If ARIRECI return code 
€RECPRETC) is 437, EXEC 
CICS RESYNC not supported 
If recovery list contains 
entries: 

a. Indicate that ARIDISD 
b. Terminate via abnornal 


should write diagnos— 
exit 


If no entries in recovery 
list, indicate End of 
Transaction exit is not 
available (RMCVEOT='0'B) 


-— If ARIRECI return code 
{(RECPRETC) is not 437; 
indicate End of Trans— 
action is available 
(RMCVEOT='1'B} 


- If recovery list is 
eapty, for each link: 
Access SQL/DS partition 
for: 
a. EXEC SQL CONNECT 
b. ROI SCHEDULE 


Build RDIIN 


ARIRSQLA 


Send message 


EXEC CICS/VS - ENABLE 
® Enable the Resource 
Manager (START) 


CICS/VS 


ARIRECT Initialize the RMI to allow 


online access to SQL/DS 
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ee a 


Get asg line and process message variables 
ARTYN04 RM nessage text 
* Retrieve a 
message line 
® Display a € 
message line 


© Exit Normal: 
- Display message 


Route message 


® Exit Abnoraal: 


- Display error msg. ARIROLS ARIRECT 
- Release resources: tEntry pt. EXEC CICS/VS SEND 
Communication links, ARIYE131) 


storage, EXEC 
CICS/VS RELEASE 

(load module}, EXEC 
CICS/VS DISABLE 


ARISYSDG 
: Free stack extension 


® Return control te 
ARIRENT 
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Online Resource Manaqer - Termination Overview 


Use EXEC 
cIcSs/VS 


ARIRECI 


| ARICGSE? | 


Free storage 


| ARISYSD2 | OFHET 


1 ARICGSE and ARICFSE are used by all 
SQ@L/DS modules under ARIRENT for 
automatic storage extensions. 
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interface token 


ARICTKN | 


ARIRENT 


Communi- Message 


services 


Get 2 Display 
nsg. Line message 


ARIYMOS ARIROLS. 
Entry 
ARIVELS 
ARIRMSG 
(text only) 
we 


Write to CICS/VS 
terninal 


ARIYEO 


Weite to systen 
operator console 


| ARIRECX | ARISYSDG 


| DFHEIL | 
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0 


nline Resource Menager — 


From ARIRENT 


ARIRDIS 


Initialize for 
CICS/VS macro 
interface 


Receive input 
parareters 


Extract pointer to the 
RNGL of ARICOLRN 


If SQL/DS Online 
Support is not active, 
Extract returns no 
pointer to RNGL - 
terminate. 


If transaction is 

CIRD, then: 

- If EQT is supported 
and online RM is 
going doun; issue 
message 412. 

If EQT is supported 
and online RH is not 
going doun, cail 
display information 
(CIRD). 

If EOT is not 
supported, issue 
message 433, 
Terminate. 


Receive input para-— 
meters e@ither via 
ARIRECE or via RMCYV 


ermination Detail 


Set stack extension 


ARICGSE 


EXEC CICS/VS address CSA 


ARIRECI 


EXEC CICS/VS receive input 


ARIRECI 


Get pointer 


ARIRECT 
EXEC CICS/VS 
EXTRACT 


| * * Page 244 


\/ EXIT 


[| * Page 244 
\/ 


EXIT 


ARIRECTE 
EXEC CICS/VS 


RECEIVE 
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to RM control blocks 


(If RMCRCIRT="1'B, then CIRT was internally 
activated and input parameters are in RNMCV. 
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Online Resource Manager - Termination Detail (continued) 
e If termination was 
internally activated, ARIGOGA or ARIGZ20A or ARIS427A is written to 
write message using ARIYNOS the system operator console. 
asg ID and tokens 
frorm RMCV 
© IF EOT is supported, 


call display informa- 
tion (CIRD) 


® Process input 
parameters 
- Tokenize 


Get token froa input 
Convert token to binary 


~ Convert to binary 
if necessary 


® If request is NORMAL: 
- Terminate if QUICK 
is already estab— 
lished as the 
termination mode 
—- Terminate if an 
CIRT is actively 
processing ternmi- 
nate in NORMAL rode 


* % Page 244 
\7 EXIT 


- If RETRY EXEC 
CICS/VS DISABLE is 
indicated in the 
RMCV, go to re-try 
the DISABLE 


CRMCVRITRY='1'B) 


_+| * * Page 244 
\7 


EXECDIS 


© If request is QUICK 
~ If RETRY EXEC 

CICS/VS DISABLE is 

indicated in RMCV, 

go retry the 

DISABLE 


CRMCVRTRY='1°B) 


| * * Page 244 


\.7‘EXECDIS 


- If NORMAL CIRT is 
active and vaiting 
for a POST, "esca- 
late" by changing 
mode from NORMAL to 
QUICK, and post 
(MVC) CIRT and 
terninate 


| * % Page 244 


\/ EXIT 
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Online Resource Manager - Termination Detail (continued) 


fs eee ce ewe wwe ce ee 
® Establish shutdoun | ~~ UL | ARIOOLRH: Use shutdown node 
mode in RMCV 7 | to control flow: 
® Post (MVC) any 7. . .| - QUICK means reject all requests 
transactions that are | - NORMAL means allow process for 
waiting for access 1 units in work until end of 
to SQL/DS ! logical unit of work 


* From page 243 


RETOISC: 
If mode is QUICK: Disconnect consunications 
— Disconnect all links 
- For any link in use» / 
post the RM 7 


If mode is NORMAL; 
disconnect all links 
to SQL/DS that are 
not in use 

If anode is QUICK and 

one or more links 

vere in use: 

— Set RMNCVPO = ‘1'B 
to indicate a POST 
of CIRT is required 

- Wait 

- Go retry disconnect 


DFHKC TYPE=WAIT 
| ¥ % Page 243 


\_/—_- RETDISC 


If node is NORMAL and 
one or more links are 
in use: 

- Set RMCVPO = '1'B 
to indicate a POST 
of CIRT is required 

~ Display message 

- Delay 

- If a POST was 
received from a 
unit, go retry 
disconnect 


Write message to system operator 
console and/or terrinal 
ARIYHOS 


| * | ¥% Page 243 


S7% RETDISC 
~- Display RETRY 
message 
- Yerminate # # Page 244 

NZ EXIT 
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Delay for a tine interval. 
ARIRECT Default is 30 seconds. 
EXEC CICS/VS DELAY Maximus is 1 hour. 
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Online Resource Manager ~ Termination Detail (continued) 


® Logoff from 
communications ARICCOM 
| 


*% From page 242 


| * L EXECDIS: 


‘\7 |e Attempt to disable 
the SQL/DS Online 
Support 


ARIRECI 
EXEC CICS/VS 
DISABLE 


® If DISABLE failed: 

~ Display DELAY asg. 

- Delay 

~ Again attenpt to 
disable the SQL/DS 
Online Support 

- If DISABLE failed: 
® Display RETRY asg. 
® Terninate 


ARIRECI (CICS/VS vill shut down the access to ARIOOLRM. 
EXEC CICS/VS Disable fails if transactions that accessed 
DELAY SQL/0S are still active.) 


| * * Page 244 


V7 EXIT 


® Delete the RM load 
nodule 


ARIRECI 
EXEC CICS/VS 
RELEASE 


(If RM work area >32K) 


ARIRECI 
~ Free systen storage 
~ Free CICS/VS storage 


® Free storage ARISYSD2 
® Display message 
* From pages 241 2462 243 


EXIT: 
® Return control to 

ARIRENT (this causes 

CICS/VS to free 
terminal) 


ARICFSE 
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Online Resource Manaqer - Invocation of Execution 


Online Application that 
previously accessed SQL/DS: 


Online Application: 


For any synchronization 

— SQL COMMIT/ROLLBACK 

- OL/1 TERM 

— EXEC CICS/¥VS SYNCPOINT 

- Normal or abnormal end 
of task 


“*® EXEC SQL ....0. 


* 


R1 4.3.9RDIIN 
L 15,=V(ARIPRBI) 
BALR 14,15 


ARIRRTE 
Centry ARIPROI) 


OFHRMCAL TO=ARICOLRM 


cics/vs 
SYNCPOINT Manager 


CICS/VS Resource Manager Linkage (RHI) 


ARIRMIID, the entry point of ARTOOLRN (see page 247 } 
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Online Resource Manager — Execution Overview 


P ARIRMT | Details on page 247 


Details on page 248 for EDSF Execution 
ARIRORN | Details on page 251 for Synchronous Execution 


ABEND 
the 
transaction 


Get a Synchronize 
SQL/DS vith 
process CICS/VS 


Start 
shutdoun 
‘CIRT’ 


Conauni- 
cations 
to Ssav/0s 


OFHPC | ARICCOM | DFHIC | ARISYSD2 | | ARICFSE? | 
( ABEND } “ATTACH 


ARIRSQLA 


—-] 
| ARICGSE? 
| ARIRSEN | 


. ARICGSE and ARICFSE are used by all SQL/DS modules below ARIRMIID for automatic storage extensions. 
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Online Resource Manager - Execution Control 


ARIRMI1 ARTRORM 


® Receives control from CICS/VS RHI ® Reference UEPEXN for ADDOR(DFHUERTR) 
with Rl = ADOR(DFHUEPAR) to get routine argument 


Reference: ® Based on value of argument: (Synchronize using 
— UEPTAA for ADDRERHLO! (pointed to GOTO RMAPI CICS/VS Syncpoint 
by Register 10) or Manager) 

~ UEPTCA for ADDRI TCA) GOTO RMEOT (end of task exit) 


' If RMLO is binary 0, this is 


first call from a transaction. : DFHSP for SQL 
Initialize RMLO; C(RHAPI) COMHIT/ROLLBACK 
— Reference: UEPCSA for ADDR(CSA) * Process application's SQL request 


UEFGAS for ADOR(RNGL) ® GOTO RHRETOOO 
RNGL for ADDR(RNCY) 
Chain RMLO te the RHLO chains ARIRORM (RMSYNC} 


Initialize automatic storage © Process application's synchronization 
initialize RMHL for interface 
to DFHKC TYPE=HAIT 


* CALL ARIRORN 
® Reset R13 with VEPEPSA 


Return control to CICS/VS RNI © Dechain RHLO 
® GOTO RMRETURN 
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Online Resource Manager ~ Extended Dynamic Statements Facility (CEDSF) Execution 


* Fron page 249 


ARIRCRM (RMAPI) 
® Store clock for: 
Time in SQL/0S 
or 
Time for link wait 
Issue message 430 to systen operator 
if error in setting clock. 
® Reference UEPHMSA to get application's 
RSA and the pointer to RDIIN 
© Clear SQLCA and initialize 
e If RM is disabling: 
— Post CIRT transaction 
— Turn bit UEFMAPPL off to indicate no 
more RMAPI calls will be accepted 
for the unit (inplies CICS abend 
code AEY9) 
- Return with SQLCODE = -937 
® If EDSF request is to set exit, 
establish the "User Wait Exit" 
and return 


| * #% Page 248 


\_/—s RMAPIO00 


| * * Page 250 


\./ —_- RMRETGO0 


| sa * Page 249 


\_/ —_- RMAPI200 


* If transaction has a link, 
GOTO RMAPI200 


® Do the RM allocate process: 
~ Establish userid 
- If transaction previously ouned a 
link and it is free, GOTO RMAPI100 
~— Attenpt to allocate most recently 
used link. If available, 
GOTO RMAPI100 


| * * Page 249 
\7 


RMAPT100 


Build vait list and chain RMLO to RMCY 


1 
ARIXIT i 
Exit to user exit to vait for link or | Wait will be posted when a 
DFHKC TYPE=WAIT ! link becomes free or if CIRT 
| is activated. 
® Unchain the RMLO from the RNCV and | 


clear any SEND ECBs that may have been 
posted ° 


® If RM is disabling and requires POST, 
do the POST 


®* If user exit requested cancel, return 
with SQLCODE = — 914 * | # Page 250 


\_/ —- RBHRETOOO 
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* From page 248 


* RHAPI1GO: 


NN e 


*% From page 248 


Licensed 


RMAPI200: 
. 


GOTO RMAPIOOO to retry the link 
allocation 


[» | * Page 248 


V7 RHAPIOOO 


Mark link as allocated in RMLA 


Establish pointes to thread (RNLTPTR? 
and save history in RNLB 


Store clock for link time hold 
Reset "INRH’ clock bucket in SGL/DS. 


If userid established at allocate tine 
is not userid in RMLA, set flag to do 
SQL CONNECT or implicit CONNECT 


Set UEFMSYNC flag to indicate that ve 
are interested in Synch Point calls 
for this unit 


Get pointer to thread (RMLT) from RNMLO. 
This establishes addressability to the 
control block and PLISTs in the thread. 


Mark RMLT "INEM" so "CIRT" will know 
resource is being used ARIRSQLA 

7% EXEC SQL CONNECT #/ 
If application is trying to do SQL f 
SCHEDULE without a passvord, return 
with SQLCODE = -804 because function is 


not supported for applications. 


° 


CALL ARIPROI 


DFHSP 
TYPE=ROLLBACK 
\7 


#* Page 250 
RHRETOOO 


Do implicit SQL CONNECT if required 


If application is requesting SQL 
COMMIT/ROLLBACK: 

— Synchronize with CICS/VS 
- GOTO RHRETOO0O0 


Transmit the SQL request to SQL/DS 


Material - Property of IBM 


aia SQL CONNECT will be done if a new userid 
needs to be established for the link. 


€—>| ARIRSEN 


Hethod of Operation 249 


*% From page 249 


250 


e If user wait exit requested CANCEL: 
- Synchronize with CICS/VS 
— GOTO RMRETOOO 


e If SQL/DS asynchronously did a 
ROLLBACK: 
- Synchronize with CICS/VS ¢— 
~ GOTO RMRETOOO 


e If request vas an SQL CONNECT and 
succeeded, save userid in RMLO and 
RMLA. (Userid will be reused for next 
legical unit of work of the transaction 
if there is no explicit SQL CONNECT.) 


RMRETOOO; 
@ Store clock to start time on 

not "“INRM'. 
e@ If SQLCODE<O and SQL WHENEVER ERROR 
STOP is operational, ABEND the 
transaction 


If SQLCODE>0 (but not +100) or 
SQLWARNO='W' and SQL WHENEVER WARNING 
STOP is operational, ABEND the 
transaction 


RMRETURN: 
e If unit still owns a thread, nark 
unit not ‘'INRM’ 


If RMLOARDI = 0, then store clock to 
start time on not "INRM". 


If CIRT transaction requires a POST; 
POST RMCVDECB (MVC) 


RETURN 
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TYPE=ROLLBACK 


DFHSP 
TYPE=ROLLBACK 


| * * Page 250 


| * *% Page 250 


TYPE=ABEND > 
ABCODE='ARIE* 


TYPE=ABEND » 
ABCODE='ARIW' 


Note: SQL/DS nay asynchronously 

do ROLLBACK for log full, operator 
FORCE command, system errors or 
communications error. 
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Online Resource Nanagqer ~ Synchronization Execution 


ARIRORM (RHSYNC) 


® If unit has no SQL/DS resource to 
synchronize, set R15 of CICS/VS 
Synchpoint Manager as follows; 
~ For PTC (PREPARE-TO-COMMIT)» 
R15 = VERFPREP, “RH is prepared” 


If call is for LUW lost to CIS cold 
start (UERTOGCS): 


Indicate that ARIRDISD should vrite 
diagnostic ARIG36E in conjunction 
vith ARIG23A and ARI424A to inform 
operator of LUWs to be forced in 
SQL/DS 


~ Return to CICS via abnormal axit 


If call is for LUW not known to CICS 
(UERTDGNK ) « 


~ Indicate that ARIRDISD should write 
diagnostic ARIG38E in conjunction 
vith ARI423A and ARI424A to inform 
operator of LUWs to be forced in 
s@L/Ds. 


- Return to CICS via abnormal exit Abnormal exit 


® Get recovery token from RMI (UEPURID) 


- If recovery token exists (is not 
null); 
Do for nunber of links: 
a. If token in thread (RMLTTOK) 
matches RMI token: 
- Do RHI initialization for the 
found thread: 


RMLOLTEP = addr(found RMLT?} 

RHLOLTEI = index of found 
RALT 

RMLOUSTA = in LUW 

RMLOOLRN = it is an online 
RMNLO 


- Go to normal syne--point 
processing 
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252 


b. Else (no match): 

- Set RIS = VERFDONE (RM did the 
request 
- Go to RMRETURN * 
- If recovery token does not exists 
a. Set R15 = UERFOONE (RM did the 
reguest) 

b. Go to RMRETURN 
\/ 


e If unit Ss in Link wait or in RMAPI, 
handle asynchronous abort and go to 
RMRETURN 

\7/ 


¢ Set RMCVINRN and initialize the SQLCA 


@ If RHAPI did not issue synch 
(RNLTRMSP = off), store clock (time 
to measure in SQL/0S time) 


°@ If RM is in shutdoun QUICK mode, set 

R15 of CICS/VS Synchpoint Manager as 

follous: 

~ For PTC, RIS = UERFBACK, "RM is not 
prepared" (irmplies CICS abend code 
ASP7) 

— For COMMIT/RDLLBACK, RIS = UERFHOLD, 
“Cannot synch nou. Operator inter— 
vention required" 


Set SQLCODE = -937 


GOTO RMSYNC9IO % 


e@ If call is for COMMIT/ROLLBACK, 
GOTO RHCOMRB 


RMPTC (PTC Exit} 

® If application is being abended by 
RMAPI, or if RMAPI issued SYNCPOINT 
TYPE=CANCEL, or if a user cancel 
request, set R15 = UERFPREP and 


return * 


® Build RHSP (function code, CICS/VS 
information on the unit, etc) 


SQL/Data Systea Logic, Volume I 


* Page 254 


[aw | * Page 254 


a" | * Page 254 


# Page 254 
RMSYNC90 


*% Page 253 
RNCOMRB 


* Page 254 
RMRETURN 
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*% Fron page 252 


ee 


\ 7 


RMCOMRB: (COMMIT/ROLLBACK Exit) 


© GOTO SGL/DS for PIC 


ARIRSQLA|€—3| ARIRSEN | See page 256 


* *# Page 254 
N77 RMRETURN 


® Set R15 of CICS/VS Synchpoint Manager 
based on 5QLCODE and return with either 
UERFPREP or UERFBACK —— 


® If not in logical unit of vork» 
GOTO RMSYNCBO 


Tn | * Page 254 


\N/ RMSYNC80 


Clear connunications 
ARICCON 


| * | * Page 254 


\_7—_s- RMSYNC80 


® Build RMSP for linkage to ARIRS@QLA 


® If CANCEL because of user exit or if 
asynchronous CICS5/VS request because 
of transaction abend: 
~ Cancel process and rollback 
- If CANCEL succeeded, mark link to 
vait for cancel to complete and 
GOTO RMSYNC8O 


® Go to SQL/DS for COMMIT/ROLLBACK 


® If doing resync (RMLANR='1'B): 


~- Indicate resyne done for this thread 
(RMLANR='0'B} 


- Sean all threads to check if further 
resyn¢e required (any thread with 
RMLANR='1'B) 


- If resyne is complete: 
a. For each thread (do J to NOLINKS): 
- Access SQL/BS partition for 
SQL CONNECT and RDI SCHEDULE 
~ Set up RMLT pointer in RHLO 
(RHLOLTEP and RMLOTEI) for 
current thread 
~ Call RMUNALLO to unallocate the 
thread. 
b. Reset resynec bit in RMCV 
(RMCVRSYN='0'B) 


~ If resyne not complete (still have 
tokens to resync), return to CICS 


via normal exit cics 
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ARIRSQLA i anrasen | See page 256 
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* From page 253 


[« Lpensynceos 


V7 ® Unallocate the threads 
- Mark it free 
- Free overflow storage (if any) 
—- POST (MVC) a waiting RM if necessary 


® Based on SQLCODE, set RIS of CICS/VS 

Syncpoint Manager to either UERFOONE 
or VERFHOLO DFHIC 

+) TYPE=PUT,INTRVAL=YES, 

® If SQL/0S call failed and shutdoun ICDADOR=YES (0 interval) 

quick is not active, activate it 


* From page 252 


Js | RMSYNC9O = 


\_7 e If there is an application ROIIN and 
the thread SQLCODE is valid, nove 
thread SQLCA to application SQLCA. 
(Note: The application SQLCA aay 
already contain an SQLCODE. In this 
case, it is not overlayed. ) 


® Mark the transaction as having no 
SQL/DS RM thread. (Thread pointer in 
RHLO is set to 0.) 
* From page 251 


Pe 


Ne ® Post (MVC) the shutdoun transaction if 
necessary 


@ Return to CICS/VS RHI 
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Online Resource Manager ~ Miscellaneous Functions 


Online Resource Manager =~ Execute SQL Linkage 


ARIRSGLA 
® Get pointer to RMSP via register 1 


® Set addressability for SQLCA and 
SQLOSECT 


Based on function indicator in RMSP; 
“EXEC SQL" for one of the following 
SQL/OS functions: 
~ CONNECT :USERID IOENTIFIED BY 
+ PASSHORD 
=~ RDOIIN CONNECT ; USERID 
— COMMIT WORK RELEASE 
~ ROLLBACK WORK RELEASE 
~ RDIIN PREPARE TO COMMIT 
ROIIN GET RECOVERY LIST 


r ~ Send request to SQL/DS 
| 

| 
| ARIRSEN 


(entry point ARIPRDI)} See page 256 
for rnore detail 


Return (Note: SQLCA has been set 
either by the online process or by 
the SQL/DS partition.) 
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Online Resource Manager ~ Send Message to SQL/DS 


Entered from ARIRORM or ARIRSQLA 


ARIRSEN (entry point to ARIPRDI) 


© Establish addressability to the 
RDIIN and clear the SQLCA 
a Input railbox build 


[ ARICIMB | 
| * | * Page 257 


\7 EXIT 


© Convert the RDIIN structure to one 
contiguous message in the mailbox 


® If the mailbox build failed, set 
SQLCODE = -941 or -932 and return 


* From page 257 


ARICCOM |-————- 
7 SaL_/ps 


| DFHIC |vattach" shutdoun 
transaction "CIRT" 

[ * * Page 257 

\7 


EXIT 


e If there is a communication error: 
- Start the shutdoun quick process if 
it is not already started 
—- Set SQLCODE = -933 
and return 


® If there is a user wait exit 

established: 

~ Call the exit to wait for SQL/DS 
reply 

- If user exit returned with a cancel 
post code, set SQLCODE = -914 and 
GOTO RSENS500 


ARIXIT 
“user wait exit’ 


® Wait for SQL/DS to reply slprHKe | 
a | 

RSENSOO: 

® If RM has started to shutdown quicks 
set SQLCODE = -—937, post (MVC) the 
shutdoun process and return 


# * Page 257 
\_7/ EXIT 


@ If the user exit returned vith a 
cancel post code, GOTO EXIT! Lots | % Page 257 
N74 Verify ECB posted and return 
communication passhack 


@® Go get asynchronous passback fron 
communications 
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® If communications indicates that 
SQL/DS purged the SENDR and the 
communication user data is >0, set 
SQLCODE = —812 (message was too large), 
SQLERRDI = length in user datas then 
return —_—__ 


| * * Page 257 


\/ EXIT 


© If communications indicate that SQL/DS 
purged the SENDR and the conmnunication 
user data is 0, set SQLCODE = -916 
(operator aborted the unit) and 
return eRe 


| * # Page 257 


\/ EXIT 


OFHIC 


© If there vas a communication error: 
- Set SQLCODE = —933 

~ Start the shutdown QUICK process 

if it is not already started 

= Return 


[» | * Page 257 


\_7 EXIT Get output from mailbox 


ARICHMB 


© Go move output elements to the 
application's area 


® If return code not 0, raise “OUT MOVE 
ERROR” internal flag. This is required 
because SQL/DS process may not yet be 
complete and history of the error aust 
be remembered for exit process below. 


® If message indicates process is not 
complete (there is more output), set 
message length to 0 and GOTO SENDR 
for a zero-length message. This 
posts SQL/DS to continue the process. 


ls | * Page 256 


\_7 SENOR 
# From pages 256 


% EXIT: 
Na? ® If there was an “OUT MOVE ERROR", 
set SQLCODE = -935 
page 256 


EXIT1: 
© Return 
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Online Resource Manaqer ~- Use EXEC CICS/VS Interface 


258 


® Get pointer to CICS/VS EIB from RMLO 
and get pointer to RECP via register 1 


Based on functiosx indicator in RECP, 
use one of the following High Level 


ARIRECI 


Interfaces to CICS/VS: 


LOAD the Online Support 


ASSIGN the CICS/VS userid in a VTAM 


netuork 


RECEIVE a message from the terminal 


GET/FREE CICS/VS storage 


ENABLE/DISABLE the Online Resource 


Manager 
EXTRACT the pointer to RMGL 


RELEASE the Online Support (delete 


the load nodule) 

ADDRESS. Get the address of the 
CICS/VS CSA 

DELAY for a time interval 


SEND a message to the terminal. If 
the terminal is the system operator 


console, set RMLOCNSL='1°B. This 


prevents duplicate nessage display. 
RESYNC recovery tokens if any exist 


If request is for GET/FREE storage 
area greater than 32K, do 


® Return 
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DFHET1 
- Perform requested function 
~ Set EIBRCODE 

— Return 


ARISYSD1 
Get system storage 


ARISYSD2 
Free systern storage 
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Online Resource Hanacer ~ Route Message 


ARIROLS 


© Initialize RECP to request SEND 
function (for input message and length) 


® Attempt to display the rzessage on 
terminal operator's console 


® Display message to system operator's 
console if there is no terninal or if 
the nuneric portion of the message is 
one of the following: 406, 406, 407> 
410, G13, 418, G19, 420, 422, 423, 424, 
or 427. 
(Note: If there is a terminal and it 
is also the system console, ARIROLS 
does not do the write because ARIRECI 
already did it.} 


°® Return 


Online Resource Manager Data Areas 


The Resource Manager data areas are the RECP, REIB, RMAR>» 
RMCV, RNGL» RMLA, RNLO, RMLT, RMMR, RHRE, RMSP, and RMWL. 
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ARISYSO3}] Write to Operator 


See the "Data Areas” section of SQL/DS Logic,» Volume 2, for 


data areas details. 
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VM RESOURCE MANAGER 


The VM Resource Manager phase is ARIRVMRM. 


these modules: 


260 


ARIRVIR(C 


ARIRVRM(C 
ARIRCLI(C 


ARIRCL2(C 


ARIRTLICC 


ARIRTL2(C 


It includes 


Top Resource Manager module (does 
initialization) 

Main line VM Resource Manager module 
Cancel exit top aodule (invoked by CMS on 
behalf of an operator-initiated immediate 
command) 

Cancel support exit entry point 

Cancel exit second level module 

Cancel support exit main line 

Implicit COMMIT/ROLLBACK exit top module 
Cinvoked by CMS on normal or abnormal end 
of conmand) 

Implicit COMMIT/ROLLBACK exit entry point 
Implicit COMMIT/ROLLBACK second level 
nodule 

Implicit COMMIT/ROLLBACK exit main line 
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ARITRINTIC 


ARISYSOC 
ARICCOH(C 
ARICIMS 
ARICMMB 
ARIYMO4 
ARIYMOS 
ARIRBIS 


ARICGSE 
ARICFSE 


Resource Manager IUCV external interrupt 
handler 

VMN systenm-dependent routines 

IUCV Communications manager 

Build input mailbox (IUCV message) 

Move nailbox data to application 

First level message module 

Second level message module 

Call to system—-dependent urite—to—operator 
function 

Get stack extension 

Free stack extension 


The VM Resource Manager subcomponent includes these modules: 


ARISRMK(C - VM Resource Manager bootstrap routine 
ARIRVST{C - VM Resource Manager stub (a copy of this 


module is linked with each application} 
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UN Resource Manaqex Execution Overview 


Application: EXEC 
SQL call 


ARTavsT(c? 
: Return to 
VM Resource Manager Initialization Application 
Bootstrap 
ARISRMK(C ARIRVIR(C? 
DMSFREE BONSFRET CMS ABEND VM RH Coma, 
Hain Line Manager 
ARISYSoO1* ARISYSD24 ARISYSD7° ARIRVRM(C® ARICCOM(C 
DMSFRET CHS ABEND Snapshot Comn. Build input Hove mailbox} First level 
Oump Manager mailbox data to message 
storage nodule 
ARISYSD2° ARISYSD?° ARISYSDA® anrccon(c| ARICING ARICHMB ARIYHO4 


1 ARIRVSTIC 
2 ARIRVIR(C 
3 ARIRVRM(C 
* ARISYSD(C 


Vii Resource Manager Stub (see page 2635} 
Initialization routine (see page 264) 
Hain-line routine (see page 265) 

VM system-dependent routines (see descriptions 
in Volume 2, Section 3) 


Modules called but not shoun in this section ares 
ARICFSE - Free stack extension 
ARICGSE - Get stack extension 
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Message formatter 


ARTYMOS 


WTO 
ARIRBI3 


KRTERM 


ARTSY5D34 


Modules called but shown only in the detail section are: 

ARIRINT(C - IUCV external interrupt handler 

ARIRCLI(C - Cancel exit top level module (see page 267) 

ARIRCL2(C - Cancel exit second level module (see page 268) 

ARIRTLI(C - Implicit COMMIT/ROLLBACK exit top level module 
(see page 269) 

ARIRTL2(C ~- Implicit COMMIT/ROLLBACK exit second level 
module (see page 270) 
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VM Resource Manager = Details 


ARIRINTC (Resource Manager External Interrupt Handler) 
Entry Point - ARIRINT 


© If interrupt type is ‘conpleted 
connection’, post the CONNECT 
ECB. 


® If interrupt type is ‘pending 
reply", then: 

~ Post SEND ECB. 

- If audit field is zero» save 
length of reply. 

- If audit field is non-zero, 
translate and save audit 
information. 

® If interrupt type is ‘severed', 
then: 

- Set reason code and sever 
code to ‘abnormal sever’. 

- If last function vas CONNECT, 
a. If user data is 'SHUTDOHN' 

*SVMMODE', or 'WRONGOB': 

1. Post CONNECT ECB 

2. Set reason code 
according to user 
data. 

e If last function vas not 
CONNECT, post SEND ECB. 

- If reason code is still set 
to ‘abnormal sever', set 
VMCLOCK=1. 


® If interrupt type is any other, 
then: 
- Post SEND ECB. 
- Set reason code ‘invalid 
interrupt’. 


® Return to caller with RI5 
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ARIRVST(C 
Entry Point ARIPRDI 
° Save caller's registers 


® If Resource Manager entry 

point in SQLTIE = 0, then do 

first-tize processing: 

~ Invoke the Resource Manager 
bootstrap to get load 
information table. 
If DCSS<-type Resource 
Manager, then use FINOSYS/ 
LOADSYS DIAGNOSE to load 
Resource Manager inte DCSS. 
If OMSFREE-type Resource 
Manager, then do NUCEXT 
query/NUCXLOAD/NUCEXT query 
to load Resource Manager 
into DMSFREE space. 
Put SQL machine-id from 
load information table into 
SQLTTE (SQLTSQID). 
Free load information table 
storage. 


Put Resource Manager entry 
point into register 15. 


Branch to Resource Manager 
load module (entry point 
ARIRVIR). 
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ARTSRMBT 


ARIRVIR | (page 264) 
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ARIRVIR(C 


Entry Point ARIRVIR 


® Save register 1 in register 2. 


@ If Resource Manager entry 
point in SQLTIE = 0, then do 
first-time processing: 
~- Put Resource Manager entry 

point into SQLTIE (SQLTRMEP). 

- Get storage for Resource 
Manager control blocks: 
. RMLO 
. RMLT 
. RMXC 

d. Mailbox parameter list 

e. IUCV buffers 

f. Communications Manager 
parameter list 

g- Stack storage. 

NUCEXT query/NUCXLOAD/NUCEXT 

guery ARICMOD. 

Initialize Resource Manager 

control blocks. 

If Multiple Virtual Machine 

Mode (MVMM), then: 

a. Do NUCEXT to declare an 
“end-of~-command" nucleus 
extension for implicit 
COMMIT /ROLLBACK 
Issue IMMCMD for SQLHX 
to establish a CANCEL 
support exit. 


Call Resource Manager main 
line (ARIRVRM). 


@ Restore application registers. 


© Return to application following 
the SQL statenent. 
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| anrs¥s01| 


| ARIRVRE 
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ARIRVRH(C 


Entry Point ARIRVRA 


® If Single Virtual Machine Mode 

(SVHM), then: 

- If "modify cancel support 

cali", return to caller. 

No cancel support for SVYMA. 

~ Get ARIXERD entry point from 

DOS2CvT fentry point to 

SQL/DS RDS component). 

- Establish addressability to 

RDAREA for stack management. 

- Branch and link to SQL/DS. SQL/DS (ARIXERD) 

* If Multiple Virtual Machine 

Mode (HVNH), then: 

~ If "modify cancel call"; 

then: 

a. If “remove cancel exit"; 
then issue IMMCND CLR to 
clear the CHS SQLHX 
immediate command. 

b. If "define additional 
cancel comnand name”, then 
issue INMCMD for passed 
command name. : 

If not "modify cancel support 

support call''s then: 

a. If IUCV path not 
connected, connect an 
IUCV path. 

b. If SQL/0S net available, 
issue a message and ¢ 
cancel the application. 

c. Call ARICING te conver? 
the ROIIN structure to 
ene contiguous message 
in the mailbox. 

d. Call ARICCGM to send s 
message to SQL/DS. E 

@. If an error in SEND, set 
SQLCODE to -933. 

f. Issue WAITECB to wait 
on either the IUCY SEND 
or the CANCEL ECB. 


ARIYMO4 ( ARISYSO7 


WAITECB macro 
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g. If the IUCV SEND ECB was 
posted, call ARICMMB to 
move data in mailbox to 
application output 
variables. If not end of 
process, set IUCV message 
message length to 0, and 
return to call to ARICCON 
for SEHD. 

h. If CANCEL ECB was posted, 
then: 

1. Initialize cancel 
continue control 
CRMXCCONT = 'Y°). 

2. If cancel exit exists 
CRMXCCXIY -= 0}, then 
branch and link to 
exit pointed to by 
RMXCCXIT. 

3. If RMXCCONT = "Y', then 
set SQLCODE to -914 to 
indicate an operator 
cancel. 

4. If RMXCCONT -= 'Y', 
then return to the 
WAITECB to continue to 
wait for the SEND ECB 
or the CANCEL ECB to 
be posted, e 


- Perform SQL WHENEVER 
processing: 

a. If SQLCODE < 0 and 
application specified 
WHENEVER ERROR STOP, set 
register 15 to 8, give 
a snapshot dunp of € 
SQLCA, and cancel the 
application. 

b. If SQLCODE > 0 and 
application specified 
WHENEVER WARNING STOP; 
set register 15 to 4, 
give a snapshot dunp 
of SQLCA, and cancel 
the application. 

- Return to caller (ARIRVIR). 
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——?>| ARICMMB 


—— Cancel Exit 


Routine 


ARISYSDA ARISYSD7 


ARISYSBA ARISYSD7 
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ARIRCLI(C 
Entry Point ARIRCLI 


® Using CHS IMMBLOK, get address 
of ARICNOD; using ARICHOO, get 
address of RNLO. 


If RMLO eyecatcher is 

initialized, then: 

- Using Test and Set logic; 
check cancel exit control 
byte {RHLOINCX). If byte 
indicates reentry te cancel 
exit, return immediately 
to CHS. 

Save caller's register 13 
in RMLOCA13. 

Set register 13 to point to 
cancel exit save area 
(RHLOCNSA). 


Call ARIRCL2 to complete (page 268) 
the cancel exit processing. 

Reset register 13 to 

caller's save ares. 


Return to CMS. 
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ARIRCL2(C 
Entry Point ARIRCL2 


® Using RMLO, get the address 
of RMXC (RMLORMXP). 


If RMXCXC indicates waiting 
on an SQL request, post the 
CANCEL ECB to cause this SQL 
request to he canceled by the 
Resource Manager cancel 
support. 


If RMXCXC indicates waiting on 
COMMIT or ROLLBACK, set the 
RMLOCNSY flag on to let the 


Resource Manager support knou 
a cancel request was attempted 
on a COMMIT or ROLLBACK. 


If not waiting on an SQL 
request at all, set RMXCXC to 
RMXCCAN (-2) letting an 
application know that a CANCEL 
has been requested and post 
the CANCEL ECB. This will 
cause the next SQL request to 
be canceled. 


Return to ARIRCLi. 
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ARIRTLICC 
Entry Point ARIRTLi 


@ Using CHS SCBLOCK, get address 
of ARICHOD; using ARICHOD, 
get address of RMLC. 


If RHLO eyecatcher is 

initialized, then: 

- Using Test and Set logic, 
check termination exit 
control byte (RMLOINTH). 

If byte indicates reentry 

to exit, immediately return 
to CHS. 

Save caller's register 13 

in RNLOCAIS. 

Set register 13 to point te 
Resource Manager save area 
CRHLORMSA ) . 

Call ARIRTL2 to complete ¢€ (page 270) 
the cancel exit processing. 
Reset register 13 to 

caller's save area. 

Clear storage acquired by 

the Resource Manager, getting 
length from RMLO (RMLOSTRL). 
Free storage acquired by 

the Resource Manager. 


© Return to CMS. 
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270 


ARIRTL2EC 
Entry Point ARIRTL2 


@ Using register 1, establish 
addressability to the CMS 
parameter list. 


If the parameter list indicates 
a Normal end of command, put 
‘COMMIT ‘ in the SEVER 
fararmeter list user data 

fields to indicate a COMMIT 
SEVER to the SQL/DS machine. 


If the parameter list indicates 
an abnormal end of command, 

put binary zeroes in the SEVER 
parameter list user data 

field to indicate a ROLLBATK 
SEVER to the SQL/DS nachine. 


* Call ARICCOM to request 
a SEVER. 


’ Call ARICCOM to request 
a LOGOFF. 


Issue a NUCXDROP for the 
end of command NUCEXT ARIRTLI. 


Issue NUCEXT query to determine 
if the Resource Manager was 
loaded as a nucleus extension. 


If Resource Manager is a 
nucleus extension, issue an 
ATTN to schedule a NUCXDROP 
of the Resource Manager on 
return to CMS. 


Return to ARIRTLI. 
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| ARICCON 
| ARICCON 
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DBSS (DATA BASE STORAGE SYSTEM) 


DBSS INITIALIZATION 


DBSS INITIALIZATION = GENERAL FLOW 


ARIYTOO From ARICIP2 (page 116) 


INIT INIT INIT RESTORE ADD ADD 
WORK TRACE COUN- DATA DB- OBSPACES 
COMP. COMP. TERS BASE EXTENTS 
ARICTRI ARTYZ23 ARIYI22 ARIYL22 ARTSOSK ARISEGA 
INIT DATA INIT INIT 
LOCK BASE STORAGE OPEN LOG 
COMP. GEN. COMP. DBSPACES COMP. 


ARIYTOS 


ARTYKG2 ARISPFM 
ARISFH1 


ARTSFDB 


ARTYI2i ARTYI261 


ARIYLOO 


ARIYL1G 


ARTYLI3 


ARTYL21 


ARIYL13 


ARISDBR ARTSIIO 
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DBSS INITIALIZATION — DETAIL FLOW 


Clear all TPMAP entries 
| ARIYTO2 
Get a TPMAP entry 


| ARICTRI | 
ARIYZ23 
ARISPFH (See Page 274) 


ARTYTOO 


® Initialize the Work 
conponent 


Allocate and initialize the 
first TPMAP for the Operator 
Agent 


® If SQL/DS tracing is 
specified (TRACDBSS and/or 
TRACRDS paraneters); 
initialize Trace 


© Initialize Lock conponent 


® Initialize counters 


If STARTUP='C', invoke the 
Data Base Generation 
process 


© If STARTUP='R', query the 
the operator uhether to 
continue or cancel 
(message ARI204D). 
If cancel call ARICTRM. 


If STARTUP=='C', open data 
base files. 


® Generate ACBs and RPLs (VSE) 
Create VHNCBLOCKs and VM@ (Vi) 

© Open data base files 

@ If STARTUP='R', invoke 


® Initialize Storage 


component ARIYL21 to restore directory 


e If STARTUP='R', then 
restore the data base 


ARIYL22 (see Page 419} 


® Open DBSPACEs for 
processing 


e If STARTUP='E", then more 
DBEXTENTs are to be added 
to the data base 


® Initialize the Log component 
and perform soft recovery 
of systenm €— 


ARTIYLOO (See Page 405) 
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® If STARTUP='S’, then aore 
DBSPACES are to be added to 
the data base ¢-————————-+}—9)| ARISEGA 


© RETURN 


Return to caller 
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(From ARIYTOO, Page 272} 
ARISPFM {Data Base Generation) 


Initialize Storage component 
constants ARIYI13 
Fornat Directory +| ARISFIM1 | (see Page 275) 
For each DBEXTENT: 
~ Format 
Open and read SYSIPT | ARISYSDS | 
- Add DBEXTENT to Extent 
Table 


Add DBEXTENT to Storage 
Pool Table 


Format log(s) ' | ARISFM1 | (see Page 275) 
Generate ACBs and RPLs and 
open all data sets €————— ARIYI22 | 
Initialize summary counters 
For each DBSPACE: 
- Read SYSIPT ARISYSDS | 
- Update SEGTABLE with 
DBSPACE | ARISFM2 | 
- Mrite out YTABLE2 to 


Directory ¢———————_— ARIYI313 


Write sumrary counters to 
Directory ARTYI315 
Write Master to Directory © >| ARYYI312 | 


RETURN to caller 
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ARISFMID - VSE 


Format Directory: 
— Generate ACB and RPL 
— Open ACB 

— Initialize DB(s) 
~ Format Directory vith 
control blocks 

Clese ACB 


ARISFOB ARISDBR 


* Obtain keyword values Open SYSIPT 
Read Keyvord Control Cards 
Build Keyword Value table 


RETURN 


© Verify that values speci- 
fied in keyvord table are 
not above maxinums 


© Format DBEXTENTS or logis): 
~ Generate ACB and RPL 
— Open ACB 
~ Write zeros on each CI 

— Close ACB 


* Calculate Storage Manage— 
ment control blocks 


ARISIIOL 


® Using values from Keyword 
Value table, build DBCB. 

® Calculate and obtain stor- 

age fox Master, YTABLE2, 

BLKALT, Page Counters, and 

MODHAP . 

RETURN 


RETURN 


RETURN 


ARISFHMIC (YH) 


Format Directory: 
- Generate VNCBLOCK 
- Open Directory 

— Initialize DBis) 
Format Directory vith 
contrel blocks 
Close Directory 


ARISFDB ARISDBR 


* Obtain keyvord values Open SYSIN 
Read Keyword Control Cards 
Build Keyword Value table 


RETURN 


® Verify that valves speci- 
fied in keyword table are 
not above saximuns 


© Format DBEXTENTS or log(s): 
- Generate VHCBLOCK 

~ Open Directory 

~ Close Directory 


® Calculate Storage Manage— ARISIIOL 

ment control blocks 

® Using values from Keyword 
Value table, build DBCB. 

® Calculate and obtain stor— 
age for Master, YTABLEZ, 
BLKALT, Page Counters, and 
MOOMAP. 

® RETURN 


RETURN 
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DATA BASE STORAGE SYSTEM LINKAGE (DBSI) 


Module ARYYMO00, the Data Base Storage System Linkage (DBSI)> 
is the linkage between RDS and DBSS. Yt is the DBSS entry 
point for executing DBSS operation codes. It determines 
what module entry point should be called to execute the 
operation code and calls that entry point, passing the 
pointer to the operation parameter structure (PARAMS). On 
entry and on exit, tests ate made for DBSS entry and DBSS 
exit tracing, and if that trace function is active, ARIYN0O 
makes a call to perform the trace function. Also» on entry 
and exit, ARIYM00 tests to determine if the current DBSS 
logical unit of work has been flagged for asynchronous 
termination. If so, ARIYMO0 calls DBSS routines to rollback 
the logical unit of work and to obtain the cause (for return 
code) and bypasses operation code execution. 


* From: 


For each operation code call, ARIYM00 tests to determine if 
a logical unit of work needs to be created for the operation 
(and possible subsequent opetations). If so, it calls the 
OBSS BEGIN WORK function finplicit BEGIN work). ARIYMO0O 
ensures that DBSS has been initialized for the agent before 
any operations other than BEGIN DSSS are executed. If called 
with an invalid operation code, this is detected and an 
error return code is set (and appropriate trace output if 
DBSS entry and/or DBSS exit tracing is active) and returned 
to the caller. For all calls, a DBSS return code is 
returned in the RTNCODE parameter and in register 15. 


The following diagram shous a general view of the calls made 
via ARIYMOO and for what reasons ARIYMOO was called. 


ARICCRA ~ BEGIN DBSS calls during create agent function of SQL/DS initialization. 


ARIGCAT - Catalog generation function of data base generation (to create/initialize SQL/DS system catalogs). 


ARISEGB - Add DBSPACE (does catalog updates). 


ARIXEDB - RDS linkage to DBSS (all DBSS OPCODE calls except END DBSS). 
ARIXERD ~ Issues END DBSS calls (for agent cleanup). 


ARIYM00 


1 oBSS entry tracing active for this agent. 

2 (At entry & exit) cause an LUW ROLLBACK if 
any asyiachronous LUN abort flags (USERPROB) 
are on. 

3 called after ARITY15 to get reason for the 
asynchronous LUW abort. 

* Do implicit BEGIN WORK when needed. 


2 4 
ARTYT15 ARIYTOS 


ARTYT22 


i 
ARTYEO1 


5 
| ARTYEQ1) 


A | OPCODE-dependent calls (for a list of op codes and meanings» 


DBSS exit tracing active for the agent. 

Perforn DBSS/DSC initialization for the agent structure 
Con first DBSS call for the agent) 

Build VSAM control blocks for data base and log access 
for the agent structure (on first DBSS call for agent). 
Provide DBSS entry & exit trace ouput for invalid 
operation code calls (via TRACE macro). 


ARIYTOS ] 


\_7 see "DBSS OP Codes" in Section 6, Diagnostic Aids) 


Subconponents and page reference: 


ARIYI.. modules belong to the Storage (I/0) subcomponent. 


See page 401. 
ARIYT.. modules belong to the Work subcomponent. 


See page 386. 


ARTYEO] and ARIYE]4 nodules are described under DSC Trace Services. See page 188. 
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BEGIN COMMIT SAV 
WORK WORK kOR 


ARIYTO9| JARIYTI4] |ARIYTIO//ARIYTL7] [ARIYKO} 


E 
K 


FETCH INSERT GET 
ROW ROW NEXT 
ROW 


ARTYDOG ARIYDO5| |ARTYDO6 ARITYOOS| |ARIYDO9 


UPDATE TERHI- |RELEASE 


CONTROL |NATE INTERNAL 


RECORD OBSS IN |OBSPACE 


AGENT 


tal 


XS? 


ROLLBACK | LOCK 
WORK 


OPEN GET 

SCAN PARENT 
ROW IN 
LINK 


PROCESS RETRIEVE 
OPERATOR IN-DOUBT 
COMRIAND LIST 


UNLOCK CLOSE CONNECT |DELETE DISCONNECT 
SCAN ROW IN ROW ROW FROM 
LINK LINK 


ARTYK28] JARIYOOO] | ARTYDOL ARTYDO2 ARIYDO3| 


UPDATE ACQUIRE |FETCH FETCH INSERT DELETE 
ROW INTERNAL |CONTROL [NEXT CONTROL {CONTROL 
DBSPACE |RECORD CONTROL {RECORD RECORD 
RECORD 


ARTYDIO] |ARTYIOO| |ARXYCOL!] |ARTYCOO ARTYCO2| JARIYC!2 


PREPARE |SORT SCHEDULE | START END 

TO AN USER-ID |UPDATE UPDATE 

rch OBJECT INTO DBSS|STATIS- |STATISTICS 
AND DSC J|TICS 


ARIYCIO] |ARIYTOS6) |ARITYIOO2|) [|ARIYHMIO1}) |ARIYT26| |ARIYT27| JARYYSOO)] J|ARIY¥28) |ARIYZOO| |ARIYZ15 


9 


Subcomponents and page reference: 


ARTYC.. nodules belong 
ARTYD.. modules belong 
ARIYI.. modules belong 
ARIYK.. modules belong 
ARIYS.. modules belong 
ARITYT.. modules belong 
ARTYZ.. nodules belong 


the 
the 
the 
the 
the 
the 
the 


This nodule is described under DSC Operator Services, page 144, 


Data Control subcomponent. See page 278. 
Data Manipulation subcomponent, See page 306. 


Storage subcomponent 
Lock subcomponent. 
Sort subcomponent. 
Work subcomponent. 


- See page 401. 


See page 420. 
See page 344. 
See page 386. 


Update Statistics/COUNTER command subcomponent. See page 365. 
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DBSS DATA CONTROL (DBSS/DC) 


DBSS7DC NORMAL PROCESSING - GENERAL FLOW CMAJOR 
De MODULES) 


In this diagram, only the DBSS/DC major modules are shown. See the 
folloving detail diagrams for other modules being called. 


RDS ] 
| ARIYMOO (DBST) 


FETCH NEXT FETCH INSERT UPDATE A DELETE 
CONTROL RECORD CONTROL RECORD CONTROL RECORD CONTROL RECORD CONTROL RECORDS 


| ARTYCOO | ARTYCOl ARTYCO2 


| 


ARTYCO6 ARTYCO06 ARIYCOS 


ARLYCO7 | | ARIYCO?7 | ARIYCO31 


ARIYCO5 


5 


ARTYCi1 


ARIYTO6 


ARIYCO7 


ARIYCO9 


ARIYCI15 | aryci11| 


See page 279 for detail flow of FETCH NEXT CONTROL ROW. 
See page 280 for detail flow of FETCH CONTROL ROW. 

See page 282 for detail flow of INSERT CONTROL ROW. 

See page 286 for detail flow of UPDATE A CONTROL ROW. 
See page 288 for detail flow of DELETE CONTROL ROWS. 


ETEIEEIGIU IE 


Ce 
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DBSS/DC (continued) 
DBSS/DC NORMAL PROCESSING ~ DETAIL FLOW 


(Fron ARIYMOO, page 278) 
ARTYCOO (FETCH NEXT CONTROL ROW) 


Hove the return code to RDS (CBASE structure} 


ARIYCO6 4 


May Call: To: 

ARIYKO9 - Exit from DBSS. 

ARIYI46 - Unfix the page and the block in the buffer. 
ARIYMO2 - Crash the system; handle error messages. 


OBSS/DC call initializer before each ARIYMOO call 


ARITYCO7 May Cali: To: 
ARIYKOS - Enter in DBSS. 


ARIYNO2 - Crash the system; handle error messages. 


Unfix the buffers; release all easy locks 


—> 


ARIYDI1 + May Caiis Tor 

ARIYD53 - Unfix the DBSPACE header or entity buffer. 
ARIYKO9 - Exit from DBSS. 

ARIYMO2 - Crash the systern; handle error messages. 
ARIYD531 - Release the buffers. 

ARIYT19 - Undo work. 

ARIYI46 - Unfix the page and the block im the buffer. 
ARIYT22 - Clear SI backup flags. 


Get a page with the requested row in it 


ARIYD26 


May Call: To: 
ARIYII9? - Get a page into real storage. 


Get DBSFACE attribute, lock, and DBSPACE header 


+} ARTYD38 May Call: To: 

ARTYIL9 - Get a page into real storage, 

ARIYNO2 - Crash the system; handle error messages. 
ARIYI42 - Fetch the attributes of the sequent. 


ARTYK41 - Request access to a named gate in the designated anode. 

Get row and page; check TID validity 

>] ARIYOD4O0 May Call: Tos 

ARIYD19 - Format a page as a free entity page and update the 
related entry in the block. 


ARIYII9 - Get a page into real storage. 
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BSS/DC fcontinued) 


Trace routine 
ARIYE14 May Call: To: 
} ARISYSDS - Service I/O functions. 
ARICPDM - DSC SQL/DS partition or virtual machine snap dump. 
ARICDWT - DSC Dispatcher external wait. 
> ARIYM04 <= Service DBSS/DSC nessages. 
ARLTYI422} Get DBSPACE attributes, number of pages in it and storage pool, 
(with fourth arguaent) 
Crash the systen3; handle error messages 
ARIYMO2 May Call: To: 
ARICABE ~ Handle SQL/DS ABEND. 
ARICTRM - Terminate SQL/DS. 


(From ARIYHOO, page 278) 
ARIYCOl (FETCH CONTROL ROW) 


F 
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Move return code to ROS (CBASE structure) 


ARIYC06 May Call: To: 
ARIYKO9 ~ Exit from DBSS. 
ARIYIS6 - Unfix the page and the block in the buffer. 


y ARIYMO2 ~ Crash the systen; handle error messages. 


DBSS/DC call initializer before each ARIYMOO call 


| 
ARIYCO7 May Call: To: 
ARIYKO8 - Enter in OBSS. 


ARIYMO2 - Crash the system}; handle error messages. 


Unfix buffers; release all easy locks 
ARIYD11 May Call: To: 

ARIYD53 - Unfix the DBSPACE header or entity buffer. 
ARIYKO9 - Exit from DBSS. 

ARIYM02 - Crash the system; handle error messages. 
ARTYD531 ~ Release the buffers. 

ARIYTL9 - Undo work. 

ARIYIS6 ~- Unfix the page and the block in the buffer. 
ARTYT22 - Clear SI backup flags. 
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of IBM 


OBSS/OC (eontinued) 
Get a page with the requested row in it 


ARTYD26 May Cali: To: 
ARLIYI19 - Get a page into real storage. 


Get DBSPACE attributes, lock, and DBSPACE header 
ARTYD38 Hay Call: To: 
ARIYI19 - Get a page into real storage. 


ARIYNO2 = Crash the system; handle error messages. 
ARIVIS2 - Fetch the attributes of the segment. 
ARIYKS1 - Request access to a naned gate in the designated node. 


Get row and page} check TID validity 
ARTYD40 May Cail: To: 
ARYYD19 - Format a page as a free entity page and update 
the related entry in the block. 
> ARIYI19 - Get a page into real storage. 


Trace routine 

roy Sate 
ARISYSDS - Service I/0 functions. 

ARICPDM OSC SQL/DS partition or virtual rnachine snap dump 

ARICDWT - DSC Dispatcher external wait. 

ARIYM04 - Service OBSS/DSC messages. 


ARIYI422] Get DBSPACE attributes, number of pages in it and storage pool. 
(with fourth argument? 


— Crash the system; handle error messages 
ARIYMO2 May Call: To: 
ARICABE ~ Handle SQL/DS ABEND. 
ARICTRM - Terminate SQL/DS. 
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DBSS/NC (continued) 


(From ARIYHOO, page 278) 
ARTYCO2 (INSERT CONTROL ROW) 


Create a control row 


ARIYCO3 May Call: To: 


> ARIYCO9 - Format the header page. 

> ARIYD14 - Compact the page. 

ARIYELS - Output a trace record. 

Get a page into real storage. 


Crash the systen;: handle error messages. 


ARIYCO3)| Update pointer} free space and slots 


Insert link control row 


Lb 

>> 
a 7 
mH 
<~< 
iw 
oOo 
Nn 2 
i 


ARYYCO5 May Call: To: 

ARTYCO3 - Create a control row. 

ARIYCO31 - Update a point, free space and slots. 
ARTYCIS - Return a control row (make hole). 
ARTYCi51 - Untix the page and the block buffers. 

> ARIYD26 <- Get a page with the requested row in it. 
ARTYDS0 - Get a rov and a page and check TID validity. 
ARIYD44 = Update the scan table. 

ARIYD63 - Update the free space in the page. 
ARIYE1&® -~ Output a trace record. 

> ARIYIIG - Get the block into real storage. 

ARIYIG2 - Get DBSPACE attributes. 

ARTYK40 - Get OBSPACE attributes, ‘locks and header. 
ARIYMO2 - Crash the system; handle error messages. 


Move return code to RDS (CBASE structure) 


ARIYCO6 May Call: Te: 
ARIYKO9 - Exit from DBSS. 
ARIYI96 - Unfix the page and the block in the buffer. 


ARIYMO2 - Crash the system; handle error messages. 


DBSS/DC call initinlizer before each ARIYNOO call 


ARTYKOS - Enter in OBSS. 


May Call: Te: 
b ARIYMO2 - Crash the system) handle error aessages. 
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DBSS/OC (continued) 


ARIYCO9 


ARIYCiS 


May Call; 


Fill index pages 
ARIYKO4 May Call: 
ARICWSF 
ARICHKSG 
ARIYD34 
ARTYD50 
ARIYD5S31 
ARIYELS 
ARTYIOO1 
ARIYI003 
ARIYII4 
ARIYIL9 
ARIY146 
ARIYS002 
ARIYX02 
ARTYX06 
ARIYX07 
ARTYX08 
ARTYX09 
> ARTYX1O 


ARLYDII 
ARIYOS3 
ARTYDS31 
ARLYI46 
ARLYKO9 
ARIYTI9 
> ARIYT22 
Ly ARIYMO2 


}} ARIYD26 


May Call: 


Licensed Material - Property of ISH 


May Call: 


Header page fornatter 


May Call: Jo: 
ARIYE14 - Dutput a trace record. 


Return a control row space to page (make hole) 


Tos 


ARIYEL4 ~ Output a trace record. 
ARIYIG6 - Unfix the page and the block in the buffer. 
ARIYHO2 ~- Crash the systen; handle error nessages. 


To: 

Free gotten storage. 

Get storage. 

Allocate a scan control block. 

Get the first TID in the table. 

Release the buffers. 

Output a trace record. 

Acquire a temporary DBSPACE. 

Free a temporary DBSPACE. 

Get a pointer to a block nunber. 

Get a page into real storage. 

Unf ix the page and the block in the buffer. 
Sort the keys in temporary DBSPACE. 
Drop the indexes. 

Decode the last domain of the key. 

Get an index page. 

Fill in the header of a new page. 

Update the higher levels of the index. 
Clean up the higher levels of the index. 


Unfix buffer; release all easy lecks 


To: 

Unf ix a DBSPACE header or entity buffer. 
Release the buffers. 

Unfix the page and the block in the buffer. 
Exit froa DBSS. 

Undo vork. 

Clear SI backup flags. 

Crash the systen; handle error anessages. 


Get a page with the requested row in it 


To: 


ARIVI19 - Get a page into real storage. 
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3SS/DC (continued) 


Get rou and page 


——— ARIYD40 May Call: To: 
ARIYD19 - Format a page as & free entity page and update 
the related entry in the block. 
ARIYI19 - Get a page into real storage. 
Update free space in page 
ARIYD63 May Call: To: 
ARIYIIG - Retrieve for “write the directory block associated 
with the entity page identified by the PAGEPTR parameter. 
ARIYMO2 - Crash the system; handle error uessages. 
Trace routine 
————_— ARIYE14 May Call: To: 
ARISYSDS - Service I/O functions. 
ARICPDM - DSC SQL/DS partition or virtual machine snap dump. 
ARICOWT - OSC Dispatcher external wait. 
ARIYM0% - Service DBSS/DSC nessages. 
Get block into real storage 
——-— ARIYI14 May Call: To: 


ARTYK18 - Suspend the process. 

ARIYII7 - Get a block buffer. 

ARIYIO6 = Access the block. 

ARIYMO2 - Crash the system; handle error aessages. 
Get page into real storage 

ARIYIIO May Call: To: 

ARIYK18 - Suspend the process. 
ARIYI1I71 - Request a free buffer. 
ARIYMO2 - Terminate SQL/DS. 

ARTYI29 ~- Read a page. 

b> ARIYIO7 Write out a changed page. 
“> ARIYI49 ~ Read a log page. 


; ARTYI421| Get DBSPACE attributes, number of pages in it and storage pool. 
(uith third 


argument} 
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DBSS/DC (continued) 


—>] ARTYKS0 


ARTYCO9 
ARTYI14 
ARIYIL9 
ARTYIG2 
ARIYK41 
ARTYMO2 


Hay Call 


: 
: 


Get DBSPACE attributes 


To: 

Format the header page. 

Get a block into real storage. 

Get a page into real storage. 

Get DBSPACE attributes and nunber. 

Request access to a named gate in the designated node. 
Crash the system} handle error ressages. 


To: 


- Allocate space for log huffer 
ARTYLOL May Call: 
ARIYIL? ~ Get a page into real storage. 


ARIYKO6 
ARIYKO7 
ARTYNO2 
ARTYK19 
ARIYLO2 
ARIYTI6 


ARLYKO6 
ARTYKO7 
ARTYM02 


ARTYLO2 
ARTYT16 


— Crash the systems 


ARIYNO2 
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ARIYLO2 May Call: 
ARIYMO2 - 


Write the data fron 


ARTYLOS May Call: 
ARIYII9 - 


~ 


ARTYK19 ~ 


Wait for access to an S-latch rode. 
Give up an access to an S-latch. 

Crash the systens handle error messages. 
Post (wakeup) the designated process. 
Move data to the log buffer. 

Schedule a rollback or a commit. 


Move data to log buffer 


To: 
Crash the systens} handle error nessages. 


log buffer 


To: 
Get a page into real storage. 
Wait for access to an S-latch sode. 
Give up an access to an S-latch. 
Crash the systems handle error nessages. 
Post (wakeup) the designated process. 
Move data to log buffer. 
Schedule a rollback or a commit. 


handle error messages 


Hay Call: 
ARICABE - Handle SQL/DS ABEND. 
ARICTRM = Terminate SQL/DS. 


To: 


Hathod of 
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DBSS/DC (continued) 


(From ARIYMO0, page 278} 
ARIYC1O (UPDATE A CONTROL ROW) 


Create a control row 
ARITYCO3 May Call: To: 
ARIYCO9 - Format the header page. 
ARTYD14 - Compact the page. 
ARTYE!4 Output a trace record. 
ARIYIL9 Get a page into real storage. 
ARIYHO2 - Crash the system; handle error messages. 
[ arzrycosi| [ arrycosi] upuate pointer; free space and slots 


Move return code to RDS (CBASE structure) 


ARIYCO6 May Calls To: 
ARIYKO9 - Exit from DBSS. 
ARIYIG6 - Unfix the page and the block in the buffer. 


ARTYMO2 - Crash the system; handle error messages. 


DBSS/DC call initializer before each ARIYMOO call 


se ARIYCO7 May Call: To: 
J ARIYKO8 ~ Enter in DBSS. 
ARIYMO2 - Crash the system; handle error messages. 


Return a control row space to page {make hole) 


ARIYC15 


May Call: Yo: 

ARIYE14 - Output a trace record. 

ARIYIG6 - Unfix the page and the block in the buffer. 
ARIYMO2 ~ Crash the system; handle error messages. 


Unfix buffers; release all easy locks 


— Moy cata: Tes 
ARIYD53 <- Unfix the DBSPACE header or entity buffer. 
ARIYDS31 - Release the buffers. 
ARIYI46 - Unfix the page and the block in the buffer. 
ARIYKO9 - Exit from DBSS. 
ARTYT19 - Undo work. 
ARIYT22 - Clear SI backup flags. 
ARIYMO2 - Crash the system} handle error messages. 
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DBSS/DC (continued) 


Get a page with the requested row in it 


ARTYD26 May Calle To: 


ARIYI19 - Get a page into real storage. 


Get row and page and check TID validity 
cl te ARIYD19 - Fornat a page as a free entity page and update 


the related entry in the block. 
ARIYIL9 - Get a page into real storage. 


Update free space in page 


Hay Call: Jo: 
ARIYIIG - Retrieve for "write" the directory block associated 

with the entity page identified by the PAGEPTR paraneter. 
ARIYMO2 - Crash the systen; handle error messages. 


on 


ARTYD63 


Trace routine 


ARIYEI4G May Call: Yor 

» ARISYSOS - Service I/0 functions. 

» ARICPON DSC SQL/DS partition or virtual machine snap dump. 
» ARICONT DSC Dispatcher external wait. 

» ARIYHO4S - Service DBSS/DSC messages. 


Get DBSPACE attributes, lock, and header 


ARIYK40 May Cal Tor 

» ARIYCOS - Format the header page. 

y ARTYII4 ~- Get a block into real storage. 

ARIYILY - Get a page into real storage. 

ARIYI42 - Get DBSPACE attributes and numbers. 

ARTYK41 - Request access to a named gate in the designated node. 
ARIYMOZ - Crash the system} handle error rnessages. 


Allocate space for log buffer 


~———-;—> ARIVYLOL May Call: To: 

ARIYII9 - Get a page into real storage. 

ARIYKO6 - Wait for access to an S-latch mode. 
ARIYKO7 - Give up an access to an S-latch. 

ARIYNO2 - Crash the system} handle error messages. 
ARIYK1L9 - Post (uakeup) the designated process. 
ARIYLO2 - Hove data to the log buffer. 

ARIYT16 - Schedule a rollback or a coanit. 


BSS/DC (continued) 


3 


{From ARIYMOO, page 278) 
ARTYC11 (DELETE CONTROL ROWS) 


Move return code to RDS (BASE structure) 
ARTYC06 May Call: To: 
ARIYKO9 - Exit from DBSS. 
ARTYI4G6 - Unfix the page and the block in the buffer. 
ARIYMO2 - Crash the systen; handle error messages. 
DBSS/DC call initializer before each ARIYMOO call 
ARIYCO7 May Call: To: 
ARIYKOS ~ Enter in DBSS. 
ARIYMO2 ~- Crash the system; handle error messages. 
Delete link control row 
ARIYC13 May Call: To: 
ARTYC1S - Return a control row space. 
ARIYCI51 - Unfix the page and the block buffers. 
ARIYD26 =- Delete a child and parent link control. 
ARIYDG8& Empty the rows in the table. 
ARIYE14 - Output a trace record, 
ARIYMO02 Crash the systea: handle error messages. 
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Move data to log buffer 


ARIYLO2 


Write the data froa log buffer 


ARTYLO3 


May Call: To: 
ARIYMO2 - Crash the system; handle error rnessages. 


May Call: To: 

ARIYI46 - Unfix the page and the block in the buffer. 
ARIYI48 - Write a log page out on disk. 

ARIYK18& = Suspend the process. 

ARIYK19 - Post (wakeup) the designated process. 
ARIYMO2 - Crash the systen; handle error messages. 


Crash the systen3} handle error nessages 
ARTYMO2 May Call; To: 
ARICABE - Handle SQU/DS ABEND. 
ARICTRM ~- Terminate SQU/DS. 
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DBSS/DC (continued) 


Delete index control row 

tay Sah: 
ARIYCI5 - Return a control row. 

ARTYD26 - Get a page. 

ARTYD4O - Get a row and a page. 

ARTYD44 - Update a scan table. 

ARIYEIGS - Output a trace record. 

ARIYMO2 ~ Crash the systen; handle error nessages. 

ARIYX02 =~ Drop the indexes. 


Return a control row space to page (make hole) 


May Call: To: 
> ARIYE1G - Output a trace record, 
ARIYI4S6 - Unfix the page and the block in the buffer. 
ARIYMO2 - Crash the system; handle error messages. 


ARTYCIS 


Unfix page and block buffers 


ARTYCI51 May Cali: To: 
ARIYI46 - Unfix the page and the block in the buffer. 


ARIYHO2Z ~- Crash the systen} handle error messages. 
Unfix buffers; release all easy locks 

ARTYDI1 May Call; To: 

ARTYOSS Unfix the DBSPACE header or entity buffer. 
ARIYDS31 Release the buffers. 

ARIY146 Unfix the page and the block in the buffer. 
ARTYKO9 Exit from DBSS. 

ARIYT19 Undo work. 

ARIYT22 Clear SI backup flags. 

ARYYHO2 Crash the system; handle error messages. 


Free the allocated space 
>| artes | 


Get a page with the requested row in it 


May Call: Te: 
ARIYII9 - Get a page into real storage. 


ARIYD26 


Request for space allocation 


——{s[orroe sevens 


ARISYSDL - Get snore space fron the system. 
ARICWSF - Fornat the pool. 


38S8/DC (continued) 


Get row and page and check TID validity 


ARIYD40 May Call: To: 
ARTYD19 ~ Format a page ag a free entity page and update 
the related entry in the block. 


ARIYI19 ~- Get a page into real storage. 


Update scan table 
ARIYD44 


Empty the rows in relation table 


ARIYD48 May Call: To: 

ARTYD28 - Build a key from a field in a stored row. 
ARIYD531 =~ Release the buffers. 

ARIYD63 - Update the free space in the page. 

ARIYI14 - Get the block into real storage. 

ARIYI19 - Get a page into real storage. 

ARIVIG6 - Unfix the page and the block in the buffer. 
ARIYXO02 - Drop the indexes. 

ARIVYX18 - Insert a key into an index. 

ARIYMO2 - Crash the system}; handle error messages. 


Trace routine 

toy Gals 
ARISYSD5 - Service I/O functions. 

ARICPDN - OSC SQL/DS partition or virtual machine snap dump. 

ARICDWT - DSC Dispatcher external wait. 

ARIYM04 - Service DBSS/DSC nessages. 


Empty DBSPACE 

ty eds 
ARIY1I362 ~ Eapty the contents of the segment during the delete process. 

ARIVI262 + Open the temporary DBSPACE. 

ARIYK19 =~ Post (wakeup) the designated process. 

ARIYK18 ~ Suspend process for checkpoint. 

Lock DBSPACE 


————_ ARIYK39 May Cal}: To: 
| ARIYO26 ~ Get a page. 
] ARIYK40 - Get DBSPACE attributes, lock, and header. 
ARIYMO2 - Crash the systen} handle error messages. 
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DBSS/DC (continued) 


ARIYKSO 


May Call 
> ARIYCO9 
ARIYI14 
ARIYI19 
ARIYI42 
ARIYK41 
ARIYMO2 


Get space for log 


| ARTYLOL May Call 
ARIYIA9 
ARTYK06 
ARIYKO7 
ARTYHG2 
ARIYKL9 
ARLYLOZ 
ARIYT16 


Move data 


ARTYLO2 May Call 


Write the data fro 
ARIYLOS May Call 


ARTYI46 
ARIYI4S 
ARTYK18 
ARTYKi9 
ARTYHO2 


Force end 


May Call 
ARIYLO5 
ARIYKOS 


ARTYLO} 
ARTYLO2 
ARIYLOS 
ARTYLOS 
ARIYMOZ 
ARIYT19 
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Get DBSPACE attributes, lock, and header 


Tos 

Format the header page. 

Get a block into real storage. 

Get a page into real storage. 

Get DBSPACE attributes and nunber. 

Request access to a naned gate in the designated node. 
Crash the system; handle error messages. 


buffer 


~ 


* 
~ 


ARIYKO9 = 


ARIYT22 ~ 


To: 

Get a page into real storage. 

Wait for access to an S-latch rode. 
Give up an access to an S-latch. 

Crash the system; handle error sessages. 
Post (wakeup) the designated process. 
Move data to the log buffer. 

Schedule a rollback or a commit. 


to log buffer 


Tos 


ARIYMO2 - Crash the system; handle error messages. 


leg huffer 


Ter 

Unfix the page and the block in the buffer. 
Write a log page out on disk. 

Suspend the process. 

Post (wakeup) the designated process. 

Crash the system; handle error messages. 


ef transaction 


Tos 
Release internal DBSPACEs. 
Enter in DBSS. 
Exit from DBSS. 
Allocate space for the log buffer. 
Move data to the log buffer. 
Write the data from the log buffer. 
Perform system checkpoints. 
Crash the systen; handle error messages. 
Undo work. 
Clear SI backup flags. 
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DBSS/OC (continued) 


Crash the systems} handle error nessages 


ARIYHO2 


May Call: To: 
ARICABE - Handle SQL/DS ABEND. 
ARICTRM ~ Terminate SQL/DS. 


Free storage 


Entry Point: 
ARIYC111 ARICWSF 
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DBSS/DC (continued) 


DBSS/DC RECOVERY PROCESSING - GENERAL FLOW (MAJOR DC MODULES) 


In this diagram, only the DBSS/DC major nodules are shovn. See the following detail diagrams for other nodules being called. 


ARIYLO7 


SCR HER ICR 
| ARIYC1S ARTYCI19 ARTYC20 ARTYC21 ARIYC22 


UPDATE SCR; 
\ 4 MCR, and ICR 
4 control rous 
These paths perform the INSERT (in RENO) or on REDO; un-do 
DELETE (in UNDO) for the indicated control the updates in 
roufs) shour on the path. UNDO. 


Se@ the indicated pages for detail flow for these modules: 
ARTYC18 - 294; ARIYC19 - 2953; ARIYC20 ~- 2963 
ARIYC2Z1 - 295; ARIYC22 - 2943 ARIYC23 - 2983 
ARIYC24 - 300; ARIYC25 - 302; ARIYC26 - 304, 
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ARIYC23 


DELETE SCR 
control 
rov in 
REDO. 


ARIYC24 


DELETE Rela- 
tion and 
Domain row 
in REDO, 


ARTYC25 ARTYC26 


DELETE ICR DELETE LCR 
row in and PLCR 
REDO; INSERT row in 

@ row in REDO, 
UNDO. 
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DBSS/DC (continued) 


DBSS/DC RECOVERY PROCESSING - DETAIL FLOW 


(From ARIYLO7, page 293) 
ARTYC18 (INSERT (in re-do) or DELETE (in un-do) SCR control row 
ARTYC22 (UPDATE SCR, MCR, and ICR control rows on REDO; un-do the 
updates in UNDO) 
Note: The paths for these functions are essentially the sare. 


Unfix page and block buffers in DBSPACE header 


— ARIYD52 May Call: To: 
ARIYMO2 - Crash the systems handle error messages. 
ARIYI46 — Unfix the page and the block in the buffer. 
Initialize YTABLEIU in recovery calls 
——— ARITYD74 May Call: To: 
ARIYK41 ~ Acquire a backup lock. 
ARIYMO2 ~ Crash the systen; handle error zessages if the backup lock cannot be acquired. 
ARTYD23 - Get SCR, MCR, and ICR. 
Unfix last page and block buffer pointers 
o_o ARIYD76 May Call: Tos 
ARIYMO2 - Crash the systen; handle error messages. 
Retrieve and update non-index page 
“ ARIYD77 May Call: To: 
ARIYD28 Build a key from a field in a stored row. 


May Call: 


Crash the 
ere, 


ARICYRM - 
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ARTYDS31 Release the buffers. 

ARIYD63 ~ Update the free space in the page. 

ARXYI14 Get the block into real storage. 

ARIYI19 <- Get a page into real storage. 

ARIYIG6 = Unfix the page and the block in the buffer. 
ARIYX02 - Drop the indexes. 

ARIYX18 -~ Insert a key into an index. 

ARIYHO2 - Crash the system; handle error messages. 


system; handle error messages 


To: 


ARICABE - Handle SQL/DS ABEND. 


Terminate SQL/DS. 
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DBSS/DC (continued) 


(From ARIYLO7, page 293) 

ARIYC19 (INSERT (in re-do} or DELETE (in un-do) MCR control row 

ARLYC21 (INSERT (in re-do] or DELETE (in un-do) LCR/PLCR control row 
Note: The paths for these functions are essentially the same. 


Unfix page and block buffers in DBSPACE header 


ARTYDS2 


May Call: To: 
> ARIYHO2 - Crash the system; handle error messages. 
ARIYI46 - Unfix tha page and the block in the buffer. 
Initialize YTABLE1U in recovery calls 


ARIYD74 


May Call: Toe: 

ARIYKS1 - Acquire a backup lock. 

ARIYMO2 ~- Crash the system} handle error messages if the hackup lock 
ARLYD23 - Get SCR, MCR, and ICR. 


- Unfix last page and block buffer pointers 


ARIYD76 May Call: To: 


ARIYHO2 - Crash the system} handle error messages, 


Retrieve and update non-index page 


ARIYO77 May Call: To: 

ARTYD28 - Build a key from a field in a stored row. 
ARIYD531 - Release the buffers. 

ARIYD63 - Update the free space in the page. 

ARIYIIG - Get the block into real storage. 

ARIYII9 - Get a page into real storage. 

ARIYIG6 <= Unfix the page and the block in the buffer. 
ARIYX02 = Drop the indexes. 

ARIYX18 - Insert a key into an index. 

ARIYHO2 © Crash the system; handle error messages. 


Trace routine 


ARIYE14 May Call: To: 

ARISYSOS - Service I/O functions. 

ARICPDH - DSC SQL/DS partition or virtual machine snap dump. 
ARICDUT - DSC Dispatcher external wait. 


ARIYHOG - Service DBSS/DSC ressages. 
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OBSS/OC (continued) 


Read number of bytes 
——— ARIYLOS May Call: 
ARIYEO2 - 


from leg record 


To: 
Show messages and a variable routine. 


ARIYE13! ~- Displays system messages (used by 0BSS/DC). 
ARIYII9 ~- Get a page into real storage. 

ARTYI46 ~ Unfix the page and the block in the buffer. 
ARIYNO2 - Crash the system; handle error messages. 


Move the log cursor 


——- ARIYLO6 May Call: To: 
ARIYEO2 = Show messages and # variable routine. 


ARIYEI31 - Display system messages (used by DBSS/DC). 
ARIYII9 =- Get a page into real storage. 

ARIYI46 - Unfix the page and the block in the buffer. 
ARIYMO2 - Crash the system; handle error messages. 


Crash the 


w 


ARIYNO2 


system} handle error messages 


May Call: Tor 
ARICABE - Handle SQL/DS ABEND. 


ARICTRM ~- Terminate SQL/DS. 


(From ARIYLO7, page 293) 
ARIYC20 CINSERT (in re-do) or DELETE (in un-do) ICR control row 


Unfix page and block buffers in DBSPACE header 


<———+-?} ARTYD52 May Call: To: 
ARIYNO2 - Crash the system; handle error messages. 


ARIYI46 - 


Initialize YTABLELU 


Unfix the page and the block in the buffer. 


in recovery calls 


—— ARIYD74 May Call: To: 
ARIYKG! - Acquire a backup lock. 
+> ARIYMO2 - Crash the system; handle error messages if the backup 
ARTYD23 ~- Get SCR, MCR» and ICR. 
Unfix last page and block buffer pointers 
——— ARIYD76 May Call: To: 
ARIYMO2 - Crash the system; handle error messages. 
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DBSS/DC (continued) 


ARTYD77 


ARIYD28 
ARIYD531 
ARIYD63 
ARTYIIG 
ARIYII9 
ARTYI46 
ARTYX02 
ARIYX18 
ARIYHOZ 


ARTYLOS 


ARIYEO2 
ARTYE131 
ARIYIL9 
ARIYI46 
ARTYHO2 


ARIYLO6 


ARIYEO? 
ARIYE131 
ARIVILS 
ARIYI46 
ARIYHO2 


Crash the 


ARIYHO2 


Drop indexes 


ARTYX02 Hay Call 
ARIY146 
ARTYMO2 
ARTYIIG 


ARTYI19 
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May Call 


May Call 
ARICABE ~ Handle SQL/DS ABEND. 
ARICTRM - Terminate SQL/DS. 


Read number of bytes 


May Call: 


Move the log cursor 


g 


e 


Retrieve and update non-index page 


May Calis 


Jo: 
Build a key from a field in a stored row. 
Release the buffers. 


+ Update the free space in the page. 
- Get the block into real storage. 


Get a page into real storage. 
Unfix the page and the block in the buffer. 
Drop the indexes. 


- Insert a key into an index. 


Crash the systen; handle error messages. 
from log record 


To: 

Show messages and a variable routine. 
Display system messages (used by DBSS/DC). 
Get a page into real storage. 

Unfix the page and the block in the buffer. 
Crash the systea; handle error ressages. 


To: 

Shou messages and a variable routine. 
Display system messages (used by DBSS/DC). 
Get a page into real storage. 

Unfix the page and the block in the buffer. 
Crash the systeus handle error nessages. 


systen; handle error nessages 


To: 


To: 

Unfix the page and the block in the buffer. 
Crash the system; handle error messages. 
Set a block into real storage. 

Get a page into the buffer. 
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DBSS/DC (continued) 


Fill index pages 
ARIYX04 - May Call: To: 
ARICWSF - Free gotten storage. 
ARICHSG - Get storage. 
ARIYD3% - Allocate a scan control block. 
ARIYD5O0 - Get the first TIO in the table. 
> ARTYD531 - Release the buffers. 
ARIYEL4 - Output a trace record. 
ARIYIOO] - Acquire a temporary DBSPACE. 
ARIYIOOS - Free a temporary DBSPACE. 
ARIYI14 ~ Get a pointer to a block number. 
ARIYIL9 ~ Get a page into real storage. 
ARIYIG6 - Untix the page and the block in the buffer. 
ARIYSO02 - Sort the keys in temporary DBSPACE. 
ARIYX02 - Drop the indexes. 
> ARIYX06 - Decode the last domain of the key. 
ARIYXO7? ~ Get an index page. 
ARIYX08 - Fill in the header of new page. 
ARIYXO9 = Update the higher levels of the index. 
ARIYX10 - Clean up the higher levels of the index. 


(From ARIYLO?, page 293) 
ARIYC23 (DELETE SCR control row in REDO) 


Unfix page and block buffers 


May Call: To: 
ARIYIG6 =~ Unfix the page and the block in the buffer. 
ARIYMO2 ~- Crash the systen; handle error messages. 


Delete child and parent link control row 
ARIYC26 May Call: To: 

ARIYD74 - Initialize the YTABLELU in the recovery calls. 
ARIYD?? - Retrieve and update the non-index pages. 
ARIYLOS - Read the number of bytes from the log record. 
ARIYD48 - Empty the rows in the table. 

ARTYD52 - Unfix the page and block buffers in a segment. 
ARIYD76 - Unfix the last page and buffer pointer. 
ARIYNO2 ~ Crash the systen} handle error messages. 


Unfix page and block buffers in OBSPACE header 


ARTYDS2 


May Call: To: 
ARIYMO2 ~ Crash the systen; handle error messages. 
ARIYI46 - Unfix the page and the block in the buffer. 
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DBSS/DC (continued) 


> May Call: 


Initialize YTABLEIU in recovery calls 


To: 


ARIYKG1] = Acquire a backup lock. 
ARTYHO2 - Crash the systen; handle error messages if the backup lock cannot be acquired. 
ARIYD23 - Get SCR, MCR, and ICR. 


Unfix last page and block buffer pointers 


ARIYD76 May Call: 


Tor 


ARIYMOZ2 - Crash the systen} handle error messages. 


Trace routine 
nay Sa 

ARISYSDS ~ 
ARICPDN = 
ARICONT - 
ARIYHOS - 


Read number of bytes 

ARIYEO2 <- 
ARIYEI31 - 
ARIYII9 - 
ARIYI46 - 
ARIYMO2 = 


Empty DBSPACE 

ARTYI362 ~ 
ARIYI262 - 
ARIYK19 -+ 
ARTYKI6 - 


ARLYHO2 


May Call: 
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To: 

Service I/O functions. 

DSC SQL/DS partition or virtual machine snap dump. 
DSC Dispatcher external wait. 

Service DBSS/DSC messages. 


from log record 


Tot 

Show messages and a variable routine. 
Display system messages (used by DBSS/DC). 
Get a page into real storage. 

Unfix the page and the block in the buffer. 
Crash the system; handle error messages. 


Tos 

Empty the contents of the segnent during the delete process. 
Open the temporary OBSPACE. 

Post (wakeup) the designated processes. 

Suspend process for checkpoint. 


Crash the systems handle error nessages 


Te: 


ARICABE ~ Handle SQi/DS ABEND. 
ARICTRN ~ Terminate SQL/DS. 
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(From ARIYLO7, page 293) 
ARIYC24 (Delete relation and domain row in RE 


Unfix page and block 


ARIYC151 May Call: 
ARIYI46 ~ 


ARIYMO2 - 


Delete image row in 


00} 

buffers 

To: 

Unfix the page and the block in the buffer. 


Crash the systen; handle error messages. 


REDO and insert a row 


ARIYC25 May Call: 
ARIYD74 - 
ARIYD77 - 
ARIYX02 - 
ARIYMO2 - 
ARIYX04 ~ 
ARIYDS2 - 
ARIYD76 - 
ARIYE14 - 
ARIYLOS - 
ARIYLO6 - 


To: 
Initialize the YYABLEILU in the recovery calls. 
Retrieve and update the non-index pages. 
Drop the indexes. 
Crash the system; handle error messages. 
Fill the index pages. 
Unfix the page and block buffers in a segment. 
Unfix the last page and buffer pointer. 
Output a trace record. 
Read the number of bytes from the log record. 
Move a log cursor. 


Delete child and parent link control row 
ARIYC26 May Call: 
ARIYD74 - 
ARIYD77 - 
ARIYLOS - 
ARIYD48 - 
ARIYD52 - 
ARIYD76 - 
ARIYMO2 - 


To: 

Initialize the YTABLELU in the recovery calls. 
Retrieve and update the non-index pages. 

Read the number of bytes from the log record. 
Exnpty the rous in the table. 
Unfix the page and block buffers in a segnent. 
Unfix the last page and buffer pointer. 

Crash the system; handle error messages. 


Empty the rovs in relation table 


ARIYD48 


May Call: 

ARIYD28 - 
ARIYDS31 - 
ARIYD63 - 
ARIYIIG - 
ARIYII9 - 
ARIYI4G6 ~ 
ARIYX02 - 
ARIYX18 - 
ARIYMO2 = 


Tor 

Build a key from a field in a stored row. 
Release the buffers. 

Update the free space in the page. 

Get the block into real storage. 

Get a page into real storage. 

Unfix the page and the block in the buffer. 
Drop the indexes. 

Insert a key into an index. 

Crash the system} handle error messages. 
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DBSS/DC (continued) 


ARLYD52 May Call: 
b ARIYHO2 - 
ARIYIS6 - 


Initialize YTABLELU 


ARIYD74 


Hay Call: 
ARIYK4] - 
ARIYNO2 - 
ARIYD23 ~- 


Unfix last page and 
ARIYD76 


May Call: 
ARIYNOG2 ~ 


Retrieve and update 


May Call: 
ARLYOZ26 
ARIYD5S3) 
ARIYD63 
ARIYIIG 
ARIYII9 
ARIYIG6 
ARLYX02 
ARIYX18 
ARLYHO2Z 


Jrace routine 


ARTYELS May Call: 
ARTSYSD5 
ARICPOM 
ARICDWT 


ARIYMO4S 


Read number of byte 


ARIYLOS Hav Call: 
ARTYEQ2 
ARIYELSA 
ARTYII9S 
ARTYI46 


ARLYMO2 
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Unfix page and block buffers in DBSPACE header 


Te: 
Crash the system; handle error messages. 
Unfix the page and the block in the buffer. 


in recovery calis 


To: 

Acquire a backup lock. 

Crash the systen; handle error messages if hackup lock 
Get SCR, MCR» and ICR. 


block buffer pointers 


Tos 
Crash the system; handle error messages. 


non-index page 


To: 

Build a key from a field in a stored row. 
Release the buffers. 

Update the free space in the page. 

Get the block into real storage, 

Get a page inte real storage. 

Unfix the page and the block in the buffer. 
Drop the indexes. 

Insext a key into an index. 

Crash the system; handle error messages. 


To: 

Service I/O functions. 

DSC SQL/DS partition or virtual machine snap dump. 
DSC Dispatcher external wait. 

Service DBSS/DSC messages. 


fron log record 


To: 

Show messages and a variable routine. 
Display system messages (used by OB5S/0C). 
Get a page into real storage. 

Unfix the page and the block in the buffer. 
Crash the system} handle error ressages. 


cannot be acquired. 
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OBSS/UC (continued) 


| aRIyMo2 May Call: 
ARICABE ~ 
ARICTRM - 


(From ARIYLO7, page 293) 


Crash the systea; handle error nessages 


To: 
Handle SQL/DS ABEND. 
Terminate SQL/DS. 


ARIYC25 (Delete ICR row in REDO; insert a row in UNDO) 


ARIYDS52 May Call: 
ARIYHO2 - 


ARIYI46 - 


Initialize VTABLE1U 
ARIYD74 May Call: 

> ARIYK41 = 

ARIYMO2 - 
ARIYD23 - 


Unfix last page and 


——; ARIYD76 May Call: 


ARIYMO2 - 
Retrieve and update 
ARIYD77 May Call: 

ARIYD28 - 
ARIYO531 - 
ARIYD63 - 
ARIYIIG = 
ARIYII9 - 
ARIYI46 = 
ARIYX02) - 
> ARIYXI8 - 
» ARIYMO2 - 


Trace routine 


9 


May Call: 

ARISYSDS - 
ARICPDM - 
ARICDWT - 
ARIYM04) - 


ARIYE!4 
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Unfix page and block buffers in DBSPACE header 


Tor 
Crash the systea; handle error nessages. 
Unfix the page and the block in the buffer. 


in recovery calls 


Tor 
Acquire a backup lock. 


Crash the system; handle error messages if backup lock cannot be acquired. 


Get SCR, MCR, and ICR. 
block buffer pointers 


To: 
Crash the system; handle error nessages. 


non-index page 


To: 

Build a key from a field in a stored row. 
Release the buffers. 

Update the free space in the page. 

Get the block into real storage. 

Get a page into real storage. 

Unfix the page and the block in the buffer. 
Drop the indexes. 

Insert a key into an index. 

Crash the systenj; handle error aessages. 


To: 

Service I/O functions. 

DSC SQL/DS partition or virtual machine snap dunp. 
DSC Dispatcher external wait. 

Service DBSS/OUSC messages. 
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DBSS/ODC (continued) 


Read nunber of bytes 
ARLYLOS May Call: 

ARTYEO2 = 
ARIYE!S1 = 
ARIYII9 ~ 
ARIYI46 - 
ARTYMO2 - 


Move the log cursor 
ARTYLO6 May Call: 

ARIYEQ2 = 
AREYEI31 - 
ARIYII9 - 
ARIYIG6 = 
ARIYMO2 - 


Crash the 


ARTYHOZ Ray Call: 


fron log record 


To: 

Show messages and a variable routine. 
Display system nessages (used by DBSS/DC). 
Get a page into real storage. 

Unfix the page and the block in the buffer. 
Crash the systeat handle error messages. 


To: 

Shov aessages and a variable routine. 
Display system messages (used by DBSS/ODC). 
Get a page into real storage. 

Unfix the page and the block in the buffer. 
Crash the system; handle error messages. 


system; handle error nessages 


To: 


ARICABE ~ Handle SQL/DS ABEND. 
ARICTRM ~ Terminate SQL/0S. 


Orop indexes 
+} ARLYXO2 May Call: To: 
ARIYIG6 - Unfix the page and the block in the buffer. 


ARIYMO2 - Crash the systen; handle error sessages. 
ARIYI14 - Get a block into real storage. 
ARIYI19 — Get a page into the buffer. 


Fill index pages 

ARIYX04¢ Hay Call: To: 
ARXCHSF =~ Free gotten storage. 
ARICWSG - Get storage. 
ARTYD34 - Allocate a scan control block. 
ARIYD5O ~ Get the first TID in the table. 
ARIYD531 - Release the buffers. 
ARIYEL4 - Gutput a trace record. 
ARIYIOO!] - Acquire a temporary DBSPACE. 
ARTYIOO3 ~ Free a temporary OBSPACE. 
ARIYI14 - Get a pointer to a block number. 
ARIYI1L9 - Get a page into real storage. 
ARTYI46 = Unfix the page and the block in the buffer. 
ARIYSO02Z - Sort the keys in tenporary DBSPACE. 
ARTYX02 - Drop the indexes. 
ARIYX06 - Decode the last domain of the key-~ 
ARLYXO07 - Get an index page. 
ARITYKO8 - Fill in the header of a new page. 
ARIYXO9 - Update the higher levels of the index. 
ARIYXLO - Clean up the higher levels of the index. 
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DBSS/DC (continued) 


(From ARIYLO7, page 293) 
ARTYC26 (Delete LCR and PLCR row in REDO} 


Empty the rous in relation table 


ARIYD48 May Call: To: 

ARTYDC8 = Build a key from ae field in a stored rou. 
ARIYD531 - Release the buffers. 

ARIYD63 -~ Update the free space in the page. 

ARIYII14 - Get the block into real storage. 

ARIYII9 - Get a page into real storage. 

ARIYI46 - Unfix the page and the block in the buffer. 
ARIYX02 - Drop the indexes. 

ARIYX18 - Insert a key into an index. 

> ARIYMO2 - Crash the system; handle error aessages. 


Unfix page and block buffers in DBSPACE header 


ARIYD52 


May Call: To: 
ARTIYMHO2 - Crash the systen} handle error messages. 
ARIYIG6 - Unfix the page and the block in the buffer. 


Initialize YTABLE1U in recovery calls 


ARIYD74 May Call: To: 
ARIYK41 - Acquire a backup lock. 
ARIYMO2 - Crash the systen} handle error rnessages if backup lock cannot be acquired. 


ARIYD23 - Get SCR, MCR, and ICR. 


Unfix last page and block buffer pointers 


ARIYD76 May Call: To: 


ARIYNO2 - Crash the systen; handle error messages. 
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OBSS/DC (centinued) 


ARIYD77 May Call: 
» ARTYDZ3 
» ARTYOS31 
» ARIYDES 
» ARTYII4G 
. ARIYI19 
» ARTYIGG 
» ARIYXO2 
» ARLYXI8 
ARIYMO2 


- Trace routine 


ARTYEL4 


ARTYNOS 
Read number of byte 


ARIYLOS 


¢ Hay Call: 
— ARTYEO2 
ARTYEL31 
ARIYII9 
ARIYI46 


ARLYHO2 


Ss 


Retrieve and update non-index page 


Tor 

Build a key from a field in a stored row. 
Release the buffers. 

Update the free space in the page. 

Get the block into real storage. 

Get a page into real storage. 

Unfix the page and the block in the buffer. 
Drop the indexes. 

Insert a key into an index. 

Crash the system; handle error messages. 


To: 

Service I/O functions. 

DSC SQL/DS partition or virtual machine snap 
DSC Dispatcher external wait. 

Service DBSS/DSC messages. 


from log record 


To: 

Show messages and a variable routine. 
Display systems messages (used by DBSS/DC). 
Get a page into real storage. 

Unfix the page and the block in the buffer. 
Crash the systems handle error messages. 


Mig Crash the system; handle error messages 


To: 


| ARTYHO2 i Hay Call: 
kb ARICABE - Handle SQL/DS ABEND. 


ARICTRM - Terminate SQL/DS. 
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DBSS DATA MANIPULATION CDBSS/BM) 
BBSS/DM NORNAL PROCESSING - GENERAL FLOW (TOP DM MODULES) 
In this diagram, only the DBSS/DM normal procesing top modules are shown. See the following detail diagrams for other modules 


being called. 


RDS 


ARTYMOO (DBSI} 


CLOSE DELETE FETCH INSERT OPEN UPDATE 
SCAN ROW ROW ROW SCAN ROW 
ARTYDOO ARTYDO2 ARTYD04 ARTYDOS ARTYDO8 ARTYD1O 
CONNECT DISCONNECT GET NEXT GET PARENT 
ROW | ROW ROW ROW 


ARIYDO1 ARIYDO3 | ARTYD06 


@ CLOSE SCAN (ARIYDO0}, see page 307. 
CONNECT ROW (ARIYDO1), see page 308. 
DELETE ROW (ARIYDO2), see page 310. 
DISCONNECT ROW (CARIYDO3), see page 313. 
FETCH ROW (ARIYDO4), see page 315. 
INSERT ROW (ARIYDO5), see page 317. 

GET NEXT ROW (ARIYD06), see page 321. 
OPEN SCAN (ARTYDO8), see page 326. 

GET PARENT ROW CARIYDO9}), see page 332. 
UPDATE ROW (ARIYDI0), see page 334. 


@eeaeee¢??@t8ke#? 
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DBSS Data Manipulation (continued) 
CLOSE SCAN 


™ Called from ARIYHOO 
ARIYDOO (CLOSE SCAN? 


@ ARIYDOO performs the DBSI call to 


clese a scan identified by the Release lock for scan hold or release 
submitted SCANID- leaf page lock for index scan 
The SCB (Scan Control Block) is 


invalidated (marked closed} and nade 


available for re-use within the 
agent scan area, Scan holds auto~ 


matically maintained by DBSS are Invoke SQL/DS tracing (via TRACE rzacro) 
released. 
ARIYELS 
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DBSS Data Manipulation (continued) 


CONNECT Child ROW into a Link 


* Called from ARIYMO0O0 
ARTYDO! (CONNECT ROW) 


© ARIYDOL performs the DBSI call to 
connect child rou Tl before or after 
another row T2 in a link. 


The link is identified by providing 

DBSPACE and link-id (LID). The rou 

Jil is identified by providing RID and 

legal TID. Row T2, which in a binary 

link may be a child or parent» is 

identified by providing: 

- The ID of active and positioned ‘ON’ 
scan in SCANID, or 

— SCANID=0, PSEGMENT, PRID and legal 
PTID. Note that these variables may 
be used (unlike in other calls) to 
identify a child. 


QUALF must be set to 'B' (CONNECT 
BEFORE) or to ‘A’ (CONNECT AFTER}. 
‘B' is illegal if T2 identifies a 
parent. Tl cannot be a rou already 
connected in the used link. If T2 is 
a child in a binary link, it aust 
already have been connected in the 
link itself. 


CONNECT will change to on ‘Ti' the 

state of a scan that: 

- Was opened by the LUW issuing 
CONNECT, and 

- Is a Link-scan on the link identi- 
fied by LID, and 

~ Is positioned betueen T2 and the 
previous row for at 'TOF' if T2 is 
the first row} and QUALF='B', or 
is positioned betueen T2 and the 
following row (or at 'EOF' if T2 is 
the last row) and QUALF='A'. 


® The follouing modules may be called 
(not necessarily in the order shown): 

~ Unfix OBSI-call held buffers and release acquired DBSI locks. 

~ Initiate LUW rollback if required. 

— Determine if the OBSI call should be retried. 


If OBSI-call backup is occurring 
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DBSS Data Hanipulation (continued) 


If row Tl's link prefix area needs 
te be expanded 


If link control record not already 
acquired 


> 
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ARTYDIS 


ARTYD32 


ARIYD33 


ARIYD38 


ARTYDSS 


ARTYD551 


ARTYD60 


ARLYD64S 


ARIYI4S6 


ARIYLOI 


ARTYLO2 


ARTYLO3 


ETE UIEIEIUIAISIEIUIEIE ue 


Make link updates in row Tl's right twin and left twin or 
parent row (if they exist) and update LCONNECT log record to 
reflect these updates. Update affected SCBs. 


Obtain row Tl's Master Control Record and lock the table 
for update. 

Expand link prefix area to contain the link pointers. 
Acquire DBSPACE attributes, lock, and control record (SCR). 
Retrieve Link Control] Record 

Initialize YTABLE] and obtain DBSI lock for DBSI call. 
Release buffers and short locks and move YBASE (in YTABLE1) 


back to BASE (at end of DBSI call). 

Same as ARIYD55 but for case where no DBSPACE header page 
buffers have been acquired. 

Obtain IOs of T2 row if it was identified via a scan-id. 
Retrieve Tl row for update and acquire any required page 
or TID locks. 

Unfix T2 page if it is still fixed after update. 

Start the LCONNECYT log record {via YSTARTLG macro}. 


Write LCONNECT log data to the log (via YWRITELG macro). 


Close the LCONNECT log record {via YENDWRIT aacro). 


Method of Operation 


309 


DBSS Data Manipulation (continued) 
DELETE ROW from a Table 


* Called from ARIYMOO 
ARTYDO2 (DELETE ROW) 


@ ARTYDO2 perforrzs the DBSI call te 
delete a rou from a table and, 
optionally, disconnect it from a 
link. The row to be deleted can be 
identified by providing: 

- The IO of an active and positioned 
"ON' scan in SCANID, or 

- SCANID=0, DBSPACE, RID and legal 
TID, or 

~- SCANID=0, DBSPACE, RID, TID=0,.IID, 
ICOMP, and a key value in KDOMAINS 
(no key value if ICOMP=FIRST). 


DBSPACE, table-id, and TID of the 
deleted row are returned in SEGMENT, 
RID», and TID (fields in BASE}. 


The delete operation is not accepted 
if the row to be deleted is a parent 
of some child in a link. If the rou 
is a child in a link, the delete 
operation is not accepted unless the 
link ID is specified in LID. The 
protocols for possible link scan 
update as in CONNECT. Also, ARIYDO2 
sets PSEGNMENT, PRID» and PTID as is 
done in ARIYDO3 (DISCONNECT). 


All seans opened by the LUW issuing 

DELETE T and positioned ‘on'" or 

adjacent to T are repositioned as 

follous: 

-— At 'TOF' if T is the first row of 
the scan-set, 

- At 'EOF' if T is the last row of the 
scan-set> 

- 'BETWEEN' Ti and T2 if T is between 
Tl and T2 in the scan-set, 

The scan is set to empty if T uas the 

only row of the scan-set. 
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DBSS Data Manipulation (continued) 


® The following modules may be called 
for the folloving reasons: 

- DBSi-call backup occurring tor 

a. Unfix DBSI-call held buffers 
and release acquired locks, 

b. Initiate LUW ROLLBACK if 
required, or 

ce. Determine if the DBSI call 
should be retried. 

~ Delete base rou T and overflow row, 
if any; and update page map table 
nap entry(s)} for the update page(s) 

- If row T is to be disconnected; 
disconnect it from its tuin and 
parent rous; update SCBs referring 
to row T and the affected tuin and» 
possibly, parent rows; fill in 
disconnect log data. 

~ If table has indexes, retrieve 
Domain Control Record and Index 
Control Recordis) (separate call 
for each one). 

~ Assenble index key from stered 
rov. 

- Obtain rov T's table Master Control 
Record and lock table for update 

~ Acquire DBSPACE attributes, lock» 
and Control Record (SCR). 

— If also disconnect, retrieve Link 
Control Record if not already 
acquired. 

~ Initialize YTABLEI and obtain DBSI 
lock for OBST call. 

- If row T identified by index and 
submitted keys and ICOMP parameter, 
validate ICOMP and submitted keys 
and retrieve TIO of rou J via the 
submitted key value(s) and ICOMP. 

~- Release buffers and short locks and 
move YBASE tin YTABLE1) back to 
BASE (at end of DBSI call}. 

- Same as above but for case where no 
DBSPACE header pages have been 
acquired, 

~ If row was identified by a sean-id 
obtain rov T's IDs from the SCB 

- Retrieve rou T for delete and 
acquire any required page or 
TIO locks 

~ Retrieva for update base and over~- 
flow (if it exists) Directory 
Blocks, if mot already retrieved 


ARTYDLL 


ARTYD17 


ARITYDI8S 


ARLYD23 
ARTYD28& 


ARIYD32 


ARIYD40 


ARTYD3S8 


ARIYD43 


ARTYD46 


ARTYD55 


ARTYD5S1 


ARLYD5S9 


ARIYD64 


ARIYI14 
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Data Manipulation (continued) 


Start the LDELETE log record (via 
YSTARTLG aacro) 
Write LOELETE log data to the log 
(via YWRITELG nacro) ¢—————————— 
*CLOSE' the LDELETE log record (via 
YENORRIT macro) 
If table has indexes, delete rou T 
key entry from an index ¢—————— 
If DBSI call BACKUP asd indexes vere 
updated, re-insert rou T key €—— 
entry into an index 

If any indexes were updated, drop 
index backup SCBs if any index ¢-—— 
SCB vas nodified (normal completion) 


ARTYLOL 
| ARTYLO3 | 


| ARIYX18 
| ARTYX28 | 


ARTYLO2 


ARXYXO1] 
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DBSS Data Manipulation (continued) 


DISCONNECT Chile ROW from a Link 


# Called from ARIYHOO 
ARTYDOS {DISCONNECT ROW) 


The link is identified by providing 

DBSPACE and link-id. The row to be 

disconnected can be identified by 

providing: 

1. The ID of an active and pesitioned 
‘ON’ scan in SCANID, or 

2. SCANID=0, RID; and legal TID. 


The DBSPACE, table-id, and TID of the 
row are returned in SEGMENT, RIO, and 
TID (in BASE). For binary links, the 
DBSPACE, table-id, and TID of the 
Ffarent are returned in PSEGMENT, PRID, 
ana PTID (in BASE). For unary links; 
O's (zeros) are returned in PSEGMENT>, 
PRIO, and PTID. 


ARIYDOS will change the state of a 
scan that: 


. Has opened by the LUW issuing the 
DISCONNECT call, and 

- is a link-scan on the link identi- 
fied by LID,» and 

» is positioned ‘on’ or adjacent to fT. 


The nev SCB state vill he ‘TOF’ if T 
vas the first rou, ‘EOF’ if T was the 
last rou, 'BETHEEN' Tl and T2 if T 
vas connected between Tl and T2. The 
scan will be closed if T was the only 
row in the link set. 


® The folloving nodules may be called 
for the following reasons: 
~ DBSI-call backup occurring to: € ARTYO1I 
a. Unftix D8SI-call held buffers 
and release acquired locks» 
b. Initiate LUW ROLLBACK if 
required, or 
c. Determine if the DB5I call 
should be retried. 
~ Disconnect rou T from its tuin 


and parent rous; update SCBs 
referring to row T and the ARIYD18 
affected tuin and, possibly, 
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parent rows; fill in disconnect 
log data. 

—- Obtain rou T's table Master 
Control Record and lock the 
table for update. 

- Acquire DBSPACE attributes, 
locks and control record (SCR). 


py) ARYYD32 
| ARTYD38 | 
- If Link Control Record not 


——————-} | ARTYD40 | 
already acquired, retrieve it. 
~ Initialize YTABLE] and obtain DBSI ——— 
lock for DBSI call (BASE is | ARTYD43 
copied into YBASE in YTABLE]) | 


—- Release buffers and short locks 
and move YBASE (in YTABLE1) back 


| ARTYDSS 
into BASE Cat end of DBSI call) 
— Sane as immediately above, but for — 

[ anryossi 


case there no DBSPACE header 
pages have been acquired. 
-— If row T vas identified via a 


scan-id, obtain IDs of row T ARTYD59 
from the SCB. —————— 
- Retrieve row T for update, and 
acquire any required page or 
TID locks. 
—- Start the LDISCONN log record (via 
YSTARTLG macro} 


- Write LDISCONN log data to the log 

(via YWRITELG xacro) 
- 'CLOSE' the LDISCONN log record 
(via YENOKRIT nacro) 
Abend SQL/DS 


T 
[a 
| ARTYHO2 | 
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FETCH ROW from a Table 


* Called from ARIYMOO 
ARIYD04 (FETCH ROW) 


The row to be fetched can he identi- 

fied by providing: 

1. An ID of an active and positioned 
‘on’ scan in SCANID, or 

- SCANID=0, DBSPACE, RIO; and legal 

TID, or 
SCANID=0, DBSPACE, RID, TID=0, IID, 
ICOMP, and a key-value in KDONAINS 
(if ICOMP=FIRST;, no key value is 
needed). 

Search arguments can be checked by 

setting NSARGS > 0 and providing a 

search argument list (SARGS). In that 

case, DOMAINS are returned only if the 

search arguments are satisfied. 

Othervise, the BADSARG varning code is 

raised, and only DBSPACE, RID. and TID 

are returned. 


A returned rov is described by DBSPACE, 
RID, TID, and DOHAINS. A user-con- 


trolled hold on a row can be acquired 
by setting HOLDIND='H". 


The number of DOMAINS to he returned 
is specified in NREQDOM. The DONAINS 
values are pointed to by FLOPTR and 
are truncated to the lengths specified 
by FREQLTR. The actual lengths are 
returned in FACLTH, 


For associative operation, ICOMP can 
take these values: 

‘M’' = Match 

‘A’ — First After 

'"MA® -— Match or First After 

‘FI’ - First 
If the index has more DONAINS than 
NKEYDOM, then ‘DON’T CARE’ values are 
assumed for all the non-submitted 
KDOMAINS. 


© The folloving modules may be called 
for the following reasons: 
— DBSI-call backup occuring to: 
a. Unfix DBSI-call held buffers 
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and release acquired locks, 
b. Initiate LUW ROLLBACK if 
required, or 
e. Determine if the DBSI call 
should be retried. 


- If any DOMAINS requested, 
validate DOMAIN request values. 

- If any DOMAINS requested or 
request by index, or SARGS €————— 
submitted, retrieve DOMAIN Control 
Record unless already retrieved. 

—- Obtain row's table Master Control 


anry013 | 
| ARIYD23 


, esc 

Record and lock the table for e ARTYDS2 | 
read. — 

—- Acquire DBSPACE attributes, locks | ARIYD36 | 
and control record (SCR). 

— Set row or page lock ‘HOLD’ on 
requested row if consistency | ARTYD4) | 
level is less than 3 and DBSI 


requested hold. 
- Initialize YTABLE] and obtain DBSI 
lock for DBSI call (copy BASE into € | ARTYD43 | 
YBASE in YTABLEL). ———“—-_ 
- If DOMAINS reguest can be totally 
satisfied by index key, retrieve € | ARIYD45 | 
the requested DOMAINS from index 


key. 

~ If requested row is identified by 
INDEX and submitted keys and ICOMP __ 
parameter, validate ICOMP and | ARTYD46 | 
submitted keys and retrieve TID of 


row via submitted key value(s) and 
ICOMP parameter. 


— Release buffers and short locks <<< 
and move YBASE (in YTABLE]) back | ARTYDSS | 
to BASE Cat end of DBSI call}. 

- (Sane as immediately above except 

| anry055: | 
| ARIYD57 


that no DBSPACE header buffers 
have been acquired.) 
ARTYD59 
>| ARIYD62 
ARIVEIS | 


~ If SARGS subnitted: 
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Validate the SARGS. 

Check vhether fetched rou 

satisfies SARGS. 

- If requested row vas identified by 
a scan-id, obtain IDs of the row. 

- Retrieve the data row for READ and 
set appropriate ENTITY locks. 

- Invoke DBSS tracing (via TRACE 

macro}. €— 


>| ARIYDSS 


uh 
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INSERT a ROW in a Table 


*# Called from ARIYMOO 
ARTYDOS (INSERT ROW) 


ARTYDOS performs the DBSI call to: 

— Insext a row in a table and, 
optionally, connect it in a link. 

— Insext a row at the end of a list. 


For a table: 
— The row to be inserted is descrihed 
0GSS by providing; 
OBSPACE; RID; DOMAINS, and 
TID -= 0, or 
DBSPACE, RID, DOMAINS, and TID=0, 
TID += 0, DBSS vill attempt to 
assign to the rou a TID ‘close’ to 
the submitted one. Otherwise, it 
vill attempt to use the first index 
(af any) for that purpose. The point 
of insertion in an index is deter- 
mined first by key-value (by the 
first-domain-value) and then by the 
assigned TID (by the second-donain- 
value if applicable). The TID 
actually allocated to the row is 
returned in TID. 


The number of subnitted DOMAINS is 
specified in NREQDOM. If NREQDON is 
smaller than the table degree,» DSSS 
vill virtually store strings of null 
values for the non-submitted DOMAINS. 
The correct lengths nust be entered 
for fixed-length DOMAINS that are 
being submitted. 


If a non-zero LIO is subnitted, the 
inserted row is also connected in the 
link identified by SEGMENT, LID. The 
point of insertion is specified via 
PSEGMENT, PRID, PTID, and QUALF or by 
SCANID and QUALF as in CONNECT. The 
protocols for link scan update are as 
in CONNECT. 
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INSERT will change to ON(T) the state 
of an index scan that was opened by 
the LUN issuing INSERT T and which is| 
positioned in the scan order in a 
position adjacent to T. 


ra sequential list: 

The row to be inserted is described 
to the DBSI by providing DBSPACE, 

RID = 0» and DOMAINS. It is always 
inserted at the end of the sequential 
list. 


The number of subaitted DOMAINS is 
specified in NREQDOM. If NREQDOM is 
smaller than the table degree, DSSS 
will actually store strings of null 
values for the non-submitted DOMAINS. 
The correct lengths must be entered 
for fixed-length DOMAINS that are 
being submitted. 


he following modules may be called 
or the following reasons: 
If DBSI call backup is occurring: 
a. Unfix DBSY call held buffers 
release acquired DBSI locks, oes 
b. Initiate LUN ROLLBACK if 
reguired> 
c. Determine if the DBSI call 
should be retried. 
If link connect requested, nake the 
link updates in the row's right 
tuin, and left twin or parent — 
rous (if they exist), and update 
LINSERT log record to reflect these 
updates. Update affected SCBs. 
If the table has indexes, retrieve 
Domain Control Record and Index 
Control Record(s) (separate call for 
each one). 


index entry from subnitted DOMAINS. 
Obtain row'’s table Master Control 
Record and lock the table for ¢€—— 
update. 
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Ma 


ARIYDiI 


ARIYDI5 


ARTYD23 


ARLYD29 


ARIYD32 
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~ Acquire DBSPACE attributes, lock» 
and control record (SCR). 

— Obtain a TID and ENTITY page with 
enough available free space for the 
insert on a page ‘close to' a 
specified page. Set appropriate 
ENTITY locks. 

~ If CONNECT vas requested and Link 
Control Record not already 
acquired, retrieve it. 

- Initialize YTABLE] and obtain DBSI 
lock for DBSI call (copy BASE 
in YTABLE1) 

— Release buffers and short locks and 
move YBASE (in YTABLEL) to BASE 
(at end of OBSI call}. 

— Same as immediately above but for 
case where no DBSPACE header 
pages have been acquired. 

~ If CONNECT is requested and T2 row 
was identified via a scan-id, 
obtain IDs of T2 row from the SCB. 

— Update the Directory Block (Page 
Map entry) for the updated 
(INSERT) ENTITY page. 

- If the Directory Block not already 
retrieved, retrieve it (for WRITE) 
for the updated (INSERT) ENTITY 
page. 

~ If inserting into a list, retrieve 
for UPDATE the last-used page in 
DBSPACE or Directory Block for 
update page. 

- For list insert, unfix ENTITY, 
Directory, or header buffer. For 
connect, unfix T2 rou page buffer. 

- Start the LINSERT log record (via 
YSTARTLG macro). 

~ Write LINSERT leg data to the 
log {via YWRITELG macro). 

~ ‘CLOSE’ the LINSERT log record 
(via YENDWRIT macro}. 

- If insert into a list, validate 
the submitted DOMAINS and obtain 


ARIYD38 


ARIYD39 


ARIYD40 


ARIYD43 


ARIYD55 


ARTYD551 


ARTYD60 


ARTYD63 


ARIYII4 


ARIYILS9 


ARIVIG6 


ARTYLO] 


ARTYLOZ 


ARIYLO3 


the length of the row to be ARTYSO3 
inserted, 

- If insert into a list, store the 
row from submitted DOMAINS into ¢— ARTYSO4 


selected ENTITY page. 

- If DBSI call backup and indexes 
were updated, delete nev row key €— ARTYXO1 
entry from an index, 
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~ If table has indexfes), insert new | 
row key entry into an index. ARTYX18 
- If no TID was subaitted and an 


index exists, obtain fron first 
index a tentative TID to be used 
for selecting insert page. If 
key DOMAINS are submitted, use them 
to select the TID (ratching page). 
~ If OBSI call backup and any indexes 
were updated, restore any index 
SCBs that were modified. 
- Drop index backup SCB if any 
index SCB vas modified (normal 
conpletion). 


ARIYX21 


ARTYX22 


ARIYX228 


HERE 
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GET _NEXT ROW During Scan 


* Called from ARIYHGO 
ARIYDO6 (GET NEXT ROW? 


ARIYDO6 performs the OBSI call to do 
the GET NEXT ROW processing. Fast 
next processing is done jf these 
conditions are true: 

- Previous call was for NEXT 

— Same SCANID was used 

- Scan was left on and clean 

- Return code was 0 

- Page locking vas used. 

ARTYDC6 sets the FASTFLAG in YTABLE) 
to '1'°B if all the conditions are net. 
It also tries to fit copies of the 
dormain control row and index control 
row into YTABLE! and sets the 
appropriate flags YOCRFLAG and 
YICRFLAG. 


GéT NEXT is the DBSI call to search 
and retrieve a row from a table or 
sequentinl list using an opened scan, 
For a scan opened on an index of a 
table, the rou that is returned is 
located by providing: 
- The ID of a scan on an index in 
SCANID. 
A key-value restriction in ICOMP 
and KDOHAINS (optional). A value of 
NKEYDOM=0 indicates that a key 
restriction is not being subnitted, 
ICOMP can take the values 'H ''; 
'B ‘, and ‘MB’. 
A DOMAIN search clause in SARGS 
(optional). A value of NSARGS=0 
indicates that a search clause is 
not being submitted. 


The rov description is returned in 
SEGHENT, RID, TID, and DOMAINS. The 
index ID on which the scan is opened 
is returned in IIO, and LIO is set to 
O. The returned row is the first in 
the index, starting from the position 
presently identified in the scan and 
satisfying the restrictions (if any) 
on key-value and search clause. 
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If the scan is 'ON' a row, the rou 
itself is included in the search if 
QUALF='N', but it is not included if 
QUALF="A‘* CAFTER). 


If the scan is ‘BETWEEN' two rous, the 
second row is aluays the starting 
point of the search. If the scan is 
‘EOF’, no search is performed. The 
search is halted vith a key-violation 
or an EOF warning in the return code 
uhen a key-value restriction (if any) 
cannot be satisfied or when EOF on the 
scan is reached. 


An automatic hold on the current row 

is acquired by D555, and the hold 
previously acquired in the scan is re- 
leased. In addition, a user-controlled 
hold on the current row can be acquired 
by setting HOLDIND='H'. 


If the key restriction is violated, the| 
scan is positioned ‘ON’ the first 
offending row that is returned in 
SEGMENT, RIO, TIO», and DOMAINS. An 
automatic scan hold (and, if requested, 
a OBSI caller hold) is acquired on this 
row. A warning is raised in the return 
code. 


If EOF is reached, the scan is 
positioned ‘EOF' after the last scanned 
rou. SEGMENT, RID, and TID identify 
the rou pointed to by the scan, but 
nothing is returned in DOMAINS. Also, 
an automatic hold is acquired on the 
last rou, and the previous hold is 
released. No user-controlled hold is 
accepted in this condition. A warning 
is raised in the return code. 


For a scan opened on a binary link, 
returned row is located by DBSS using 
SCANID and, optionally, SARGS. NSARGS 
must be 0 if SARGS is not to be used. 
The returned row (if any) is always a 
child because QUALF='H' is not accepted 
if the present rov is a parent. The 
DBSPACE, Table ID, and TID fields of 
the child are returned in SEGMENT, RID, 
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TID, and DOMAINS. The DBSPACE, Table 
IQ, and TID of the parent are returned 
in PSEGMENT, PRIDs and PTID. The link 
ID on vhich the scan is opened is 
returned in LID, and TID is set to 0. 


The definition of returned rou; the 
rules for hold and for end of scanned 
set are similar to those given for the 
case of an index scan that does not use 
a key qualification. If the last rou 
is a parents then TID=0 is returned. 


For a scan opened on a unary link, the 
definition of NEXT differs from the 
binary link case only in that O's are 
alvays returned in PSEGHENT, PRID;, and 
PTID, 


For a scan on a table, the definition 
of NEXT differs fron the unary link 
case only in that O's are returned in 
LID and IID. 


For a scan on a sequential List, the 
definition of NEXT differs fron the 

unary link case only in that O's are 
returned in RID, IID, and LID. 


® The follouing nodules may be called 
for the folloving reasons: 

- If the DSSI call BACKUP occurs: 
a, Unfix DBSI call held buffers and 

release acquired DBSI locks. 
b. Initiate LUM rollback if needed. 
c. Determine if the DBSI <¢all should 
be retried. 

- If DOMAINS reguested, validate 
DOMAINS request values. 

— If scan is on a table, search for 
‘NEXT ROW' in current OBSPACE 
ENTITY page. 

— Retrieve Domain Control Record if 
not already retrieved and: 

a. this is a link scan and requested 
DOMAINS or SARGSS subaitted, or 

b. this is an index scon and SARGS 
or key DOMAINS subaitted or 
reguested DOMAINS, or 

¢. this is a list scan, or 

d. this is a table sean and 
requested DOMAINS or SARGS 
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submitted. 
Also» retrieve Index Control Record 
if index scan and ICR not already 
retrieved. 

- Retrieve for READ an overflow row.¢— 

~ If not already acquired, or if 
need link parent DBSPACE access, 
acquire DBSPACE attributes» lock» 
and control record (SCR). 

= Set row or page lock 'HOLD' on 
requested rov if consistency €—— 
level is less than 3 and DBSI caller 
requested hold. 

~ Acquire a neu scan hold lock if €— 
TID locking needed. 

—- Initialize YTABLE! and obtain DBSI 
lock for DBSI call (copy BASE — 
into YBASE in YTABLE1]}. 

- If an index scan and DOMATNS 
request can be totally satisfied 
by index entry, retrieve the ¢— 
reguested DOMAINS from the index 
entry. 

~ If DOMAINS requested, move requested 
DOMAINS from stored rov to DBSI 
caller. 

- If scan is on a table, search 
foruard in DBSPACE from specified 
TID for a rou that matches a 
table-id and SARGS if submitted. 

~ If scan is on a link, is 'ON' a 
parent, is not clean» and parent 
is in different DBSPACE, unfix 
(after access) parent DBSPACE 
header page. 

~ If scan is on a link» unfix the 
no-longer-needed parent or child 
rou ENTITY burfers. 

~ Release buffers and short locks 
and move YBASE (in YTABLE]) back 
to BASE (at end of DBSI call). 

— Same as immediately above except 
for case where no DBSPACE header 
pages have been accessed. 


ARIYD232 


ARIYD35 


ARIYD41 


ARTYD411 


ARTYD43 


ARTYD45 


ARTYD49 


ARTYDSO 


ARLYD53 


ARIYDOS31 


ARIYDSS 


ARTYD551 


AE) WEED 1] UNE 
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~- If SARGS submitted, validate the 
SARGS parameters. 

~- For index or list scan vith SARGS 
submitted, check whether retrieved 
rou satisfies SARGS. 

- For a scan on a link, retrieve 

a parent or child data row for 

READ and set appropriate ENTITY 

locks. 

Retrieve for READ an ENTITY page. 


ARIYO57 


ARTYO5& 


ARTYD62 


HIE 


ARTYI19 


Unfix an acquired ENTITY page. ARTYI46 


Release an acquired base or 
overflow page lock; or release 
am eld scan hold lock. 


ARIYKOO 


Acquire a page or TID lock. ARIYK41 


If scan on a List and SARGS 
Submitted, check SARGS against 
current rou and return rou length. 

- If scan is on a List, return 
requested DOMAINS of next row to 
OBSI caller. 

- If scan is on an index, obtain the 
next TIO after the TID that 
matches the subritted key DOMAINS 
and the ICOHP parameter (fast 
path). 

~ If scan is on an index, obtain the 
TIO of the rou that matches the 
submitted key DONAINS and the 
ICOMP and QUALF paramxeters, 

~ If scan is on an index, update the 

scan cursor for an index scan 

as a result of neu position from 

GET NEXT call. 


ARLYSOIL 


ARIYSO5 


ARTYXOS 


ARIYX20 


ARIYXK23 


UG) WWE 
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OPEN SCAN on a Table 


* Called from ARIYHMO0 
ARIYDOS (OPEN SCAN) 


ARIYDOS performs the DBSI call to 

open a scan on an index or link of a 
table, or a scan on a table, or a scan 
on a sequential list. OPEN SCAN also 
returns the DOMAINS of the row on 
which the opened scan is positioned as 
specified in the DBSI caller DOMAINS 
structure (unless search arguaents 
result in a BADSARG warning return 
code). 


For open of an index scan: 


A scan is opened, pointing ‘TO’ a 
row in the index ordering, and a 
scan-id is returned in SCANID. The 
index on which the scan is to he 
opened is identified by providing 
DBSPACE, IID, and by setting 
QUALF='I'. The row can be identified 
by providing: 
a. The ID of an active and positioned 
'ON’ scan in SCANID, or 
SCANID=0, RID» and a legal TID, or 
SCANID=0, TID=0, RID, ICOMP, and 
a key-value for IID in KDONAINS 
(key-value not required if 
ICOMP=FIRST). 
RID and TID are aluays returned. 


For open of a binary link scan: 


A scan is created that points ‘TO’ a 
child in a set of linked rous, and a 
scan-id is returned in SCANID. The 
link is identified by providing 
SEGMENT and LID, and by setting 
QUALF='P', ‘Ft, or ‘C'y depending on 
whether the link is opened on a 
parent, first child, or arbitrary 
child. 


A scan can be opened on a parent by 

providing: 

a. The ID of an active and 
positioned ‘ON' scan in SCANID, 
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pointing to the desired parent 
Trou, or 

b. SCANID=0, PSEGHENT, PRID, and e@ 
legal PTIO. 

The parent description is returned 

in PSEGNENT, PRID, and PTIO. 


A scan be be opened on a first child 
by providing: 

a. The ID of an active and 
positioned ‘ON' scan in SCANID, 
pointing to the parent row, or 

b. SCANID=0, PSEGHENT, PRID, and a 
legal PTIO. 

The parent description is returned 
in PSEGMENT, PRID, and PTID. The 
table ID and row ID of the child are 
returned in RID and TID. 


A scan can be opened on an arbitrary 
child by providing: 

a. The ID of an active and 
positioned ‘ON’ scan in SCANIO; 
pointing to the desired child; or 

b. SCANID=0, RID,» and a legal TID. 

The child description is returned in 
RID and TID. The ODBSPACE, table ID, 
and TID of the parent are returned 
in PSEGHENT, PRID,» and PTID. 


For open of a unary link scan: 


The rules are the same as in the 
case of opening a binary link on a 
child, with the only difference 
being that 0's are returned in 
PSEGMENT, PRID, and PRID. 


For open of a scan on a table: 


A scan is created that points 'TO' a 
row in the table, and a sean ID is 
returned in SCANID. One must specify 
DBSPACE and set QUALF='R’. The row 
can be identified by providing: 

a. The ID of an active and 
positioned 'ON’' scan in SCANID, 
ox 

b. SCANID=0, RID» and a legal TID, 
or 

¢. SCANID=0, TID=0, and RID. In 
this case, the scan is opened on 


DBSS Data Manipulation (continued) 


the first rou of the table, in 
TID order. 
The row description is returned in 
RID and TID. 


For open of a scan on a sequential 
list: 


A scan is created that points 'TO' a 
row in the list, and a scan ID is 
returned in SCANIO (in BASE). One 
must specify DBSPACE and set 
QUALF='L*. The rou can be identified 
by providing: 

a. The ID of an active and 
positioned 'ON' list scan in 
SCANID, or 

b. SCANID=0. In this case, the scan 
is opened on the first row of 
the list, in physical order. 

RID = 0 is returned. 


For ali types of opens NSARGS > 0 
eauses the DBSS to check the search 
arguaents against the resulting row. 
The BADSARG varning code is raised if 
the rou does not qualify, and no 
DOMAINS are returned. However, the 
scan is stil] opened. An automatic 
hold on the rou is acquired. That hold 
is autonatically released when the scan 
moves to another row. In addition», a 
user—controlled hold can be acquired 
on a link, index, or table scan by 
setting HOLDIND='H’. 


© The following modules may be called 
for the folloving reasons: 
~ If the DBSI call BACKUP is — 
occurring: 
a. Unfix DBSI call held buffers 
and release acquired DBSI locks. 
b. Initiate LUW ROLLBACK if 
required. 
c. Determine if the DBSI call 
should be retried. 
~ If any DOMAINS requested, validate 
DOMAIN request values. 


>| ARIYDIL 


>) ARTYOIS 
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~ If scan is on an index or list or if 
DOMAINS requested or if SARGS 
submitted, retrieve DOMAIN control 
record if not already retrieved, 

~ If index scan and positioning 
specified via TID or scan-id, 
assemble index key from stored row. 

~ Obtain the table's Master Control 
Record and lock the table for READ. 
If open of a link scan on a parent 
or first child, obtain parent ¢— 
table's Master Control Record and 
lock the table for READ. 

~ If not an index scan, allocate a 
new scan control block 1SCB). 


ARTYD23 


ARIYD26 


ARIYD32 


ARIYD34 


= Acquire DBSPACE attributes, lock, 
and control record ¢SCR). If ¢ 
ofen link or parent or first child, 
and parent DBSPACE does not equal 
child DBSPACE, acquire parent 
DESPACE attributes, lock, and 
control record (SCR). 

~ If open of a link and Link Control 
Record not already retrieved, 
retriave it. If open of an index 
via a scan-id or TID and Index 
Control Record not already 
retrieved, retrieve it. 

- Set row or page lock ‘HOLD’ on 
requested row if consistency 
level is less than 3 and DBSI 
caller requested hold. 

- If 'ON' TID specified via scan-id 
and row need not be retrieved, 
acquire a scan 'HOLD‘ on the TID. 

- Initialize YTABLE1 and obtain 
DBSI lock for DBSI call (BASE is 
copied into YBRASE in YTABLE1). 

~- If open of an index and if DOMAINS 
request can be totally satisfied 
by index key, retrieve from index 
entry the requested DOMAINS. 

~ If open of an index and if ON row 
is identified by submitted keys 
and TCOMP value, validate ICOMP 
value and submitted keys» and 
retrieve TID of requested row via 
the subnitted key values and ICOMP 
parameter. 


} ARIYD35 


ARTYD40 


ARTYD41 


ARIYDG11 


ARIYD43 


ARIYD4S 


ARIYD4S6 


GEE Wo 
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BSS Data Manipulation (continued) 


- If DOMAINS requestec, nove DOMAINS 
from stored rou to DBSI caller. €— 


ARIYD49 


~ If open of a table scans search 
forvard in OBSPACE from specified 
TIO for a row that aatches a ———+-/| ARIYD50 
table-id. 

— Release parent or child DBSPACE 
header buffer prior ts retrieving €— 
child or parent DBSPACE information 
(see ARIYD38 above}. 

- If open link on first child, unfix 
(after use) parent row ENTITY 
buffers. 

- Release buffers and short locks, 
and move YBASE (in YTABLE!) back 
to BASE (at end of DBSI call). 

- Same as inmediately above but for 
case vhere no DSSPACE header 
pages have been acquired. 

— If SARGS submitted, validate 
then. 


ARIYO53 


ARIYDS31 


| ARIYDSS 


ARIYD55} 


ARTYD57 


~ If SARGS subaitted and not a list 
scan, check SARGS against ‘ON' 
rou, 

- If not open list scan on first 
child and if ‘ON' row vas 
identified via a scan-id, obtain 
its IDs fron the SCB. 

- If open link scan on first child 
and if ‘ON' row was identified 
via a scan-id, obtain its IDs fron 
the SCB. 

- For a first child link open, obtuin 
parent data rou and set 
appropriate ENTITY locks. For 
non-list open, obtain 'ON' data and 
set appropriate ENTITY locks. 

- For a list scan, retrieve for READ 
an ENTITY page. ene 


ARTYD58 


ARIYD5S9 


ARIYD60 


ARIYD62 


ARIYII9O 


HAP AIA i 


- For an index scan vith ‘ON’ rou 
specified via TID or scan~id» — 
unfix retrieved index page and 
index directory buffer. 

- If open of a link scan and scan 
table full, release scan hold 


ARIYKOO 
lock. | 


ARTYI46 


i 
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DSSS Data Manipulation (continued) 


If open of an index scan via 
scan-id and scans share sane 
index, obtain scan hold lock on 
index page. 

~ If open of a list scan and SARGS 
submitted, check SARGS against 
current row and return row length. 

~ If open of a list scan, return 
requested DOMAINS of 'ON* rou 
to DBSI caller. 

— If open of an index scan and no 
scan-id or TID subnitted, obtain 
TID of row that matches submitted 
key DOMAINS and ICOMP parameter. 

- If open of an index scan via 
scan-id or TID; obtain TID for & 
index entry matching key values of 
scan-id rou or specified rou. 

- If open of an index scan; create 

the new index SCB or reposition 

nev index SCB to proper ‘ON" row. 


ARIYK41 


ARIYSO1 


ARIYSOS 


>} ARIYX20 


ARIYX21 


ARLYX23 


Licensed Material - Property of IBM Method of Operation 351 


OBSS Data Manipulation (continued) 


RETRIEVE PARENT ROW in a Binary Link 


*% Called from ARIYMOO 
ARIYDO9 (GET PARENT ROW) 


ARIYDOS performs the DBSI call to 
retrieve parent row of a submitted 
child row in a specified binary link. 


The link is identifed by providing 

OBSPACE and LID. The child row is 

identified by providing: 

~ An ID of an active and positioned 
‘ON' scan in SCANID, or 

- SCANIO=0, DBSPACE, RID and a legal 
TIO. 


The child row DBSPACE, table-id, and 
TID are returned in SEGMENT, RIO, 
and TIO. The parent rou description 
is returned in PSEGMENT, PRID, PTID 
and DOMAINS. 


Note that search arguments cannot 
be used (uill be ignored) on a GET 
PARENT call. 


A user-controlled hold on the parent 
row can be acquired hy setting 
HOLDIND = ‘H’. 


The following modules may be called 
(not necessarily in the order shoun): 


- If DBSI-call backup is o¢¢eurring:¢— 
a. Unfix DBSI call held buffers 
and release acquired DBSI locks. 
b. Initiate LUW rollback if 
required, 
¢. Determine if the DBSSI cali 
should be retried. 
~ If any DOMAINS requested, validate 
DOMAIN request values. 


~ If any DOMAINS requested or SARGS 
submitted, retrieve Domain Control € 
Record unless already retrieved. 

~- Chtain the child row or parent 
rou's table Master Control Record 
and lock the table for read. 


332 SQL/Data System Logic, Volume 1 
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> 


> 


> 


| ARIYDLI | 


ARIYDIS 
ARTYD23 


ARTIYD32 


HIE 


! 
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DBSS Data Manipulation (continued) 


~ Acquire child or parent DBSPACE 
attributes, lock and control record 
(SCR) (parent only if different 
OBSPACE). 

-~ If Link Control Record is not 
already acquired, retrieve it. 


ARIYD38 


ARTYD40 


- Set row or page lock ‘hold’ on 
requested parent row if the 
consistency level is less than 3 
and DBSI caller requested hold. 

- Initialize YTABLE! and obtain DSSI 
lock for DBSI call (BASE is 
copied inte YBASE in YTABLEL) 

~ If DOMAINS requested, move requested 
DOMAINS from stored row to 
BBSI caller. 

- Release buffers and short locks 
and move YBASE back to BASE fat — 
end of DBSI call). 

- Sane as immediately above but for 
case vhere no DBSPACE header 
rages have heen acquired 

- If child row vas identified via a 
scan-id, obtain its IDs from SCB. 


9} ARTYDG1 


ARIYD43 


ARLYDS9 


ARTYD5S 


ARTYD551 


ARIYD59 


= For child row (if specified via TID 
or cannot get parent TID from 
specified scan-id) and for parent, 
vetrieve the data rou for READ and 
set appropriate ENTITY locks. 


ARIYD62 
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DBSS Data Manipulation (continued) 


UPDATE ROW DOMAINS fn a Table 


# Called from ARIYMOO 
ARIYDLO (UPDATE ROW} 


ARIYD10 performs the DBSI call to 
update some of the DOMAINS of a row of 
a table. 


The row to be updated can be identified 

by providing: 

- The ID of an active and positioned 
“ON' scan in SCANID, or 

- SCANID=0, DBSPACE, RID and a legal 
TID, or 

- SCANID=0, DBSPACE, RID, TIO=0, IIO>, 
ICOHP and a key value in KDOMAINS 
(key value not required if 
ICOMP = FIRST). 


Non-negative numbers in FREQLTH entries 
are used to identify the DOMAINS that 
are being updated. The lengths for 
these DOMAINS are submitted in FACLTH. 
The correct lengths must be specified 
for the submitted fixed-length DOMAINS. 


DBSPACE, table-id, and TID of the 
updated rou are returned in SEGMENT, 
RID and TID. 


The following modules may be called 
(not necessarily in the order shoun): 


- If DBSI-call backup is occurring: 
a. Unfix DBSI call held buffers e ARTYD11 | 
and release acquired DBSI locks 


b. Initiate LUW rollback if 
required. 
¢. Determine if the DBSI call 
should be retried. 
- If DOMAINS submitted, retrieve 
Domain Control Record if not | ARTYD23 
already retrieved. If indexes} are 
to be updated, retrieve each Index 
Control Record (forward or backup 
processing}. 
~- If index(es)} to be updated, assemble 
index key from stored row 
(forvard or backup processing). 


ARIYD28 
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DBSS Data Manipulation (continued) 


~ If indexfes) to be updated» assenble 
index key from submitted DOHAINS 
and stored row (forvard and 
backup processing). 

- Obtain the rew's table Master 
Control Record and lock the 
table for update. 

~ lf update causes rou length change 
move the row (possibly to a nev 
Page), update nev row vith subsitted 
DOMAINS: remove old row; and log the 
rou update (LUPOATE lcg record) 

~ Acquire DBSPACE attributes, lock» 
and control record (SCR), 


ARIYD30 


ARLYD32 


>} ARIYD33 


ARLTYD38 


- Initialize YTABLEL and obtained 
DBSI leck for DBSI ¢all (BASE is € 
copied into YBASE in YTABLE1)~ 

~ If update row is identified via 
index, submitted keys and ICOMP 
parameter, validate ICOMP and 
subnitted keys and retrieve row's 
TID via the subnitted keys 
and ICOMP value. 

~ Release buffers and short locks 
and move YBASE fin YTABLEL) back 
te SASE (at end of DBSI call). 

~ Same as above but for case where 
no BBSPACE header page buffers 
have been acquired. 

- If update row was identified via 
scan-id, obtain its IDs froa the 
SCB. 

~ Retrieve rou for update and 
acquire any required page or JID 
locks. 

- If row updated in place: 

a. Start the LUPFDATE log record 
(via YSTARTLOG macro), 

b. Mrite LUPDATE leg data to 
the log (VIA YRRITELS macro}. 


ARLYN43 


ARITYD46 


ARIYDSS 


ARIYD551 


ARTYO59 


ARIYO04S 


ARLYLO1 


ARIYLOZ 


c, ‘CLOSE’ the LUFDATE log record 
(via YENDWRIT macro). ARTYLOS 
- If an index DOMAIN is updated: 
a. Delete update rou key entry 
from an index tforward or 
backup processing) 
b. Insert update row key entry into 
an index (foruvard or backup 
processing). 


ARIYXOL 


ARZYALS 


UVR) Ga We 
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DBSS Data Manipulation (continued) 


- If DSSI call backing up and indexes 
were updated, restore any index 
SCBs that were nodified. 

- If any indexes vere updated, drop 
index backup SCBs for any 
modified index SCBs (normal 

completion). 


ARIYX22 


ARIYX28 


HE 
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DBSS Data Manipulation (continued) 


DBSS/DM RECOVERY PROCESSING - GENERAL FLOW 


In this diagram, only the DBSS/DM xecovery processing top modules are shoun. See the folloving detail diagrars for other 


modules being called. 


ARIYLOT 


{Log-driven LUW recovery processing) 


REDO, UNDO; 
OR ROLLBACK 


DISCONNECT ROW 
(DBSY CALL? 


CONNECT ROW 
(OBSY CALL) 


DELETE ROW 
(DBSE CALL} 


INSERT ROW 
(DBSI CALL? 


UPDATE ROW 
(DBSI CALL) 


ARTYD66 ARIYD67 


ARTYD65 


ARIYD68 ARIYD69 


For: 


cy 


CONNECT ROW (CARIYD65), see page 338. 
DELETE ROW (ARIYD66), see page 339. 
DISCONNECT ROW (ARIYD67), see page 340. 
INSERT ROW (ARIYD68), see page 341, 
UPDATE ROW (ARIYD69}, see page 342. 
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OBSS Data Manipulation (continued) 


DBSS/DM RECOVERY PROCESSING ~ DETAIL FLOW 


REDO/UNDO/ROLLBACK CONNECT ROW Operation (Recovery Processing) 


* Called from ARIYLO7 
ARIYD65 (CONNECT ROW) 


ARIYD65 connects row T in a REDO, or 
disconnects row T in UNDO or ROLLBACK 
using logged information. 


At entry to ARIYD65, LOGL is the length 
of the log records and TRANSMODE is 
'R’', 'U', or 'B* (REDO, UNDO, or 
ROLLBACK). Also at entry, log cursor 
points to the beginning of the logged 
data for the CONNECT of row T. 


Modules that 
ARIYD65 are: 


may be called froa 
TT ARYYD71 
»} ARIYD73 
py} ARTYD74% 
py} ARYYD76 


}} ARIYD77 


>| ARIYLO5S 


BIEIUIEIEE 
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CONNECT (REDO? or DISCONNECT (ROLLBACK/UNDO? 
rou T to/from its parent and/or tuin links. 


Expand data row of row T to create space for 
the (added) link prefix (for REDO processing). 


Acquire backup lock if needed and initialize 
YTABLELU for recovery. 


Unfix last entity page and block accessed for 
recovery. 


Retrieve row YT for update (link prefix). 


Read LCONHEAD and LCONPREF sections of LCONNECT 
Leg Record {via YREADLOG macro}. 
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DBSS Data Manipulation (continued) 


REDO/UNDO/ROLLBACK Data Row DELETE Operation (Recovery Processing) 


#*# Called from ARIYLO7 
ARTYD66 (DELETE ROW) 


ARIYD66 re-deletes row T for REDO 
{recovers DELETE operation), and, if it 
vas DELETE with DISCOMNEST, it re- 
disconnects any parent and tuin links. 


Yt inserts row T for UNDO or ROLLBACK 
(recovers DELETE operation) and, if it 
was DELETE with DISCONNECT, connects 
rou ¥ to any parent and tuin links. 


This is done using inforaation logged 
with the DELETE operation (LDELETE 
data). Note that row T may be an over- 
flow rou and that in this case, hoth 
the base pointer row and the overflow 
date row must be deleted or inserted. 


At entry, LOGL has the length of the 
log recoxd and TRANNODE is ‘'R', ‘U', 
or 'B* (REDO, UNDG, or ROLLBACK). Also 
at entry; log cursor points to the 
beginning of the logged data for the 
delete of row T. 


Nodules that may be called fron 
ARTYOS6 are: 
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Unfix OBSPACE header buffers fixed because of index updating. 


Disconnect or connect row T fron/to any parent or twin links. 
Initialize YTABLEIU for recovery and, if needed, acquire: 
backup lock and SCR and MCR and OCR if indexes are to he 
updated. 


Delete or insert all index key entries associated with row T. 


Unfix last entity page and block accessed for recovery. 
Delete row T base row, delete row T overflow row, retrieve 
rou T base page and prepare it for pointer row insert, and 
retrieve row T base or overflow page and prepare it for 
data rou insert. 


Read parts of the LDELETE log record {via the YREADLOG zacro}. 


Method of Operation 


339 


OBSS Data Manipulation (continued) 


REDO/UNDO/ROLLBACK DISCONNECT Row Operation (Recovery Processing) 


* Called from ARIYLO7 
ARIYD67 (DISCONNECT ROW) 


ARIYD67 disconnects row T in REDO or 
reconnects row T in UNDO and ROLLBACK 
using logged information. 


At entry, LOGL has the length of the 
log record and TRANMODE is "B', ‘U', 
or 'R' (ROLLBACK, UNDO, or REDO). Also 
at entry, log cursor points to the 
beginning of the logged data for the 
disconnect of rou T. 


Modules that may be called froa 
ARTIYD67 are: 

ARTYD72 Update link prefixes of row T's right twin, left twin, and 
parent rows (CONNECT or DISCONNECT row T). 


ARIYD74 Acquire backup lock if needed and initialize YTABLE1U for 
recovery. 


»}} ARIYD76 Unfix last entity page and block accessed for recovery. 


ARTYOD77 | Retrieve row T for update (link prefix). 


BIEIU ale 


ARIYLOS Read LDISCONN log record (via YREADLOG macro) 
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DB5S Data Manipulation (continued) 


REDO/UNDO/ROLLBACK ef INSERT Bata Row (Recovery Processina) 


% Called from ARIYLO? 
ARLYOGSE TEINSERT ROW) 


ARIYD&8 re-inserts row T for REDO 
{recovers INSERT operation) and, if it 
vas INSERT with CONSECT, cre-connects 
any parent and twin links. It deletes 
rou T for ROLLBACK and UNDG (recovers 
INSERT operation) and, if it vas 
INSERT with CONNECT, disconnects rou T 
from any parent and tuin links. This 
is done using information logged after 
the INSERT operation (LINSERT data). 


At entry, LOGL has the length of the 
log record and TRANMODE is 'R', 'U', 
or 'B' (REDO, UNDO, or ROLLBACK). Also 
at entry, log cursor points to the 
beginning of the logged data for the 
insert of rou T, 


Module that may be called frorz 


ARTYDOS are: 
ARTYD52 | Unfix DBSPACE header buffers fixed hecuase of index updating. 


-- - ARIYD71 Connect or disconnect row T to/from any parent or tuin links. 
- ARIYD74% Initialize YTABLEIU for recovery and, if needed, acquire: 
backup lock; SCR: MAC, and OCR if indexes are to be updated. 
ARIYO75 Insert or delete alli index key entries associated with row 7. 


€ ARIYD76 Unfix last entity page and block accessed for recovery. 


¢ ARIYD77 | Delete row T or retrieve a page and prepare it for insert of 
rou T. 


cay 


ARIYLO5 | Read parts of the LINSERT log record (via YREADLOG macro). 


BIEIOIENETEI 
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OBSS Data Manipulation (continued) 


REDO/UNDO/ROLLBACK Data Row UPDATE Operation (Recovery Processing) 


* Called from ARIYLO7 
ARTYD69 (UPDATE ROW) 


ARIYD69 updates data row T using 
logged information if REDO, or 
"un-updates” the data row using logged 
information if UNDO or ROLLBACK. It 
handles the cases where the old and 
neu rous are on different pages and 
where the old and/or new rou is an 
overflow rou and where the update has 
changed the length of the row. Any 
indexes affected by the update/ 
un-update are updated to reflect the 
update/un-update. 


At entry, LOGL has the length of the 
log record and TRANMOD is 'B', ‘U"» or 
*R’ (ROLLBACK, UNDO, or REDO). Also 
at entry,» log cursor points to the 
beginning of the logged data. 


Modules that aay be called by 
ARTYD69 are: 
Cr 
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Free storage acquired for a work area. 

Acquire storage for a work area. 

Retrieve an Index Control Record (ICR) row. 

Build a key entry from a data row for an index entry INSERT 
or DELETE. 

Unfix DBSPACE header buffers and associated Directory Block. 
Update the block associated with a page that has had a change 
in free space status. 

Conpact a data page for recovery. 

Initialize YTABLEIU for recovery and, if needed, acquire: 


backup lock and SCR and MCR and DCR if indexes are to he 
updated. 
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OBSS Data Manipulation tcontinued) 


ARIYD76 | Unfix last page and block accessed for recovery. 
Retrieve 1 row for recovery update, or delete e row for 

ARIYD77 | recovery, or retrieve an entity page and prepare it for 
recovery rov insert. 

ARIYLO5 | Read LUPDATE log data (via YREADLOG macro}. 

ARIYLO6 | Reset the SQL/DS log cursor [via YMOVECUR macro}. 

ARTYXO1L Delete and index entry. 


ARLYX18 Insert an index entry. 
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DBSS SORT — GENERAL FLOW 


In this diagram, only the aajor nodules of DBSS Sort are shown. 


ARTYMOO0 


ARTYSOO 


DBSS ENTRY 


For the details, see page 345. 


SORT ENTRY (see Page 345) 


DO INTERNAL SORT (see Page 351) 


ENCODE ENCODE CHECK SORT 


ROW SORTKEY SARGS A 
- PAGE 
SORT WITH FYXED 
VAR LEN LENGTH 
KEY KEY 


ARIYS18 ARTYSI9 
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DECODE & MERGE 
INTERMEDIATE ENCODE ROW STRINGS 
PAGE(S) & KEY OF PAGES 


ARIYS1L7 ARTYS20 


FILL STRINGS 
OF PAGES 


ARTYS10 


WRITE WRITE OUTPUT COPY A 
OBSPACE HOR PAGE STRING 
HDR PAGE INFORMATION TO List 


f 
| ARIYS22 ARIYS23 


ARIYS11 
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DBSS Sort (continued) 


DBSS SORT - DETAIL FLOW 


* 


From 

page 350 ° 
[ A a ° 
\7 


From ARIYMNOO 
ARIYSOO (Sorts a Set of Rows) 


(For Entry Points ARIYSOO1 and ARIYSO002, see page 346) 


ARIYKOS 
>| ARIYK41 


Set SI bit to indicate entry in to DBSS 
Set INDEXCRN to 'N' 
Copy SRTBASE into YTABLEI 


If the requested domains is < 0 or > 255: 
- RETCODE = -135 


If the number of dozains to be sorted is 
< 0 or > number of dorains then the 
requested 

~ RETCODE = ~-131 


If there are duplicates in the sort 
specifications: 
- RETCODE = -141 


If the number of sort order specifications 
is > the number of requested domains: 
- RETCODE = -132 


If DUPELIN is not 'N', ‘K's or °S': 
~- RETCODE = -134 


If SORTLIST is not on a fullword boundary: 
- RETCODE = -138 


If SORTSPEC is not on a fullword boundary: 
- RETCOOE = -130 


If Scan ID is too small or too large: 
- RETCODE = -9 


If sort DBSPACE is not available: 
- Systen Error ARIYSOQ 02 


If sort DBSPACE is not opened for write: 
- RETCODE = -75 


Read sort segment header directory block 


If error on read then: 
- System error ARIYSOO 63 
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EXIT 
a, 


EXIT 


EXIT 
%_/ 


fexrr| 


ee 


EXIT 


ARTYNO2 


ARTYNO2 


page 350 


page 350 


EXIT] page 350 


ae 


page 350 


lexrrl page 350 
Nd 


page 350 


EXIT] page 350 
nF 


page 350 


EXIT 
Vy 


page 350 


Method of Operation 345 


DBSS Sort (continued) 


° If sort segment is not empty: 
- RETCODE = -75 


lexrtl page 350 
YS 
® Unfix sort segment header directory 
block 
If error: — 
| ARIYMO2 


- System error ARIYSO0 04 


ARTYI46 
| ARIYK41 | 


® Lock sort segment 
If error: 
System error ARIYSOO 05 or 


ARIYSOO 06 ARTYMO2 
® Go to 
ARIYSO01: 


Entry for internal call fron 
the sort subcomponent for REDO 


@ If TRANMODE = 'R‘ or ‘H's: 
- Set global lock requirement to 
exclusive 
- Set INDEXCRN to 'N°* 


*® Go to 


ARTYSO02: 


Entry for DBSS internal cal] for 
index creation 


@ Set INDEXCRN to 'Y* 


e If SCB is closed: 
~- RETCODE = -9 


lexrt| page 350 


EXIT] page 350 


e If SCB is empty: 
~ RETCODE = -29 


@ If QUALF is not equal to 
~ RETCOOE = -19 


‘H' or ‘A's 
EXIT] page 350 


@ If sort DBSPACE and SCB are incompatible: 


~- RETCODE = -3 EXIT] page 350 
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DBSS Sort (continued) 


® If opened scan is on @ table, index or 
list then gat the starting TID by going 


to 


® Obtain starting TID in link case 
- Move link SCB information to YTABLEL 

- If SCB is for parent: 
If QUALF is not equal to ‘A': 


- Get parent TID fron SCB 
- Get TID of first child 


b. 


. Get child DBSPACE header 


[5 | page 348 


V7 


RETCODE = -19 


lexxrl page 350 
ae 


If SCB is clean: 

~ Get first child from SCB 
If SCB is not clean: 

~ Get parent DBSPACE header 


- Get parent MCR header 


Get parent MCR row 


Get TID of first child from row 


- Free entity buffers 


Get child MCR row ARIYD32 


Get pointer to child domain row in 
YTABLE!L (DOMPTR?) 
If SCB is for child: 
~ If QUALF equals ‘H' or ‘B's 
1. Get child TID fron SCB 
2. If SCB is clean, get parent 
TID from SCB 
3. If SCB is not clean, get 
child row and pick up parent 
TIG from row header 
- If QUALF is not equal to ‘H' or 
"B's 
1. Get TID of next child fron 
SCB or row 
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DBSS Sort (continued) 


[s |— 


Get TID from index, 


If SCB is clean, get next 
child and parent TIDs 

from SCB 

If SCB is not clean, get 
child and get next child and 
parent TIDs from rou header 


table or list 


\7 
@ Move DBSPACE and table ID's from SCB to 
YTABLE 1 
® Get DBSPACE header 
© Get table MCR 
© Get pointer to domain row 
© Move domain pointer to YTABLE] (DOMPTR) 
® If SCBTYPE is index then: 
- Get starting TID from index 
a. Get ICR row 
b. Assemble into YTABLE!] field IKEY the 
stopping key if supplied by caller 
¢. Get TID of row from index 
If EOF: 
RETCODE = -139 
d. If all requested sort domains are in 
index key: 
Do sort, just using index key 
If RETCODE is < 9 
If RETCODE = +100 then go te 
Go to 
© Else: 
- If SCBTYPE is table, get TID from SCB 
® Validate SORTLIST parameters 
- If invalid, set RETCOOE — 
® Validate SARGS 
- If invalid, set RETCODE 
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ARTYD62 


ARIYD38 


ARIYD26 


ARIYD32 


ARITYD26 
ARTYD27 


lexrr| 
/ 


bee 


ARTYS241 For entry point ARIYS24l» see page 352. 


ARIYX20 


page 350 


EXIT| page 350 
ae 
| D page 350 
Nf 
—a | OC page 350 
V7 


slexrr| page 350 


» er 
ARTYD5S7 
EXIT} page 350 
é 
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DBSS Sort (continued) 
® If SCBTYPE is list: 
~ If SCBSTATE = EOF: 
RETCODE = -29 
~ Do internal sort on list 
If RETCODE < 0 
If RETCODE = +100; go to 
- Go to 
© If SCBHTYPE is table: 
> Do internal sort on table 
If RETCODE is < 0 
If RETCODE = +100; go te 
= Go to 
® SCBTYPE is index or link: 
~ Oo internal sort on index or link 
If RETCODE is < 0 


If RETCODE = #100, go to 


EXIT] page 350 


V7 
ARIYS243 | For entry point ARIYS243, see page 353. 


EXIT] page 350 


er 
Dd page 350 


\ 2 


Te | page 350 


4 


ARIYS242 For entry point ARLYS242, see page 352. 


lexzr] 


N74 
| D page 350 


Sw, 


| c } page 350 
a 


ARTYS24 | See page 351. 


EXIT| page 350 


NF 
| o page 350 
ace 


DBSS Sort (continued) 


fc ]— > ® Start logging operation 
om ® Write SARGS Log Record 
® Write Domains Log Record 

e@ Write SORTLIST Log Record 
® Write SORTSPEC Log Record 

@ Write SCB Log Record | | 
® End Logging Operation 
lexrt —— EXIT: 


V7 
© If INDEXCRN = 'N' then: 


- Release buffers and short locks ERT >| ARIYD55 


- If TRANMODE = 'F* then, reset SI BIT 
@ Else: 


- Release entity pages )} ARTYDS2 


- Return <<< > RETURN 
| D L-— CBACKUP: 
\7 
@ If INDEXCRN = ‘Y° then: 
- Release entity pages —_——— }} ARIVDS2 


- Return RETURN 


® Else: 
- Release buffers, and new locks €———— »} ARXYDII 


® If SI call should be retried 
(RETCODE = -1) then go to 


* Else RETURN 
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| Aa Ue | 
—$ [aa] 


ARTYKO9 
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OBSS Sort (continued) 


® Entry point ARIYS24 sorts rou vith an index or link SCB ® For entry point ARIY5243, see page 353 (ARIYS243 sorts 
opened. rous with a list SCB opened.). 

@ For entry point ARIYS241; see page 352 (ARIYS241 sorts 
rows vith an index SCB opened and all requested domains * Each entry point picks up rows from its respective type of 
are in index key. Optimized entry for no entity pages object and places them in internal pages to be sorted. 
being touched.). They then branch to a coamon sort process INTSORT. 


© For entry point ARLYS242, see page 352 (ARIYS242 sorts 
rous vith a table SCB opened.). 


*% From ARTYSOO 
ARIYS24 (Index or Link SCB) 


® Ynitialize internal sort tables: 


- SRTMAP 

- AREA 
From ® Loop over all rows of the table 
page 352 associated with index or link 


Va kes ° If entity locking needed then: 
\_7 


- Acquire page; and TIO lock required ARIYK41 


~ Release previous page locks ARIYKS1 


* Set up row pointer and TID 


* Pick up data from retrieved row or 
overflow row 


ARTYIG6 
* Check if search arguments are satisfied ARTYD58 
ARITYD26 
- If search argusents are not satisfied 
BS Sa sa ahi ER pel bE ARIYMO2 
e If required - set user hold ARIYD41 


© Encode sort domains in row to 
contiguous sort key ARIYS12 


© Encode row to: 
- Sort key folloved by SORTLIST domains 
and put results into internal sort 
page ARTYS14¢ 


* If internal page full then go to | 6 page 354 
NU? 


* If SCBYYPE = link then 


- Get next TID from link information 
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OBSS Sort (continued) 


~ If EOF then», go to (INTSORT) G | page 354 
- Else go to A page 351 


® Else (SCBTYPE = index) 


- Get next TID from index ARIYX20 


- If EOF then» go to (INTSORT) & | page 354 
V7 
- Else go to | A | page 35] 
\ 
ARIYS241: 


Optiaized index case 

® Initialize internal sort tables 
- SRTMAP 
~ AREA 

© Loop over all keys in the index 


® Acquire new page or TID locks ARTYK41 


® Release previous locks ARTYKCO 


® Set user hold if necessary ARTYD41 
® Decode and reencode the sort key ARIYS17 
page 354 


T— 4] Move sort key and remaining fields to 
internal page ARIYS141 | 


® If internal page full, go to 


® Get next key from index 
© If end of file then» go to (INTSORT) 


Else go to 


ARTYS242: 
Table SCB 

® Initialize internal sort tables 

- SRTMAP 

~- AREA 


® Loop over all rows in the table 
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OBSS Sort (continued) 


® Get the next TID in the table 
® If end of DBSPACE then» go to (INTSORT) 
* Set user hold if necessary 


® Encode sort domains in row to contiguous 
sort key 


® Encode rou intos 
~ Sort key followed by SORTLIST dorains 
and put results into internal page 


® If end of internal page» go to (INTSORT) 


® Unfix any overflow page and directory 
block 


® Release lock on overflow page 


Go to 


ARIYS243: 
List SCB 


® Initialize internal sort tables 


~ SRTMAP 
- AREA 
© Get list page LPAGE into buffer 
Frox 
page 35% |® Loop over all list pages 


| E lo ° If end of current page then 
V7 
- Unfix current page 


- If current page = last page then, go 
to {INTSORT) 


~ Update LPAGE by ¢2 
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Te | page 354 


x 


ARTYS12 
ARIYS14 


ARTYKS1 


ARIYI19 
ARIYVI46 


| 6 page 354 
NZ 


ARTYD41 


le | page 354 


7 


ARTYKOO 


Method of Operation 353 


DBSS Sort (continued) 


Fror 
page 


~ If current page is end of directory then 
Unfix directory block 


- Get the next page (LPAGE) 


355 |¢@ 


- Encode row to: 
Sort key follouved by 
and put results into 


® Go to 


ei INTSORT 


V7 


354 


© If end of input then 


- Unfix 
block 


- Unfix overflow page and directory 
block, if any 
~ Release lock on last accessed page 
and overflow page 


® If more than one row then 
- If fixed length key, sort page with 
fixed key €————_____-_—-__——_ 
~ Else variable key, sort page with 
variable key €——————--———_——_——"———"——_ 


® Else 
- If at 


If only one page then 


1. 


SQlL/Data Systen 


Do loop over all rows in list page 

fea p< 

\ 7 

~ Encode sort domains in 
contiguous sort key 


Get length of list row 


If internal page full, go to (INTSORT) — 


ARIYI46 
| ARTYII9 


ARTYSOL 
ARTYS12 


ARTYS14 
| 6 page 354 
N7 
| E page 353 


\7 


SORTLIST domains 
internal page 


last accessed page and directory 
AA 


ARIYIS6 
ARIYKOO 


ARIYS19 


Ga 


ARTYI46 


— 


| ARTYS18 | 


least one row then 

e——— 
Get output page from passed 
DBSPACE 

Write sorted rous to callers 
output page ———————_——_ 
Write header data to callers 
output page co -—~ 
Go to CEXIT} —— 


ARTYILS 
ARIYSO9 


=i5| I page 355 
\_7 


ARTYSi1 
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OBSS Sort (continued) 
If first page and not last page then 
tl. Acquire a temporary internal 

DBSPACE 

2. Get maximum page number of 
internal DBSPACE 

3. Get storage for sort key merge 
process (PEERSTOR) 


Fill intermediate page in internal 
DBSPACE with sorted rous 


If this is last page, go to 
(ENDSORT) 


Update page pointers to next page 
If table SCH, go to 

If list SCB, go to 

I¢ index SCB, go to 

If optimized index, go to 


- Else enpty sort, go to (EXIT) 


i) ENDSORT: 


© Merge internal pages and write the nerged 
rous to callers DBSPACE 


° If error, set error RETCOUE 


l; j—, EXIT: 


® Unfix intermediate pages and blocks 
pointed to by PEERSTOR 


® Release acquired temporary OBSPACE 


® Free PEERSTOR storage and control table 
storage 


® Return to caller 
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ARIYIOOL 
ARIYWSG 


ARTYS10 


u page 355 
x7 
| 0 page 353 


>| ARIYS20 


ARTYSO0 


ARTYI421 


ARTYIO03 


Method of Operation 355 


DBSS INDEX 
DBSS INDEX - GENERAL FLOW (MAJOR INDEX MODULES) 


In this diagran, only the DBSS/Index rnajor modules are shoun. See the following detail diagrams for other rodules heing calle 
Paths tand the page numbers on which they may be found) are shown at the bottom of this diagrar. 


Data Control Data Manipulation SORT 


| ARTYX04 | | ARTYX02 | | ARIYXO1 | | ARIYX21 | | ARIYX18 | | ARIYX20 | 


CREATE * pRop 2 DELETE ROW * SEARCH * INSERT 5 FIND NEXT ROW ® 


Fill an Index during Creation (see page 357) 

Drop an Index (see page 362} 

Delete a Key from an Index (see page 365) 

Search an Index for a Key (see page 368) 

Insert a Key into an Index (see page 373) 

Find the Next Sequential Key in an Index (see page 379) 


OU & WN ow 
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DBSS INDEX - DETAIL FLOW 


Fill an Index During Creation 


Data Control Component 


ARTYX04 


ARTYSO02 


[aexv0531 | ARTYD34 [anzvz001] [anrmio2| 
[arzyoe 


[agzyz003| 
[aervaia | 


[aexrxoe | [aervtae 
[aervzi9 


[az "p20 [arzysia] [anzvzi9] [aexrza6] [aarrcao| 


{ARTYX06 ARIYKO9 ARIYX10 =e 


[arzrKces| [arxyria2| | | [aczvase | 
[anrvxe7 | [aezyxos | [aera | ARIYII9 [aervras | 


[arrvzaei] [awxy03e | [aerroee [aeryion | [aervioz | [aerv.os | [arrvose | [aervos7 | [arrvszae| [arrvioi | 
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(Fron Data Control) 
ARIYX04 


Acquire space: 
ARIYIOO1L| Acquire a terporary DBSPACE to hold results 


Crashes the system; handles error aessages 


ARIYMO02 


May call To: 
ARICABE - Handle SQL/DS ABEND. 
ARICTRM - Terminate SQL/DS. 


Sort the rows: Get 1K storage 


ARICWSG May Call: To: 
ARISYSDI — Get more space from the system. 


ARICWSF ~ Format the storage pool, 


Crash systen 


ARIYMO2 May Call: Yo: 
ARICABE - Handle SQL/DS ABEND. 


ARICTRM ~ Terminate SQL/DS. 


Build the 
Index: 


Get the first leaf page into the buffer 


ARLYX07 May Call: To: 


> ARIYEI4 — Write a trace output. 
ARIYILG = Fix a block. 
> ARIYI19 — Fix a page in the buffer. 
ARIYI46 — Unfix a block/page. 
Fill in header of new page 
ARIYX08 May Cali: To: 
- ARIYEL4 — Write the trace inforration. 
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Scan temporary 

DBSPACE (sorted 
result}: insert 
pairs into index 


Get page into real storage 

| ARIYI19 May Call: To: 
ARIYK18 - Suspend the process. 

ARIYII71 - Request a free buffer. 
ARIYMO2 - Display error nessages; terminate SGQL/DS, 
ARIYIO7 - Write out the changed page. 
ARTYI69 Read a log page. 
ARIYI29 Read » logical page. 


Unfix the page 


ARLYI46 May Call: To: 


ARLYHO2 - Abend SQ@L/DS. 


Loop through 
DBSPACE blocks: 


Get requested block in real storage 


ARTYIIG May Call: To: 

ARIYKi8 - Suspend the process, 

ARIYI17 ~ Request a free buffer. 

ARLYMO2 - Crash the systems display error messages. 


ARIYIO6 - Access a block. 


Loop over all 
pages in block 
BN 


Get page pointer 


ARIYII9 May Cali: Te: 

ARIYK18 - Suspend the process. 

ARIVII71 - Request a free buffer. 

ARIYMO2 - Display error messages} terminate SQL/DS. 
ARIYIO7 - Write out the changed page. 

ARIYIG9 ~ Read a log page. 

ARIYI29 =~ Read a logical page. 


Decode last domain of key 
— >| ARTYX0S 


Unfix block 


Loop over all 
rovs in page 


Insert key and 
TID into index. 
Unfix page, then 
unfix block 


ARTYT46 May Call: To: 


ARIYMO2 - Abend SQL/DS. 


Clean up Clean up non-leaf pages 
higher level Ms 
fages | ARTIYX1O May Call: To: 
ARIYE14 - Write trace information. 
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Methad of Operation 
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Unf ix index 
pages 


Unfix pages; unfix blocks 


ARLYI46 May Call: To: 


ARIYMO2 - Abend SQL/DS. 


anry1003| Release an internal DBSPACE 
(called by the sort routine} 
RETURN 


EMPREL: For an 


empty table Unfix pages unfix block 


ARLYI46 May Call: To: 


ARIYMO2 - Abend SQL/DS. 


RETURN 


Fix up last entries in non-leaf pages 
ARTYI1LO May Call: Tos 
ARIYKi9 


- Post (vakeup) the designated process. 
ARIYK18 - Suspend the process for checkpoint. 
> ARIYI362 - Empty the contents of the OBSPACE during the delete process. 
ARIYI262 ~ Open temporary [DBSPACEs. 


EXiT: When index 
only partly 
created, 


Release all created index pages 


ARIYX02 May Cali: To: 

> ARIYIG6 ~ Unfix the page and the block in the buffer. 
y> ARIYNO2 - Crash the system! handle error messages. 
ARIYIL4 - Get a block into real sterage. 


ARIYIL9 - Get a page into real storage. 


Crash systea 
If necessary» 
ARIYMO2 May Call: To: 

ARICABE - Handle SQL/DS ABEND. 
ARICTRM - Terrinate SQUL/DS. 


Unfix pages; unfix blocks 


ARIYI46 May Call: To: 


ARIYMO2 ~ Abend SQL/DS. 
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Unfixes entity page buffers and theix directory buffers 


— >} ARTYO531 May Call: To: 
ARIYMO2 - Abend SQL/DS; display error nessages. 


—»| ARIYIOO3| Releases an internal DBSPACE 


(called by the sort routine) 


Licensed Material - Property of IBM Method of Operation 31 


Drop an Index 


Data Manipulation Component 


Data Control Component Index Component 


ARTYX02 


+ 
[arryr46] [aarrtoe] ARIVIIG 
anrv707| [aervai7 [aexy207] [aeryni7i [arzvr29| [anrv49] 
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( 


Fron Data Manipulation, Data Control, or Index) 


ARIYXO02 


Set PAGEID to root page. 

If page is a leaf, call 
subroutine DROPCURR to drop the 
current page, then > EXIT 
Examine page at top of stack: 
(A) Pointer on stack reached EOF 
on page; or (6B) has valid 
pointer and is parent or leaves; 
or (C} has valid pointer and is 
neither a leaf nor a parent of 
leaves. 


For (A): 
Call DROPCURR to drop the top 
of the stack. 


For (B): 

Scan all the page IDs in the 
current page and drop then» 
then call DROPCURR to drop 
the top of the stack. 


For (Che 

Descend in the tree. Call 
GETSON to get into PAGEID the 
descendent of the current page. 
Advance the cursor and get new 
son onto stack. 


DROFCURR: - Unfix the page 


ARLYIG6 May Call: Ter 
ARIYHO2 ~ Abend SQL/DS. 


Crash systen 
If return code * 0, 
ARTYNO2 May Call: Tor 

ARICABE - Handle S@L/DS ABEND. 


ARICTRH - Terminate SQL/0S. 


Unfix the block corresponding to the page 


ARIYI46 


May Call: To: 
ARIYHO2 - Abend SQL/DS. 
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Crash systea 
If return code ~ 0, 
»| ARIYMO2 - May Call: 
ARICABE - 


ARICTRM =- 


Compute the block number. Get requested block 
| ARIYIIG - May Call: 

ARIYKI6 = 

ARIYIL7 - 

ARIYMO2 - 

> ARIYIOG - 


Crash systen 


If return code # 0, 
ARIYNO2 May Call: 
ARICABE - 


ARICTRM - 
Get requested block 
ARIYING - May Cali: 
ARIYKI8 - 
ARTYII7 - 


ARIYMOe ~ 
ARIYIO6 - 


Crash systen 
If return code = 6, 
ARIYHO2 


May Call: 
ARICABE - 
ARICTRM - 
DROPSONS: 

Get requested block 
Leop through all 
entries on the page: ARLYI1G May Call: 
ARIYKI8 - 
ARITYIL7 - 
ARIYMO2 ~ 


ARIYIOG - 


Crash systen 
If return code # 0; 
ARIYMO2 - May Cail: 
ARICABE - 
ARICTRM - 


Unfix the block 
Mark block entry as free. 
ARIYI46 : May Call: 


ARIYMO2 - 
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To: 
Handle S@QL/DS ABEND. 
Terrinate SQL/DS. 


in real storage 


To: 

Suspend the process. 
Request a free buffer, 
Crash the system; display 
Access a block. 


To: 
Handle SQL/DS ABEND. 
Terminate SQL/DS. 


in real storage 


To: 

Suspend the process. 
Request a free buffer. 
Crash the system; display 
Access a block. 


To: 
Handle SQL/DS ABEND. 
Terminate SGL/DS. 


in real storage 


To: 

Suspend the process. 
Request a free buffer. 
Crash the system; display 
Access a block. 


To: 
Handle SQL/DS ABEND. 
Terminate SQL/DS. 


Tor 
Abend SQL/DS. 


error messages. 


error messages. 


error aessages. 
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Delete a Key from an Index 


Data Manipulation Component 


ARIYXOL | 


x30] [anxvras| 
[arrver] 


[arrvno2| [anrvxi7| 


[asxvoaii| [aera] [aaryri9] [aezya4s] 


[arxyz4s] [arzvxo1] [aerrxoo] [arrrxa9] 


[aarrea| [artyzi9] [arxyxi7| [anzrres] 
[aerrxe4] [arrrxes| [aerrxze| [arrvxe7| 


[arzvKoo] [arrrKi2| [aexyKi9] [arrvaas] [aerrres] 


Licensed Material - Property of IBM Hethod of Operation 365 


(From Data Manipulation) 
ARTYXO1 


ARTYXO1 deletes a key 
from an index. 


ARIYX2! finds the key 
in the index to delete. 
If the keys do not 
match, check the TID 
list for multiple TID. 
If no TIO matches or is 
greater than the 
subzitted key, check 
the next key. 

ARTYI48 unfixes the 
block or page to enable 
you to check the TID 
list again. 


ARIYMO2 displays 
messages whenever 
errors occur. 


Once the TID location 
is found, ve need to 
get the successor key 
value. ARIYX17 encodes 
the subaitted key into 
the gateid. 


Then ARIYK41 locks 
this gate. 


ARIYX30 finds the 
successor key. 


Search an index for a key 


ARIYX21 May Call: Yo: 

ARIYX17 — Encode the key inte the gate. 

ARIYK41i - Lock the gate. 

ARIYMO2 — ABEND SQL/DS. 

ARIYI46 — Unfix the block/page. 

ARIYII9 — Get a page into the buffer. 

ARTYX25 — Search a nonleaf page that contains fixed length keys. 
ARTYX24 — Search a leaf page that contains fixed length keys. 
ARIYX27 - Search a nonleaf page that contains variable length keys. 
ARIYX26 - Search a leaf page that contains variable length keys. 


SQL/DS System Error Routine 

ARIYMO2 May Call: To: 

— ARICABE ~ Handle SQL/DS ABEN®O. 
ARICTRM - Terminate S@QL/DS. 


Maps the key into a gate name and writes it into 
YTABLEIL so that the key value locking can be used. 


ARTYXI7 


Lock the Gate 


ARIYK41 Tor 

Release access to the designated gate. 
ARIYKOS - Wait for access to X-latch. 

> ARIYKOS - Release access to X-latch. 
ARIYKi2 - Test for deadlock. 

ARIYK18 - Wait to be posted. 

SQL/DS Lock Manager Wait Routine 
Post the designated process. 
SQL/DS Lock Manager Post Routine 
ARIYK22 - Free the locks, 

ARIYT23 - Set the rollback/commit flags. 


ARIYKI9 ~ 


Finds the next larger key value 


ARIYX30 May Call: Jo: 


ARIYK41 = Lock a page. 


366 


ARIYMO2 — ABEND SQL/DS. 
ARIYI19 — Get a page inte the buffer. 
ARTYI46 — Unfix the block/page. 
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Again ARIYX17 encodes 
the successor key 
into the gateid and 
ARIYK41 locks the gate. 


ARIYIG6 then unfixes 
the block and pages. 


ARIYI46 


If there are any scans 
open by this trans- 
action, ARIYXO3 checks 
if a scan points to 
the pair about to be 
deleted, and adjusts it 
to be ‘before’ the 
successor of the 
current pair. 


ARIYXO3 


Then compress the 
space. 
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May Call: 


a 
ARIYMD2 


May Call: 
ARITYDG11 = 


ARTYE14 
ARIYIL9 
ARIY146 
ARIYK41 
ARIYX00 
ARIYX19 
ARTYMO2 


Maps the key into a gate name and writes it into 
YTABLE] so that the key value locking can be used. 


Unfixes the block/page. 


Tor 


— ABEND SQL/DS. 


Updates the image affected by the deletion of the key 


Te: 

Lock a TID. 

Mrite a trace output. 

Get a page into the buffer. 
Unfix a page/block. 

Lock @ page. 

Allocate a new SCB. 

Move a chained SCB. 

ABEND SQL/Ds. 


Method of Operation 
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Search an Index for a Key 


Data Manipulation Conponent | | Index Component | 
ARIYX2) 
Sas ¥ + ae | | | ——F | 
anzyKs1| jarring] [artyxi7| [aeryr46| [anryxea| ARTYX25 [anryxe6| [antvxe7| 


[arxyi07 [arrv1171| 
[agrvKie 


AR1YKo9| 
[arzvKis| ARIYK19| anryT23] [aezyre9 [arryr49] 
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(From Data Manipulation or Index) 
ARIYX2i 


ARTYX21 searches an 
index for a key and 

returns the first or 
related key/TID pair. 


Search a single index 
page for a key. 


° If the physical 
locking of pages is 
necessary: 


If SAVECODE is 'D' or 
‘"M' ox if SAVECODE is 
“Ss” oF N's 


Lock the page 


ARIYKSL May Call: Tos 
ARIYKOO = Release access to the designated gate. 
ARTYKOG ~ Wait for access to X-latch. 
ARIYKOS ~- Release access to X-latch. 
ARIYK12 - Test for deadlock. 
ARIYK18 - Wait to he posted. 

SQL/DS Lock Manager Wait Routine 
ARYYK19 - Post the designated process. 

SQL/DS Lock Manager Post Routine 
ARIYK22 ~ Free the locks. 


ARIYT23 - Set the rollback/commit flags. 


= SQL/DS System Error Routine 


ARTYMO2 May Call: To: 
> ARICABE - Handle SQL/DS ABEND. 
ARICTRM - Terminate SQL/DS. 


ARIYMNO2 displays 
messages if any 
errors occur. 


Gets page into storage with either "M' or ‘'R' 


T€ SAVECODE is 'D' or 
'M', use ‘W!' (urite 
access). If SAVECODE 
is 'S' or 'N', use ‘R? 
read access}. 


ARLYILS May Call: To: 

> ARIYK18 -~- Suspend the process. 

> ARTYII71 ~ Request a free buffer. 

ARIYHO2 - Display error messages; terrzinate SQL/DS. 
> ARTYIO7 - Write out the changed page. 

ARTYI4¢9 - Read a log page. 

ARTYI29 - Read a logical page. 
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370 


If SAVECOOE is 'D‘ or 
'M’ or the root is a 
leaf, 


Unfix the page. 


® If the physical 
locking of pages is 
not necessary: 


If SAVECOOE is ‘D° or 
‘'M* or if SAVECODE is 
"S' or 'N', 


If SAVECODE is 'D’ or 
‘mM’, use 'W’ (write 
access). If SAVECODE 
is ‘S' or 'N’, use ‘R' 
read access). 


ARIYMO2 displays 
mesSages if any 
errors occur. 
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Convert the lock 


ARIYK41 Hay Call: To: 
ARIYKOO0 ~ Release access to the designated gate. 
ARITYKOG - Wait for access to X-latch. 
ARTYKOS = Release access to X-latch. 
ARIYKI2 - Test for deadlock. 
ARIYK18 - Wait to be posted. 
SQL/DS Lock Manager Wait Routine 
ARIYK19 - Post the designated process. 
SQL/DS Lock Manager Post Routine 
ARIYK22 = Free the locks. 
ARIYT23 - Set the rollback/comait flags. 


SQL/DS Systen Error Routine 


ARTYMO2 


May Call: To: 
ARICABE ~ Handle SGL/DS ABEND. 
ARICTRM ~- Terminate SQL/DS. 


Gets page into storage with 'R’' (read access) 


ARIYI19 


May Cali: To: 

ARIYK18 - Suspend the process. 

ARYYII71 - Request a free buffer. 

ARIYMO2 - Display error messages; terninate SQL/DS. 
ARIYIO7 - Write out the changed page. 

ARIYI49 - Read a log page. 

ARIYI29 - Read a logical page. 


Gets page into storage with either ‘W' or 'R° 


ARIYIL9 


May Call: Tos 

ARIYK1& -~ Suspend the process. 

ARIYII171 - Request a free buffer. 

ARIYMO2 - Display error messages; terminate SQL/DS. 
ARTYIO7 - Write out the changed page. 

ARTYI49 = Read a log page. 

ARXYI29 - Read a logical page. 


— SQL/DS System Error Routine 


ARIYMO2 May Call: To: 
ARICABE - Handle SQL/DS ABEND. 


ARICTRM - Terminate SQL/DS. 
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If SAVECODE is 'D’ or 
‘M', 


Having locked and 
obtained the page, now 
search it, 


There are four types 
of pages in an index. 
Call appropriate 
procedure to search a 
a page of a certain 
type. 


If SAVECODE is 'D* or 
‘"M’ or the root is a 
leaf» 


Unfix the page. 


If any errors occur in 
the search, unfix the 
page or block. 


Depending whether the 
locking is necessary 
and the type of 
locking required, 


ARIYX25 A nonleaf page that contains fixed length keys. 


ARIYX29 A leaf page that contains fixed length keys. 


ARIYX27 A nonleaf page that contains variable length keys. 


ARTYX26 A leaf page that contains variable length keys. 


ULUIU 


Gets page into storage with 'W’ (write access) 


ARIYII9 May Call: To: 

ARIYK1& - Suspend the process. 

ARIYI171 = Request a free buffer. 

ARTYMO2 - Display error messages; terminate SQL/DS. 
ARIYIO7 ~ Write out the changed paga. 

ARTYI49 - Read a log page. 

ARIYI29 + Read a logical page. 


SQL/DS System Error Routine 


ARIYMO2 May Call: To: 


ARICABE - Handle SQL/DS ABEND. 
ARICTRM - Terminate 5QL/DS. 


Encode the key into the gate 
| ARIYX17 Maps the key into a gate name and writes it into 
YTABLEL so that the key value locking can be used, 
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Lock the page 


ARIYK41 May Call: To: 
ARIYKOO = Release access to the designated gate. 
ARIYKO4 - Wait for access to X-latch. 
ARIYKOS - Release access to X-latch. 
ARIYK12 = Test for deadlock. 
ARIYK18& - Wait to be posted. 
SQL/DS Lock Manager Wait Routine 
ARIYKI9 - Post the designated process. 
SQL/0S Lock Manager Post Routine 
ARIYK22 - Free the locks. 
ARIYT23 - Set the roliback/comait flags. 


SQL/0S Systea Error Routine 


ARIYMO2 May Call: To: 
ARICABE - Handle SQL/DS ABEND. 


ARICTRM - Terninate SQL/DS. 
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nse Key into an Inde 


Oata Manipulation Component 


ARTYX18 


[arxvio2| [arrvaae] ARIYX17 


ARIYX14 


[arryzi9] [anrriea] 
[awzyx00] [aarrxa] 


[arrrzi9] [anzraas] [aervKa | 
[aexvea] [arzvre9] [aervxa7] [azrvzae| 


[aerrxes] [arxyxes] [aervxze] [arxrxe7] [aerrzsa| [aexvzis] [aexvxi5] 


[arxvKcoo] [arrncae| [arxvexe] [arzreas] [aexyres] 
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(From Data Manipulation) 
ARIYXi8 


ARKYX36 inserts a key 
inte an index. 


If ARIYX21 has not 
been called yet, (if 
SAVECODE # 'M*), 
then call ARIYX21. 


ARIYX21 


May Call: 
ARIYX17 = 
ARIYK41 — 
ARTYHO2 - 
ARIYIG6 
ARIYIL9 — 
ARTYX25 — 
ARIYX24 - 
ARIYX27 ~- 
ARIYX26 ~ 


If the key is found and 
the key index is unique: 


key value locking: 
Lock the submitted 
key in shared node. 


Lock the key 


ARIYXG1 May Call: 


Abend SQL/DS 


ARIYMO2 May Call: 


+ ARICTRH - 
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ARIYKOO = 
ARIYKOG@ = 
ARIYKO5 - 
ARIYK12 <= 
ARIYKI8 = 


ARIYKI9 = 


ARIYKZ2 - 
ARIYT23 - 


Search an index for a key 


Tor 

Encode the key into the gate. 

Lock the gate. 

ABEND SQL/DS.. 

Unfix the block/page. 

Get a page into the buffer. 

Search a nonleaf page that contains fixed length keys. 
Search a leaf page that contains fixed length keys. 
Search a nonleaf page that contains variable length keys. 
Search a leaf page that contains variable length keys. 


into a gate nane@ and writes it into 


Encode the key into the gateid 
ARTYX17 Maps the key 
YTABLE] so that the key value locking can be used. 


To: 
Release access to the designated gate. 
Wait for access to X-latch. 

Release access to X-latch. 

Test for deadlock. 
Wait to be posted. 
SQL/DS Lock Manager 
Post the designated 
SQL/DS Lock Manager 
Free the locks. 

Set rollback/connit 


Wait Routine 
process. 
Post Routine 


flags. 


To: 


ARICABE - Handle SQL/DS ABEND. 


Terminate SQL/DS. 
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IT6M 


or leaf page locking: 


ARTYX41 


May Call: 
ARTYKOO 


ARIYKOS 
ARTYK12 
ARTYKI9 


ARIYK22 
ARLYT23 


Abend SQL/DS 


May Call: 
ARICABE - 
ARICTRH - 


ARIYNO2 


If backup is indicated, 


ARTYI46 May Call: 
ARIYMOZ - 

Abend SQL/DS 
ARTYHO2 May Call: 
ARICABE - 


ARICTRH - 


If key is found in non— 
unique key index, 

ARIYX30 May Call: 
ARIYK41 = 
ARIYMO2 - 
ARIYILS — 
ARIYI46 — 


- Unfix page and block 
ARIYMO2 = 

- Abend SQL/DS 
May Call: 


ARICABE ~ 
ARICTRM - 


Determine if TID is 
present, If non—- 
matching and new page 
is pinned, 


ARTYMOZ 
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ARIYKOG — 


ARIYKI8 — 


Find next key with code = 


Convert the key from short lock to long lock 


To: 

Release access to the designated gate. 
Wait for access to X-latch. 
Release access to X-latch, 

Test for deadlock. 

Wait to be posted. 

SQLS Lock Manager Wait Routine 
Post the designated process. 
SQL/DS Lock Manager Post Routine 
Free the locks. 

Set rollback/connit flags. 


To: 
Handle SQL/DS ABEND. 
Terminate SQL/DS. 


Unfix the page and block in buffer 


Tor 
ABEND SQL/DS. 


To: 
Handle SQL/DS ABEND. 
Terminate SQL/DS. 


delete 


To: 

Lock a page. 

ABEND SQGL/DS. 

Get a page into the buffer. 
Unfix the block/page. 


in buffer 


Tor 
ABEND SQL/DS. 


To: 
Handle SQL/DS ABEND. 
Terninate SQL/DS. 
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If logical locking is 
required and if 
ILOCKING = TRUE 


— 
| aria ] 


Lock the gate 


Maps the key 


ARIYK41 May Cail: 
ARIYKOO - 
ARIYK04 - 
ARIYKOS - 
ARIYK12 - 


ARIYKI8 - 
ARIYK19 - 


ARIYK22 - 
ARIYT23 <= 
If backup is indicated, 


Unfix page and block 


e ARTYI46 May Call: 


ARIYMO2 — 


Abend SQL/DS 
ARIYM02 May Call: 
ARICABE ~ 


ARICTRM - 


If ILOCKING = TRUE, 


key value locking: 


Lock the gate 


ARTYK41 May Call: 
ARIYKOO ~ 
ARIYKOG ~ 
ARIYKOS ~ 
ARTYKI2 - 


ARIYKI8 - 
ARIYKI9 - 


ARIYK22 - 
ARTYT23 - 
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‘a Encode the key into gateid 


into a gate nane and writes it into 


YTABLE1 so that the key value locking can be used. 


To: 
Release access to the designated gate. 
Wait for access to X-latch. 
Release access to X-latch. 
Test for deadlock, 
Wait to be posted, 
SQL/0S Lock Manager Wait Routine 
Post the designated process. 
SQL/DS Lock Manager Post Routine 
Free the locks. 
Set the rollback/conmit flags. 


in buffer 


Yo: 
Abend SQL/DS. 


To: 

Handle SQL/DS ABEND. 
Terminate SQL/DS. 
key into the gateid 


into a gate name and vrites it into 


Encode the subaitted 
| ARIYX17 | Maps the key 
YTABLE1 so that the key value locking can be used. 


To: 
Release access to the designated gate. 
Wait for access to X-latch. 
Release access to X~-latch. 
Test for deadlock. 
Wait to be posted, 
SQL/DS Lock Nanager Wait Routine 
Post the designated process. 
SQL/DS Lock Manager Post Routine 
Free the locks. 
Set the rollback/commit flags. 


Licensed Material 
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Abend SQL/DS 


May Cali: 
ARICABE ~ 


ARICTRM - 


ARTYHO2 


Search for successor 


If ARIYX21 finds the 
subnitted key in the ARTIYX30 : May Call: 


index, call ARIYX30, 


ARITYMO2 — 


Encode the successor 
ARIYX17 Maps the key 


To: 

Handle SQL/DS ABEND. 
Terminate SQL/DS. 

of kay 


To: 


ARIYK41 — Lock a page. 


Display error nessages. 


ARIYI19 — Get a page into the buffer. 
ARTYI46 — Unfix the block/page. 


key 


into a gate name and writes it into 


YTABLE1 so that the key value locking can be used. 


Lock the key 


ARIYK4L Hay Call: 
AREYKOO - 
ARIYKO4 = 
ARIYKOS = 
ARIYK12 - 


> ARIYKI8 - 
> ARIYKLO - 


ARIYK22 = 
ARLYT23 - 


Abend SQL/0S 
ARTYMNO2 — May Call: 


ARICABE - 
ARICTRM ~ 


If ILOCKING = FALSE» 


leaf page locking: >} ARIYK4) May Call: 
ARTYKOO = 
ARTYKOG - 
ARTYKO5 ~ 
ARTYK12 - 


ARIYK18 - 


ARIYKI9 - 


ARIYK22 - 
ARIYT23 - 
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Te: 
Release access to the designated gate. 
Wait for access to X-latch. 
Release access to X-latch. 
Test for deadlock. 
Wait to be posted, 
SQL/DS Lock Manager Wait Routine 
Post the designated process. 
SQL/0S Lock Hanager Post Routine 
Free the locks. 

Set the rollhack/commit flags. 


To: 
Handle SQL/DS ABEND. 
Terminate SQL/DS. 


Convert key from short lock to long lock 


To: 

Release access to the designated gate. 
Hait for access to X~latch. 
Release access to X-latch, 

Test for deadlock. 

Wait to be posted, 

SQL/DS Lock Manager Wait Routine 
Post the designated process. 
SQL/DS Lock Manager Post Routine 
Free the locks. 

Set the rollback/commit flags. 


Method of 


Operation 


377 


Abends SQL/DS 


ARIYMO2 May Call: 
ARICABE - 


ARICTRM - 


If there are any scans 
open by this trans- 
action, check if one 
points ‘before’ the 
successor of the pair 
being inserted. If 
there is one, adjust 
it to be ‘on’ the nev 
pair. 


May Call: 
ARIYII9 — 
ARIYX00 — 
ARIYK41 — 


ARTYX16 j 


Split the free space 


ARIYX29 


May Call: 
ARIYK41 — 
ARIYMO2 
ARIYX15 
ARIYX12 
ARIYI46 
ARIYX14 — 
ARIYII9 


ARIYX14 inserts the 
key into the page. 


ARIYII7 - 
ARIYMO?2 - 
ARTYIO6 - 


Now unfix the page and 
block. 
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EXIT through trace 


To: 
Handle SQL/DS ABEND. 
Terninate SQL/DS. 


Updates the image affected by the insertion of the key 


To: 

Get a page into real storage. 
Allocate a new SCB. 

lock the gate. 


Tot 

lock the gate. 

ABEND SQL/DS. 

Insert a pair into a index non-leaf page. 
Find a free page. 

Unfix the page and the block in the buffer. 
Get the raquested block into main storage. 
Get a page into the buffer. 


Get requested block into nain storage 
ARIYI14 May Call: To: 
ARIYK18 ~ Suspend the process. 


Request oa free buffer. 
Oisplay error messages 
Access a block. 


and ABEND SQL/DS. 
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Find the Next Sequential Key in an Index 


Data Manipulation Component Sort Component Index Component 


ARIYX20 


[aexrnoe] [anrvza6] [arvxa7| 


[aervKa] [aervai9] 


[arrnc7| [arrvre6] 
[aexrai7a] 
[aervxi9] 


[anrvze] [aervzas] 
[anxvKoo| [arxrxai| [arxvxe: ] 


[aexvz07] 
[arrvra6] 
[aarrxes] [anrrxes| [anrrxze| [arrrxe7| 


[arxrcoo] [aerreae| [aarncas| [arzreas] [aezyre3] 
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(From Data Manipulation, Sort, or ARIYX05 of Index) 
ARTYX20 


ARIYX20 returns the key/TID pair. 


ARIYX20 first validates 

paraneters. 

® If COMPCODE # 
or 'MB', 


‘M', ‘DC’, 'B'> 


go to FINISH on page 34) 


® If there is no stopping rule 
(COMPCODE = 'DC'), 


If you consider the 
current cursor 
position, go to CCPFIN on page 363 
If you do not consider the 
current cursor position, then 
advance the cursor by one pair. 


May Call: 
ARIYII9 ~- 
ARTYI46 - 
ARIYKOO - 
ARIYK41 - 
ARIYX21 - 
ARIYMO2 ~ 


ARIYX12 


If I/O error or a backup 
occurs, go to RECOVER on page 384 
Go to FINISH on page 361 


° If the cursor key and the key 
in IKEY is compared (if 
COMPCODE = '*B', ‘MB’, or ‘M')> 

If the SCB key > spec key» the 

signal is violated. 


If you do not consider the 
cursor position, 


Hay Cade 
ARIYILO ~ 
ARIYIG6 ~ 
ARIYKOO 
ARIYK41 ~ 
ARLYX2i 
ARIYHO2 ~ 


If I/0 error or a backup 
occurs, 
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go to RECOVER on page 384 


Finds the next pair in the index 


To: 

Get a page into real storage. 

Unfix 2 page/block. 

Release a lock. 

Lock a page. 

Search the index from the root page. 
Display error messages and ABEND SQL/DS. 


Finds the next pair in the index 


Toe: 

Get a page into real storage. 

Unfix a page/block. 

Release a lock. 

Lock a page. 

Search the index from the root page. 
Display error nessages and ABEND SQL/DS. 
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60 to FINISH or page 361 


If the current cursor position 
is included (QUALCODE = ‘H'}, 


Tf COMPCODE = *HB', ‘HM’, *B*, go to CCFPIN on page 353 


® Scan through the index for a 
key. 


ARIYX12 May Call: 
ARIYII9 ~ 
ARIYIG6 - 
ARTYKOO 
ARTYK41 
ARIYX21 
ARTYNMOZ 


If I/O error or backup 
occurs: go to RECOVER on page 384 


© If a new key is hit and the 
stopping rule is viclated 
(SCB key > spec key), go to FINISH on page 381 


® Since the new key is not 
beyond the stopping key» 


If COMPCODE = 'MB*, ‘"B', 'H*> go to FINISH on page 381] 


© If a matched pair is not yet 
found, find the next pair 
in the index. Also put 
the page in the buffex and 
validate the information. 


ARIYX121 May Call: 
ARIYI19 - 
ARIYI46 ~ 
ARIYKOO - 
ARIYK41 - 
ARIYX21 = 
ARIYMO2 - 


If 1/0 error or 


backup occurs, go to RECOVER on page 384 
Abends SQL/DS 

If any errors occur, ARTYHO2 May Call: 

> ARICABE ~ 

ARICTRH - 


FINISH: 
This routine returns the pair 
under the cursor. 


If logica¥ locking is required: 


Licensed Material - Property of IBM 


Finds the next pair in the index 


Teo: 
Set a page into real storage. 
Untix a page/block. 
Release a lock. 
Lock a page. 
Search the index from the root page. 
Display error nessages and ABEND S@L/DS. 


Finds the next pair in the index and validates the infornation 


Tor 
Get a page into real storage. 
Unfix a page/block. 
Release a lock. 
Lock a page. 
Search the index from the root page. 
Display error nessages and ABEND SQL/DS. 


To: 
Handle SQL/DS ABEND. 
Terninate SQL/DS5. 
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@ if key locking; 


if backup required, 


if RETCOOE < SHODE 


@ If leaf page locking, 


if backup required» 


if RETCODE < SMODE 


Encode the successor key 
ARIYX17 Maps the key into a gate nane and vrites it into 
_ YTABLE] so that the key value locking can be used. 


Convert key fron short lock to long lock 


ARIYKS) 


, May Cal: Jo: 
> ARIYKOO - Release access to the designated gate. 
ARIYKO4 - Wait for access to X-latch. 
ARIYKOS = Release access to X-latch. 
ARIYKI2 = Test for deadlock. 
ARIYKI8 - Wait to be posted. 
SQL/DS Lock Manager Wait Routine 
ARTYK19 - Post the designated process. 
SQL/DS Lock Manager Post Routine 
ARIYK22 - Free the locks. 
ARIYT23 - Set the rollback/cornmit flags. 


go to RECOVER on page 384 
Abends SQL/DS 


ARTYMO2 May Call: Jo: 
ARICABE - Handle SQL/DS ABEND. 


> ARICTRM ~ Terminate SQL/DS, 


Convert the nedium lock te a long lock 


ARTYK41 


May Cali: To: 
ARIYKOO - Release access to the designated gate. 
ARIYKO4 - Wait for access to X-latch. 
> ARIYKOS = Release access to X-latch. 
ARIYK12 = Test for deadlock. 
ARIYK1S - Wait to be posted. 
SQL/DS Lock Manager Wait Routine 
ARIYKI19 = Post the designated process. 
SQL/DS Lock Manager Post Routine 
» ARIYK22 = Free the locks. 
ARIYT23 = Set the rollback/conagit flags. 


go to RECOVER on page 384 
Display error rmessagew and ABEND SQL/DS 


ARIYMO2 Cal}: To: 


ARICABE ~- Handle SQL/DS ABEND. 
ARICTRM ~ Yerminate SGL/DS. 


EXIT through trace 


SQL/Data System Logic, Volune i Licensed Material - Property of 


18M 


CCPFIN: 
This routine returns the 
current cursor position. 


If there is no key 
value locking or page 
locking» 


Convert key from shor 


j ARnVKS! =F, tay cats 


ARIYKOO = 
ARIYKO04 ~ 
ARIYKOS 
ARTYK12 
ARIYKI6 


ARTYKL9 


ARIYK22 
ARIYT23 


if backup required, go to RECOVER on page 384 


Display error nessage: 


if RETCODE < SMODE, ARTYMO2 May Call: 
ARICABE ~ 


ARICTRA = 


Gets page into storag 
ARTYKI8 
ARTYII71 
ARIYHO2 
ARIYIO7 
ARIYI49 
ARIYI29 


If I/O error occurs, go to RECOVER on page 384 


If unfix did not occur 


(RETCODE ¥ 0), 


Display error rnessage 
Hay Call: 
ARICABE - 


ARTYNO2 
ARICTRM - 


Unfix page and block 
| arry146 May Call: 
ARIYMO2 —- 


If SCB version is. not 
the same as the page 
version, 
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t lock to long lock 


Tos 

Release access to the designated gate. 
Wait for access to X-latch. 
Release access to X~-latch. 

Test for deadlock. 

Wait to be posted. 

SQL/DS Lock Manager Hait Routine 
Post the designated process. 
SQL/DS Lock Manager Post Routine 
Free the locks. 

Set the rollback/connit flags. 


s and ABEND SQL/DS. 


To: 
Handle S@QL/DS ABEND. 
Terminate SQL/DS. 


To: 

Suspend the process. 

Request a free buffer. 

Display error messages; ABEND SQL/DS. 
brite out the changed paga- 

Read a log page. 

Read a logical page. 


s and ASEND SQLs. 
To: 

Handle SQL/DS ABEND. 
Terminate SQL/DS. 

in buffer 


To: 


ABEND SQL/DS. 


Method of 


Operation 383 


Display error messages and ABEND SQGL/DS. 


May Cali: To: 
ARICABE - Handle SQL/DS ABEND. 
ARICTRM ~ Terminate SQL/DS. 


Finds the next pair in the index 

rey Saye 
ARIVIL? - Get a page into real storage. 

ARIYI46 - Unfix a page/block. 

>» ARIYKOO - Release a lock. 

ARIYK41 - Lock a page. 

ARIYX21 - Search the index from the root page. 

ARIYHO2 - Display error messages and ABEND SQL/DS. 


If I/0 or backup 


occurs» go tod RECOVER on page 384 


EXIT through trace 


RECOVER: Unfix page and block in buffer 


ARIYI46 


May Cali: To: 
ARIYMO2 — Abend S@L/DS. 


Display error nessages and ABEND S5@L/DS. 


IK ARICABE - Handle SQL/DS ABEND. 


ARICTRM ~- Terminate SQL/DS. 


if an error occurs 
in unfixing, display 
an error message 


EXIT through trace 
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BBSS STATISTICS = GENERAL FLOW 


START UPDATE STATISTICS 


START UPDATE STATISTICS 


ARTYZOO 


INITIALIZE 
INTERNAL 


MOVE 
RETURN CODE 


ARIYZ10 


UPDATE STATISTICS 


ARTYZ062 


CREATE 
SEGHDESC 


CREATE 
TREESPEC 


ARTYZ02 


AREKYZOS 


ARTYZO1 


ARTYZ03 


GET DBSPACE ATTRIBUTES 


ARIYZ04 


END UPDATE STATISTICS 


STORE 
STATISTICS 


ARTYZ16 


GET DBSPACE 
ATTRIBUTES 


ARIYZ04 


UPO/STAT 
INIT 


STATISTICS 


ARLTYZ063 


ARITYZ10 
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DBSS WORK 


DBSS WORK — GENERAL FLOW 


In this diagram, only the major aodules of DBSS Work and those called by ARIYMOO are shown. For the details, see page: 
387 for Allocate a TPMAP Entry (ARIYTO5) 
368 for Begin an LUW (ARIYTO9) 
390 for Commit an LUW (aARIYTI4) 
392 for Establish an Save Point (ARIYT10) 
393 for Rollback an LUW (ARIYT17) 
394 for Prepare for COMMIT or ROLLBACK (ARIYT27) 
397 for Reset/Release an Agent (ARIYTO6) 


For Build In-Doubt Agents (ARIYT29 - not shoun in this diagram), see page 398. ARIYT29 is called by ARIYLI3 (see pages 271 and 


413). 
ARIYMOO oOBSI 

Allocate |Begin an Commit Establish Rollback Prepare Get Schedule Reset/ 
a TPMAP LUW an LUW a Save an LUW for Recovery a New Release 
Entry for|(Logical Point for COMMIT List Userid an Agent 
an Agent [Unit of LUW or into DBSS 
(Begin Work) ROLLBACK and DSC 
Process) 


ARIYTOS : ARIYT14? ARIYT17 ARIYY271 ARIYT26 ARIYT26 ARIYT06 
ARIYTO9? ' ARTYTIO# 


ARTYIOS ARI¥Y2! Log Component ARICWFR 
ARIYT22 ARTYI26 ARIYIOS 

Lock Component ARIYT23 Lock Component 

Log Component ARIYT1L9 


ARIYT22 


ARIYD871 ARIYD871 
Log Component Log Component 
Lock Component ARIYD872 


ARIYT22 
ARTYTI9 


2 Access ARIYKO8, ARIYKO9, and ARIYMO2 
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OBSS Work (continued) 
DBSS WORK = DETAILS 


Allocate a TPMAP Entry (Beqin Process) 


ARIVTOS (Allocate TPHAP Entry) 


Receives control from ARIYHOO, 
generally, and from ARIYTOO. 


Assign a TPHAP Entry for the agent. 


System error (ARXYTOS 01} 
If no entry is available, terminate 
SQL_/DS ARIYMO2 


Connect YTABLEL to the TPHAP Entry», 
and connect the entry to DSCAREA, 


Schedule the userid into the entry. 


Return vith code 0 RETURN 
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DBSS Work (continued) 


Beqin a Logical Unit of Work (LUW) 


ARIYTO9 (Begin a LUN) 


Receive control from ARIYM00 


If TRANMODE='F° (Agent in work), 
~ If LUW ‘in doubt’, set return 
code = 0 and 


| lexrr (page 389} 
- Othervise, set return code = -6] NZ 


Systen error (ARIYTO9 O01) 
ARIYHO2 


Tf TRANNODE -='N', terminate 
the systens 


® Clear SHOW ACTIVE command done flag 


® Verify input parameters (LDATA, 
LENGTH } 


® Verify consistency level r~ Suspend if Checkpoint active 
. = 


| ARLYKos | 
ARIYK41 Request a lock 


* Enter the DBSS 


© For multiple-user modes get 
~ Logical data base lock 
~ Intention exclusive 
- Duration is long 
~- Wait until available 


* Assign unique LUW ID (from NEXTID in 
YRSSCVT) 


® Initialize YTABLE!L and TPMAP (for 
example, TRANSID, TRANMODE. TEMPHHM) 


® Initialize Data Management control 
fields (for example, last DBSPACE 
nurber, gate for last XMODE-long-pace 
locks last DBSPACE lock state, nuaber 
free bytes for scans, number of scans, 
and scans on index). Fields are 
made null. 


° If no logging (LOGMODE='N', leave 
oBSS | LEAVE (page 389} 

\7 

pr Calculate current scan data length 


| ARTYD871 
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* Get size of scan data that should be 
legged within the general begin/save 
log record ¢_— 


OBSS Work (continued) 


© Create and write the begin/save log 


record: 

— Allocate size required ¢ 

— Move in control information 
Null NEXTREC ARIYLOL - Start log 
userid ARTYLO2 - Write log 


null save point number 
LASTLOCK pointer (null) 
— Write segments of log record 
- End write (no flush) 


ARIYLOS End write 


* From page 3865 


| * L, LEAVE: 


\_7 |® Leave the DBSS (pass ‘S' paraneter 
to free short term locks) ¢ 


® Allow checkpoint to proceed 
ARIYKO9 |® Release short locks 


* From page 388 


EXIT: 
® Test for asynchronous request (for 
exanpla, operator FORCE, log full) 


ARTYT22 


If return code is not supported, 
terminate SQL/DS — 


System error (ARIYTO9? 02) 
ARTYMO2 


Undo each update. (Null undo call; 
ARIYTLO | but abort log record is written, 


and log space may be freed) 


If return code -=0, rollback the 
LUW 
Translate the ARIYT19 return code to 
DBSS return code. 


Move updated TBASE to RDS environment 
(required because BEGIN WORK is an 
implicit O5SS function and input 

base may not be TBASE). 


Return with return code (x) 
'x' is generally 0. Exceptions are 
sequence error, LDATA, and any 
asynchronous return code fron 
ARIYTI9. 


RETURN 
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DBSS Work (continued) 


Commit an LUN (Commit Work) 


ARIYTIG (Connit Work) 


® Receive control from ARIYMOO, in 
general, and from ARIYTI5. 


°e If asynchronous USERPROB set, or if 
nothing to commit, go to 


® Verify input (LDATA) 
© Enter DBSS 


ARIYTIGi: (Entry Point) 

® If logging is required (LOGMODE-~='N') 
— Allocate space for log record 
- Write log record segment 
—- End urite (flush unless read-only? 


e If there are temporary DBSPACEs 
(TEMPHNM in YTABLE1 > 0), free then. 


® Reset TPMAP Entry (INTRAN, INDOUBT, 
SHOW ACTIVE}. 


© Leave DBSS (pad 'F° parameter to 
free all locks owned by LUW). 


® Reset YTABLE1 (TRANNODE, TRANSID, 
consistency level, etc). 


® Clear asynchronous flags (USERFLAG or 
FORWARD ) 


| 
EXIT: 


® Test for asynchronous request 


e If return code not supported, 
terminate SQL/DS 


@ If return code ~= 0, rollback the 
vork A ——“qjJoo 
Translate ARIYTI19 return code to 
DBSS return code. 
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ARIYKO8 


ARTYLOL 
>| ARIYLO2 


ARIYLOS 


| ARTYKO9 


ARIYT22 
ARTYHO2 


ARIYT19 


ILI 


Suspend if checkpoint active 


Log Component 


® Allow checkpoint to proceed 
® Release all locks 


System error (ARIYTI4 O01) 


Undo each update 
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DBSS Work (continued? 


® If LOGMODE = 'N’ (single-user mode 
only), force a chackpoint with 
CHKCNTP = 0. If log activity or 
storage pool activity scheduled a 

checkpoint (single-user node only)» 

force a checkpoint. 


ARIYK19 — Post checkpoint 
ARIYKI8 — Suspend 
ARIYKOS — Enter DBSS 
ARIYKO9 — Exit DBSS 


Return vith return code ix) RETURN 
‘x' is generally 0. Exception case is 
when ARIYT19 is called to undo 


(rollback) work. 
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DBSS Work (continued) 


Create (Establish) a Save Point 


ARTYTLO (Create Save Point) 
® Receive control from ARIYM00 


© Verify input parameters. If error 
found (sequence error, LDATA errors 
No log indicator), go to EXIT 


© Format the save point log record 
(NEXTREC, USERID, SAVENO, LASTLOCK 
if locking active) 


© If locking active, upgrade duration 
ef all short locks to long. Suspend if checkpoint active 


e Enter the DBSS ARTYKO8 
® Get length of scan data to log ARIYD871 


® Create and write the hegin/save log 
record: Log Component 
~- Allocate size required 
~ Write “vork" segnent of log 


ARIYLO! — Start log 


record = ARIYLO2 -— Write log 
— Write scan segment of log «—1 ARIYLO3 — End write 
record 


- End urite 


® Leave the DBSS ® Allow checkpoint to proceed 
| arzvKo9 |» Release short locks 
EXIT: 


© Test for asynchronous request (see 
OBSI linkage ~ ARIYTO9 Begin Work», 
page 3886) 


© Return with return code (x) RETURN 
*x' is generally 0. Exceptions are 
sequence error,» LDATA error, no log 
indicator, and any asynchronous return 
code for ARIYT19. 
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DBSS Work (continued) 


Rollback Work 


ARIYT17 (Rollback Work} 


* 


Receive control from ARIYNOO. 
If LOGMODE='N‘ (valid only in single- 
user mode), accomplish rollback by 


resetting DBSPACEs, set return code 
to 0. 


Reset DBSPACEs to state after last 
Lo checkpoint. Close. 


If no work to rollback, set TRANMODE='N' 
and return code to 0. 


Establish save point number (SAVEPT=1 in 
general case for SGL rollback). 


If TRANMODE-='F*, terminate SQL/DS 


System error (ARIYTI7 01) 
ARLYNOZ 


ARIYT23 Save status in TPMAP USERPROB 


System error ({ARIYTL7 02} 
ARLYTI9 
System error (ARIYTI7 03) 
ARIYMO2 


Establish reason fox rollback (user 
request) and save point. 


If return code is -2, set return code to 
-87 (save point is not valid). 


If return code is not supported, 
terminate SQL/DS 


Rollback all vork from TLOGEND to 
current (input} save point, —— 


If return code from ARI*YTI9 is not 
supported, terminate SQL/DS 


Convert ARIYTLS return code to DSSS 
return code: LOCKLIN -97, OVERLOAD ~-100, 
DEADLOCK -99, SYS BACKUP -64, OK 0 


See if any asynchronous problenms 
came up ————— 


ARIYT22 


Systen error (ARIYTI7 04) 
ARLYMO2 
ARIYTILS 


l¢ return code -= Qs: 
~ Verify valid return code: 
If not valid, terminate SQL/DS 
~ Rollback again via ARIYTI9 
and translate to DSSS code 


Set return code (x), where 'x' is the 


DBSS code and return, 
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> RETURN 


Method of Operation 
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OBSS Work (continued) 


Prepare to Commit 


ARIYT27 (Prepare-to-Comnit) 
Receive control from ARIYMOO. 


If LUW is read-only» or if not in 

LUW, or if in single-partition mode 

(VSE) or if in the YM environment, 

return vith return code 0 RETURN - Suspend if checkpoint active 


Enter DBSS ARTYKOS 


Calculate number of bytes to log lock 
information. Count any exclusive type 


lock (EXCLUSIVE, INTENT-EXCLUSIVE, 
SHARE-INTENT-EXCLUSIVE) that is not 
for a tenporary DBSPACE. 


If there vere no exclusive type locks, 
set lock count to 0 and set rend-only 


flag. Allocate space in log buffer 
Allocate a log record, alloving 9 ARTYLO) 
bytes for each counted lock (8 bytes : 


For lock name,» | byte for lock mode). 


Build Prepare-to-Commit log record 
header (referenca TENDILDAT in 


YLOGTHPL). Put element of log record inte buffer 
* Move log record header, number of >) ARTYLO2Z 


locks, and each lock to log buffer. 


Free any unused locks | ARTYKOO | 
End write (flush unless read-only) ARTYLO3 


Update TPMAP Entry vith recovery 
information and mark LUW state 


“in-doubt". Alles checkpoint to process 
Leave DBSS ARIYKO? 


Return vith return code 0 RETURN 
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OBSS Work (continued) 


Undo Work 


ARLYT19 (Undo Work) 


® Receive control from ARIYO1), 
ARIYTI5, ARIYTO9, ARIYT1O, ARIYTIG, 
ARIYT17 


© Set GOLDEN flag in TPHAP so that LUN 
vill not be deadlock victia, 
® Set TRANMODE='B' (backward). Return ~], the continue rollback indicator 


© Get rollback status and save in ARLYT22 


H 


% From page 396 
Allow checkpoint te process 


ARTYKOS 


® If retura code * 0, terninate 
SQL/DS (system error ARIYTI9 01) ARIYMO2 
® Read the header of log record 
TLOGEND 


® Read log record 
ARIYLOS ® Return record header and 
PREDADDR (next TLOGEND >} 


BIEL 


© I¢ record type is “ordinary™ (reflects 
any data base update}, then: 

—- Unde the specific update (pass 
record type and length ef bhedy of 
record}. 

— End the read 

— Reset TLOGEND vith PREDADOR 
{point to next pravious log 
record) 

- Go to leave DBSs 


Route to correct DBSS module based on RECTYPE. 


ARIYLO7 |¢— | ODBSS 
(side linkage) 


Unfix page containing record 


° If record type is Prepare-te- [ lueave ipaga 396) 
aed 


Comait, do nothing, 


* If record type is Begin Work or Save 

Work, then; 

~ Process a Begin/Save Work type 
(Unsave) 

~ End the read (unfix page containing 
log record) : 

~ If record is a reset» TLOGEND with 
PREDADDR 

- If record is a Begin Work, abort 
the LUW and clear the SHOW ACTIVE 
done flag in TPHAP. 


ARIYT21 | (page 397) 
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DBSS Work feontinued) 


® Get rollback status 

ARYYT22 returns either -1 (continue 

rollback) or the reason code for the 
rollback. 

® From page 395 


ARTYT22 


LEAVE: 


© Exit the DBSS —>| ARIYKOS 


Bee 


® Rollback status is continue {-1), Go 
read and process next previous log 
record | UNDO 
id 

Reset LUW status to "not golden” and (page 395) 


not in-doubt. 


Reset TRANNODE to 'F* for save point 
(not 1) and to 'N' for save point I 
(Begin Work). 


Reset ATTNATTYN flag to nvll in 
YTABLE1. 


If the rollback was caused by a log 
full condition, force a checkpoint 
(set CHKCNTP=0) -——— 


ARTYTO9 


RETURN 


Set current save nuaber into FEEDB(1) 
of TBASE. 


Return vith return code (x) 
where x = 
0 No-op call 
wi System congested 
-2 Deadlock 
3 User backup to save point 
“4 Syster backup to save point 
-& User backup to Begin Work 
-6 Systea backup to Begin Work 
-7 Backup to DBSY because of 
user ATIN 
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DBSS Work (continued) 


ARIYT21 {Undo Begin/Save) ARIYT20 (Abort LUW) 
Read body of log record to get If necessary, reset LUM status 
last lock and save number ARIYLOS flags to 'KO'. 


If save nunber not valid, Free LUM temporary DBSPACEs ARLYIOS 
terainate SQL/DS [ arzvice | 


Free LUM locks up to the save 


Free all locks set by LUM to point. 
last lock ARIYKOO If deadlock is broken,» status 
flag will be reset for ARIYT22. 


ARIYVKOO 


Reset GOODLOCK for the DBSS 

exit process. 

If the save point is the point 

where Undo Work should stop: 

— Reset: LUM status flags to "KO" Reset TPNAP and YTABLEI to null 
wo ARIYT22 will give reason (for example; TRANSID=0 and 


for rellbuck on next call, TRANMODE="N'). 
and not return -} (unless Return RETURN 
deadiock). 

—- Reset LUM scans ¢ 

— Read weer dota length 

— Reset LUN save number in TPMAP 


Use Log Component to urite an 
abort LUW log record. 


Reset/Releaze on Agent 


ARIVTOG (Reset/Release) 


© Receive contre] from ARIYMOG, in 
general, and from ARICAST 


If agent is “in LUM", return with 
return code 8. 


RETURN : Return overflow storage for agent to system 


Release overflow working storage. 
® Clear TPHAP Entry of agent. 
* Return with returr code @. 
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OBSS Work (continued) 


Build JIn-doubt Aqents 


ARIVT29 (Build In-Doubt Agents) 


Receive control from ARIYLL3 


If MAPCNT=0 or no entry in map has 
MPINDOUBT='1'B, set OIDTLB=0 to 
indicate that there are no in-doubt 


LUWs, and return | * | * EXIT (page 398) 
\7 
yster error (ARIYT29 03) 
If there are in-doubt LUWs and on oY rie 
VM terminate SQL/DS | ARTIYMO2 | 
If single-partition node or if there Display aessage 
are aore in-doubts than agents: 
— Display message ARI2311 
— Terminate SQL/DS because of limit 
error Limit error (ARIYT29 013 
For any entry in the map that has | ARIYMO2 
MPINDOUBT='1'B, an in-doubt agent 
must be built using the folloving 
steps: 
ead header of log record 
~ Read the Prepare-to-Connit log 
record header using pointer ARIYLOS 
(MPLPREV) 


Systern error (ARIYT29 02) 
If record type is act Prepare-to- 
Connit, terninate SQL/0S 


Read body of log record (all logged Read segnent of log record 


infornation except for lock 


information 


Create an agent. Pass aloag the 
userid, link 1 nane (8'*SYSARTIO'), 
and link 2 name. (userid and link 2 


nane were in the leg recerd.) 
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DBSS Work ( continued} 


~ Set pointer to DSCAREA of new 
agent (output of ARICCRA) 


~ If this is first in-doubt agent, 
set DS2USAG1. This sets the value 
in DS2CVT, which indicates WHOAMI 
of first non-syster agent. 


= Set WHOAMI and WHOAHIP for the new 
agent structure. 


- Fron the log record, rebuild the 
YTABLEL and TPHAP entry of the new 
agent. Many fields are set and 
enough structure is built so that 
SQL/DS can eventually do a COMMIT 
WORK or ROLLBACK WORK for the LUM. 


- If this is the oldest in-doubt 
egent, reset IODTLS. (OXOTLB vill 
be set to the pointer of the 
Begin Work log record of the oldest 


in-doubt LUM.) Read segment of log record 


= Wead the nunber of logged locks ARTYLOS 

= For each legged locks read the lock 
nane and mode (Exclusive or Share) 
fron the leg. Then go to lock 
sanageor te obtain the lock. 
(Mote: fer call te lock managers 
SYSTODE avast be set to ‘fH’ or lock 
weqvest call is a NOP.) 


Get lock 


ARIYL41 


ie] error (ARIYT29 04) 


fix page containing the log record 


- If any request for a lock faiis, 
terminate S$QL/D% 


— Texrninate rending ef the log 
record 


~ If unfix failed, terniaste SQL/0S 


~- Reset WHOAMI and MHOANIP te the 


initialization (operates) agent 
structure 
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=I error (ARLYT29 05) 
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DBSS 


400 


Work (continued) 

—Enable agent 
Enable the in-doubt agent that was 
just built. (When the agent is ARICENA 
first dispatched, R1Q will point to 
an RDAREA. } Display message 
Display message ARI2321 ARIYMO4G 


Return 


. 


% |Return to caller 
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DBSS STORAGE 


See page 401 for Acquire/Release Internal DBSPACE 
See page 402 for Get Page 
See page 404 for Get Block 


ACQUIRE/RELEASE INTERNAL DBSPACE 


Acguire Internal DBSPACE Release Internal. DBSPACE 


ARIYHOO (DBSI) ARTYHOO (DBSI) 


ARTYIOG 


® Set ‘IN DBSS‘ indicator ARTYKOS 


® Find an available INTERNAL DBSPACE. 
- If found: 

a. If in aulti-user rode, lock 

DBSPACE in exclusive mode 

b. Return DBSPACE number to caller 

and exit 

- If not found, return ‘NOAVAILS’ 

code to caller and exit 


ARIYIG1 


RETURN 


RETURN 


Entry point ARIYIOO2: 


© Set ‘IN DBSS' indicator ARIYKOS 


® Verify DBSPACE number and that it is 

an Internal DBSPACE: 
- If not OK, return ‘ISEGMENT' 
to caller and exit 


code 


RETURN 


- If OK: 
a. Release pages allocated to ¢ ARTYI364 
DBSPACE 


b. Release lock on DBSPACE 
¢. Return ‘OK’ code to caller and 
exit 


ARTYI364 


RETURN 
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OBSS Storage (continued) 


GET PAGE 


ARIYI19 (see below for details) 


ARYYII71 ARTYIO7 ARIYI49 ARIYI29 


* (ARTYIIL9 is called from nany nodules. See the Module-to-Module 
Cross Reference in Volume 3.) 
ARTYIi9 (GET PAGE) 


Note: ARIYI19 will call ARIYMOZ on a 
severe error. 


ARTYI19 gets a requested page into a 

page buffer for access. The page number 
is passed as input and is expressed as a 
logical page number starting with 
X'000080' as page zero, ARIYII9 is called 
by the Log component also to read a log 
page from either log, or from the prinary 
log only» or from the secondary log only, 
or to allocate a page buffer to contain 

a nev log page. ARIYII9 processing }s 

as follous: 


1. Check for valid page number. 
NO -—> RETURN (-2), 

2. See if the page is the last 
referenced page. The pointer to the 
last referenced buffer is in 
YTABLES. 

YES — 60 TO 12. 

3. Using the DBSPACE number and page 
nurber, compute hash code and search 
hash chain for page. 

FOUND —> GO TO 12. 

4. Sean the transit list to see if the 
page is in the process of being 
written out to disk. 

YES -— Go back to the Dispatcher 
and try later. 
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OBSS Storage (continued?) 


5. Request a buffer to read the page 
into by calling ARIYII71. 

6. Delete contents of buffer fold paga) 
fron the hash chain. 

7. If old page in buffer has been 
wpdated, call ARIYIO7 to write old 
page out to disk. 

8. If a log page was requested, call 
ARIVYI49 to read the page and return 
to caller, or, if a buffer was to 
be allocated only,» return to caller. 

9. Call ARYYI29 to read the requested 
page into the nevly~-acquired buffer. 

10. Put the page on the hash chain. 

11. Put buffer on the top of the LRU 
stack last referenced. 

12. Fix the buffer by incrementing the 
user count. 

13. If the page was in a buffer but was 
in read node and has been requested 
in write mode, call ARIYI29 to 
request a shadow page. No page fetch 
is specified to ARIYI29. 

14. Set register 2 to the buffer address. 

Exit. 


ARIYII71 


ARIY107 


ARIVI49 


ARTYI29 


ARTYI29 
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OBSS Storage (continued) 
GET DIRECTORY BLOCK 


ARIYI14 {see below for details) 


GEY DIRECTORY WRITE OUT CHANGED 
DIRECTORY BLOCK / 


READ IN NEW DIRECTORY BLOCK 


ARIYIZ9 | 


ARTYII7 


% (ARIYI14 is called from many modules. See the Module-to-Module 
Cress Reference in Volume 3.} 
ARIYIIG (GET DIRECTORY BLOCK) 


ARIYIL4 gets the requested directory block 
into storage as follows; 


Verifies valid directory block number. 

~ If multi-user mode, obtains directory 
block buffer contents lock. 

- Sees if it is in the last-referenced 
buffer. If so, up fix count and exit. 

- Search hash chain for buffer. Wake it 
last~-referenced buffer, up Fix count 
and exit. 

- Request a buffer to read ia 
directory block. 

- Delete directory block in buffer fron 
hash chain. 

— Write out old directory hieck if it 
was changed. 

— Read directory block iate buffer. 

~ Add directory bleck te hagh chair. 

—- Up fix count. 

- If directory block is iateaded te be 
updated,» indicate in NODMAR, 

» Exit. 


ARTYII? 
ARIYIOG 
_— 


404 S@QL/Data Syster Logic» Volure 1 


Licensed Material ~ Property of IBM 


BSS G/RECOVERY 
INITIALIZING THE LOG 
Types of initialization: 
*C* - cold start the data basa 


*L* - cold start the log 
‘WN’ = varm start the log 


ARIYLOO (Called by ARIYTOO) 


® Format the log 
~ If the type = ‘L’ 
- If the type = "C's ARISPFN 
has formatted the log 


ARIYL1G 


Initialize the VSAM environment 
by creating the required 
ACBs, RPLs and opening the ACBs. 


ARIVI23 


Initialize the log I/O error 
flags for dual or single log. 


Initialize the length of the 
leg sagnent. ARIY423 
Test the checkpoint interval, 
if necessary reduce it and 
issue the nessage. 


ARIYHO4S 


Initialize and create the 
checkpoint and recovery 
agents. 


If type = ‘C' or ‘L's: 

~ Set up cursors for empty log 
Initialize the log page 
sequence number to 1 
Initialize the transaction 
identifier to l 
Initialize the clock 


If type = ‘Wl’, 
~ Recover the log and data 
base 
- Set the transaction identifier 
- Set the log begin value 


ARTYL1I3 


Fix the first frea page 


and set its sequence number. ARIYI19 
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DBSS Log/Recovery (continued? 


® Increment the log page sequence 
number by 1. 


Perform the systen 


checkpoint. ARIYLOS 


Enable the checkpoint agent. ARICENA 


READING THE LOG 


Return to caller 


ARTYLOG and ARIYLOS are the modules needed to read the log. 


Read Log Header and Status 


Read Log Header 


ARIYLOG (Read the log header) 
(Called by many OBSS nodules 
via YSTARTRD macro} 


Verify the log status 
(TLOGHODE). 


Set the YTABLE!) cursors. 


Fix the first log page. ARIYILO 
Read the header of the log 
record into LOGHEAD. —)| ARTYLOS 


Return the displacement of the 
previous log record for this 
LUN. 
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Return to caller 


Read Log Status 


ARIYLOS {Read the log status) 
(Called by many DBSS modules 
via YREADLOG macro) 


* Verify the log status 


( TLOGHODE). 
Verify the request. 


Move the characters fron the 
log to the target. If the 
end of a log page is 
encountered, unfix this page. 


ARTYI46 


complete the nove, fix the ARTYII9 


If a new page is required to 


next page and repeat: ‘MOVE’. 


Return to caller 
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DBSS Log/Recovery (continued) 
WRITING THE LOG 


ARIYLOI, ARIYLO2, and ARIYLO3 are the nodules needed to write the log. 


Write Loq Header 


ARIYLOL (Write the log header) 
(Called by swany DBSS aodules 
via YSTARTLG macro) 


Verify the log status 
{TLOGHODE }. 


If the systen node is nultiple 
users, get exclusive update 
access to the log segment. 


Set the YTABLE1 cursors. 


Compute the nunber of free 
bytes in the log. 


If the log cushion {SLOGCUSH) 


is exceeded and an archive is 

not in progress, mark any 
transaction that begins in the 

first log page to be aborted. 


If the log cushion {(SLOGCUSH) 
is exceeded and an archive is 
in progress, turn on an 
indicator to warn the archive 
process (ARCHEX), 


If archiving is enabled; but 
an archive is not in progress 


or scheduled and if an 

implicit archive point 
i ARCHPCT) is exceeded, 

post the checkpoint agent 


unless a LUW began before the 
most recent checkpoint. 


Compute the number of page 
boundaries crossed by 
writing this record. 
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DBSS Log/Recovery (continued) 


© Conpute the length of the log 
record including space for a 
log page header, if applicable. 


If the number of free bytes 
in the log is less than the 
computed length of the log, 
issue an errox message and 
ABEND SQL/DS. 


Allocate and format each new 
page. 


Release exclusive access to 
the log segment. 


Write the log header record. 


Return to caller 


Weite Log Record 


ARIYLO2 (Write the log record) 
(Called by many OBSS modules 
via YWRITELG macro) 


Verify the log status 
C(TLOGMODE ). 


Increment the YTABLE] cursors. 


Initialize the local variables. 


Move the characters from the 
source to the log buffers. 

If a new page is required, 
increment the cursors and use 
the new page to conplete 

the move, 
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DBSS Log/Recovery (continued? 


Terminate Writing Loq Record 


ARIYLOS (Terminate writing the log record) 
(Called by many DBSS modules 
via YENDOWRIT macro) 


Verify the log status 
(TLOGMODE, TLOGBYTE?). 


If writing the log record to 
disk is requested (FLUSH = Y}, 
compute the number of valid 
bytes in this page (TLOGWANT). 


Initialize the YIPHAP variables. 


Compute the maximum page and 
byte within that page that 
is completed by all LUWs. 


If there are no incomplete log 
records prior to this one, 

or if this record is not on 
the same page as the cursor 
pointing to the next log byte 
to be vritten (SLOGWRIT), or 
if writing is requested 

(FLUSH = Y¥)» then the log 
buffer(s) should be written 

to disk now. 


Write all prior valid pages to 
disk, unless another agent 
is vriting thea. 


ARIYIS8 


Unfix each page as it is 
uritten. ARIVIG6 
If the checkpoint is needed, 
post the checkpoint agent. 


Post each agent that was 
waiting for pages to be 
written. 


If any agent vants the last 


page written, then write it. ARIYI46 
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DBSS Log/Recovery (continued) 


° If another agent was writing 
pages to disk and vrite is 
requested (FLUSH = Y)» 
deterrine if that agent wrote 
enough to satisfy this request 
(waiting until that agent 
completes and then restarting 
with the third step above, if 
necessary). 


ARIYK16& (LOGHAILT ) 


Return to caller 
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DBSS Log/Recovery (continued) 
PERFORM CHECKPOINT 


Reasons for checkpoint: 

Log just initialized 

System just recovered 

Periodic system checkpoint 
Archive of date base started 
Archive of data base completed 
System heing shutdoun 


“nut ud 


“rFPuUNDH 


ARIYLOS (Performs the checkpoint) 
(Called by ARISEGA, ARIYLOO, ARIYLO9) 


® Bump the system checkpoint 
counter (CHKPOINT) for the 
COUNTER command support. 


Allocate space to contain a 
checkpoint record. 


Quiesce DESS Stop agents from entering DBSS and flag agents in OBSS 


ARIYK10 Wait for all other agents to leave DBSS 


Build and write a checkpoint 
record if LOGHODE='W" or 
REASON='I' or 'R'. It 

includes one entry for each 
active LUW and the current 
values of the log beginning 

for soft recovery and for 
restore (media failure). If 
LOGHODE='N’,» unfix the log page. 


ARTYLO} Start log record (allocate) 


ARXYLO2 Write data to log record 
ARTYLO3 End write log record and FLUSH (write te disk) 


ARIYI46 Unfix the log page 


Save the new log beginning 
and if archiving is disabled, 
advance the log cursor and 
reclain the log space. 
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DBSS Log/Recovery (continued) 


412 


Reclaim shadous and save 
nev system checkpoint. 


If this is archive 

checkpoint (A}, advance 

the archive cursor (SLOGARCH) 
and reclaim the log space 
(LOGARCH='Y'}, 


Save address of system check- 
point record (SLOGCHK) and set 
flags for next checkpoint 
(CHKCNTP, AUTOCNT). 


Let LUWs proceed in DBSS 
uniess the reason for the 
checkpoint is B and syster 
mode is S, 


If the reason for the 
checkpoint is B, call 
perform the archive routine. 


If the reason for the 
checkpoint is B and the 
system mode is S, let LUWs 
proceed in DBSS. 


Save the log address of the 
‘B' checkpoint (YRSLGBRC), if 
this is a B checkpoint for use 
by the A checkpoint. 


Free space gotten for 
checkpoint record. 
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ARIYI365 Save (vrite) synchronous DBSPACE pages (REASON-='S') 


ARIYI366 Save (write) synchronous DBSPACE pages and close DBSPACES 


CREASON='S*) 


ARIYKO9 Mark checkpoint agent as outside DBSS 


ARIYKI1 


ARTYL23 


ARTYKO9 


Allow all agents to enter DBSS (post if necessary) 


Mark checkpoint agent as outside DBSS 


ARIYK10 Allow all agents to enter DBSS (post if necessary) 


| ARICHSF | 


Return to caller 
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DBSS Log/Recovery (continued) 
RECOVERY OF THE LOG 


ARIYLI3 (Recovery of the log) 
(Called by ARIYLOO) 


Allocate an array (MAPARRAY) 
to contain entries for LUWs 
to be undone or redone and 

initialize the array as empty. 


Extract re-do and restore 
points from the directory 
master record. 


ARIYI29 


Use re-do as a base checkpoint 
if start up reason is not R. 
Use restore point if it is. 


Check if checkpoints agree 
on dual logs (if not, make 
them consistent). 


ARTYLI9 


Scan the log fron base 
checkpoint forward deciding 
which LUWs to re-do or 
un-do. Enter this 
infornation in MAPARRAY 
(procedure YSLOGREC). 


ARIYLO4 


ARISYSDG 


ARTYLO5 


ARTYHOS 


ARTYLIO 
ARLYLI2 
ARIYI46 


ARIYLI9 


© Message log analysis 
completa. 


ARIYHO4 
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Read header of base checkpoint record or record at page 0 

Get storage for checkpoint record 

Read checkpoint record 

Error message if change from LOGHODE='A‘* to LOGHODE-='A' without 
shutdown archive and COLDLOG 

Tersinate if error nessage 

Read next log record 

Update BEGIN or SAVE leg record to point to current log record 


Terninate reading log record and unfix page 


Verify last log page sane for both logs (if dual logs) 
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DBSS Log/Recovery (continued) 
* Conpute the maxinurn log page 
used and obtain its sequence ARTYIIP Fetch aaxinum log page and fix it 


number. 
ARIYI46 Unfix maxinum log page 


[ener 


@ Hessage LUW UNDO complete. ARIYHO4 | 


® Re-do (from the base check- 


* Un-do (fron the base check- 
point backward) those LUWs 
that began before the base 
checkpoint and later rolled 
back or never ended 
(procedure YSUNDO). 


Read header record of previous checkpoint or LUW being undone 
Unfix log page just read 
Reclain shadow pages for updated DBSPACE 


Undo logged update operation 


point forward) those |.UWs ARTYLOG Read header record of previous checkpoint or next log record of LUW 
that conmitted after «he 

base checkpoint (procedure ARTYL1IO Read next log record 

YSREDO). 


ARIYLO? Redo logged update operation 
ARTYLOS Read log record next record pointer or body of checkpoint record 
ARIYI46 Terminate reading log record and unfix page 


ARIYI365 | Reclaim shadow pages for updated DBSPACE 


® Message LUW REDO complete. ARIYHO2 | CARIYT2Z9 06) 


[parmoe | 
® Create agents for any LUWs 
that were prepared for 

rollback or commit. ARTYMO2 
ARIYM04 
ARTYLOS 
ARICCRA 
ARIYK41 
ARTYI46 


ARICENA 


bd cboled do 


® Replace unused log records 
in the last log page with | ARIYLil | 
zeroes. 
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DBSS Log/Recovery (continued?) 


® Free storage gotten for 
MAPARRAY and log buffers. 


ARISYSD2 | Free log buffer storage 


ARICWSF Free MAPARRAY storage 


Return to caller 


upo> Log/kecovery (continued) 


PERFORM ARCHIVE 


ARTYL23 (Perform archive) 
(Called by ARIYLO8&) 


Initialize the archive 

indicators: 

~ ARCHST = OFF, archive 
scheduled bit 

- ARCHON = ON, archive 
executing bit 

- ARCHDBSS = OFF, all agents 
not in OBSS bit 


© Get I/O areas and storage for 
file descriptor block for 
1/0 routines. 


® Proapt operator to ready the 
archive tape on an output 
tape unit and reply ‘cuu'. In 
case of error in the reply» 
issue a message describing the 
error and re-issue the aount 
message, 


© Initialize the file descriptor 
block. 


© Dynamically assign (VSE only) 
and open the archive tape 
file. In case of error: 

- If cuu reply vas invalid, 
issue a message and re-issue 
the mount rnessage (VSE only) 

- Any other error causes 
SQL/DS to terminate. 


® Archive the directory disk 
by reading 512 byte records 
from disk, blocking thea inte 
4096 byte records and writing 
to tape. Tape write errors 
cause SQL/DS to terminate. 
The last record is made 
recognizable by the insertion 
of ‘'#OFRECSn' in the last 
ll byte positions. 
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| ARICWSG | 


ARTYM04 Operator prompt message or reply error aessage 


ARIYEOS Tokenize message reply 


ARIYE06 Convert ‘cuu’ hex to binary 


ARISYSO5 


ARTYMO4 


ARICTRM Terminate SQL/DS 


ARIYIO? Read directory disk 


ARISYSD5 | Write to archive tape file 
ARIYMO4 Archive file error nessage 


ARICTRN Terninate SQL/0S 
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DBSS Log/Recovery (continued) 


° After each tape write, test 
for log space or storage 
space depleting (ARCHEX = ON) 
and if so, quiesce the DBSS 
and continue vith archiving. 


Stop agents from entering DBSS and flag agents in DBSS 


ARIYK10 Wait for all tother) agents to leave DBSS 


Archive the data disk using 
the PBITMAPD (that is tabular 
method of representing storage 
pages vs. relative disk 
extents) to determine whether 
ox not a cell (512 pages) has 
any data in it. If any page 
in a cell has data in it, the 
entire cell is written to tape, 
Tape writing is controlled 

by an internal procedure 
L23WRRD. If tape vriting 
causes an error, an error 
message is issued and SQL/DS 

is terminated. 


ARTYIO7 Read data disk 


ARISYSOS | Write to archive tape file 


ARTYHOS Archive file error message 


Terminate SQL/DS 


After each tape vrite, test 
for log space or storage 
space depleting (ARCHEX = ON). 
If so, quiesce the OBSS 

and continue with archiving. 


ARTYKOS Stop agents from entering DBSS and flag agents in DBSS 


Mait for all (other) agents to leave DBSS 


When data disk archiving is 
complete, test to determine 
if DBSS vas quiesced. If so, 
allow it to become active. 


ARLYKO9 Mark this agent outside DBSS 


ARIYKL1 Allow all agents to enter DBSS 


Close the archive tape file 
with revind (in VM, the CHS 
ARTARCH FILEDEF command LEAVE 
option controls the rewind). 
A close error causes SQL/DS 
failure by returning to the 
caller with a failure return 
code, 


ARISYSDS 


Free the buffer storage. 


Return to caller 
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OBSS Log/Recovery (continued) 
RESTORE THE DIRECTORY DISK FROM ARCHIVE 


ARXYL21 (Restore the directory disk from archive) 
(Called by ARIYI22D) 


® Get I/O areas and storage for 
file descriptor block for I/O 
routines. 


ARICHSG 


Prompt operator to ready the 
archive tape on an input 
tape unit and reply ‘cuu' 

or ‘CANCEL’. If the operator 
replies ‘CANCEL’, issue a 
message and cancel SQL/DS. If 
the operator makes an error 
in replying 'cuu', issue a 
message describing the error 
and re-issue the rnount message. 


ARIYH04 
ARTYEOS 
ARIYE06 


Tokenize message reply 


Convert ‘cuu* hex to binary 


Cancel SQL/DS (CANCEL reply) 


Initialize the file descriptor 
block. 


Dynamically assign (VSE only) 
and open the archive tape 
file. In case of error: 
- Issue an open error message 
- If cuu replay was invalid, 
issue a message (VSE only) 
- Re~issue the operator amount 
message (restart from second 
bullet). 


| ARISYSDS 
ARIYMOG 


Messages 


Read each 4096 byte record 
from archive tape, deblock 
it into eight 512-byte 
records, and vrite it to the 
directory disk. Tape or disk 
errors cause a message to he 
issued and SQL/DS to he 
terminated. Continue reading 
the tape until a record is 
read with 'ROFRECSn’ in the 
last li bytes. 


ARISYSOS 


ARIYIO7 
ARIYM04 


Read archive tape file 


Write to directory disk 


Archive file error message 


Terninate SQL/DS 


Return to caller 
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Operator prompt message or reply error aessage or CANCEL nessage 
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DBSS Log/Recovery (continued) 
RESTORE THE DATA DISK FROM ARCHIVE 


ARIYL22 (Restore the data from the archive) 
(Called by ARIYTOO) 


® Determine the disk address of 
the first cell (512 pages) that 
was written to tape at archive 
time. (Each cell that contained 
any data was written to tape.?} 


® Read each $096 byte record from 
\tape and write it to the 
just determined disk address 
using an internal procedure, 
L22ROWR. Tape or disk errors 
cause a message to be issued 
and SQL/DS to be terminated. 


ARISYSDS | Read archive tape file 
ARTYIO7 Mrite to data disk 


ARTYM0G Archive file error sessage 
| Continue until the data base 


| ARICTRH | Terninate SQL/DS 
has been restored. 


® Close the archive tape file [ snrsysos | 
with revind (in VM, the CHS 
ARIARCH FILEDEF command LEAVE 
option controls the rewind). 
4 close error causes an 


operator message but it is 
othervise ignored, 


® Free buffer storage 


Return to caller 


BBSS LOCK 


# Called fron nurerous nodules (see "Module-to-Module Cross Reference” 
in Volune 2), including ARIYKOL and ARIYK28 
ARIYK41 (Request Access to a Named Gate) 


Input for ARIYK4! is: 
GNAME ~ Gate nane 
HISMODE ~- Mode requested 
HISDUR - Duration requested 
CONTROL - TEST or WAIT 


® Verify multi-user node. If 
not, indicate success and Return to caller 
® Determine the hashed gate name. 


® Seize the hash chain. ARIYK04% 
® Search for the desired gate 
name in the hash chain. If 
it is not found, the lock is 
free. If the requested dura- 
tion is instant, release the 
hash chain, indicate success, 
and 
Othervise, allocate the lock to 
the caller by obtaining LRBs 
for the gate header and the 
lock LRB. 


ARIYKO5 


Ue 


Return to caller 


® Release the hash chain, format 
the LRB and the gate header, 
and add the gate to the hash 
chain. 


- 


ARIYKO5 


@ If the number of LRBs has been 
exceeded, try to escalate the 
locks. If escalation fails, 
indicate LRB limit and 


ARIYK22 


i 


Return a "~1"' to caller 


If escalation succeeds, indicate 
success and 


Return to calier 
@ Check for the desired gate nane: 
- If the desired gate name vas 
found in the hash chain 
and if this request is J ARIYKO5 
compatible with the holders 
of the lock, release the hash 
chain, indicate success, and Return to caller 
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OBSS Lock (continued) 


~ If the desired gate name was 
not found, seize exclusive 
access to the gate and 
release the hash chain. 


ARTYKO4 


ARIYKOS 


® Scan the chain to the end of the 
the granted group, noting the 
conversions. 


® If a conversion is found, 
compute the new duration and 
upgrade the requested mode. 


~ If the requested node now 
equals the held node, set ee 
the held duration equal to 
the requested duration, 
release the gate, indicate 
success, and 


> ARTYKO5 


~ If this request is the only 
one in the granted group, then 
convert mode, duration, and 
class. Then mark (LOCKWAIT 
macro) each vaiter in the 
chain (vho is not compatible 
with this request) as waiting 
for this request, release the 
gate, indicate success; and —— 


> ARIYKO5 


- If the new mode of this 
request is compatible vith the 
mode of other granted requests 
mark any incompatible 
requests as waiting for this 
request, release the gate» 
indicate success, and 


ARIYKOS 


=- If the requester does not 
vant to wait for the lock, 
welease the gate, indicate 
failure, and 


ARIYKOS 


~ If the requester does want 
to wait for the lock, then 
nak (LOCKNWAIT nacro) this 
request as waiting for 
inconpatible requests and 
wark CLOCKNAIT macro) all 
requests as waiting for me. 
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Return to caller 


Return to caller 


Return to caller 


Return to caller 
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DBSS Leek (eontinued) 


~- Test for deadlock. 


a. If deadlock is found and 
this request is the 
victim, set backup indi- 
cator, mark (LOCKWAIT 
macro) this request as not 
waiting, deny the e 
request, grant the request 
that this request is 
holding up» release the 
gate, indicate failure, 
and 


ARIYK12 


ARTYYe3 


ARIYKO5 


Return to caller 


b. If deadlock is not found, 
test for the following 
conditions and deny the 
lock if any of then is 
true: 

User generated backup,» 
LUW aborted or forced, or 
LUW stopped. 


If none of the above is 
true, wait for the 
request to be granted or 
denied. 


ARTYKI8 


Once the request is 
granted or denied, mark 
(LOCKWAIT macro) this 
request as not waiting. 


If request vas denied, 
release the locks 
indicate failure, and 


ARTYKOS 


Return to caller 
If request vas granted and 
request vas instant, 


ARIYKOS 
release the lock, 
indicate success, and Return to caller 
@ If a conversion is not found: 
- If waiting is not required, 
release the gate» allocate = ARTYKOS | 
the lock to the caller by 


obtaining LRB» format the 
LRB, indicate success, and Return to caller 
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DBSS Lock (continued) 


- If waiting is required and 
this requester does not want 
to wait for the lock, release 
the gate, indicate failure, 
and 


ARIYKOS 


Return to caller 


~ If waiting is required and 
this requestor does want te 
wait for the lock, allocate 
the lock to the caller by 
obtaining an LRB, format 
the LRB, and set status to 
wait. Mark (LOCKHWAIT macro) 
this request was vaiting for 
each incompatible LRB and all 
requests waiting ahead of 
this one. Enqueue this 
LRB on the end of the queue 
and release the gate. 


— Test for deadlock. 


a. If deadlock is found and 
this request is the 
victia, set backup indi- 
cator, mark (LOCKWAIT 
macro) this request as 
not waiting, release the 
lock, indicate failures 
and 


ARIYT23 
ARTYKOO 


Return to caller 


b. If deadlock is not found, 
test for the following con- 
ditions and deny the lock 
if any of thex are true: 

User generated backup» 
LUW aborted or forced, or 
LUW stopped. 


If none of the above is 
true, wait for the lock 
to be granted or denied. 
Once the request is 
granted or denied, mark 
(LOCKWAIT macro) this 
requester as not waiting. 


ARTYK16 


If the lock vas denied, 
deny the request, grant 
the requests that this 
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DBSS Lock (continued) 


request is holding up» 
release the gate, indicate 
failure, and Return to caller 


If the lock was granted, 
indicate success and Return to caller 
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OBSS Lock (continued) 


* Called from numerous nodules (see “Hodule-to-Module Cross Reference” 
in Voluxe 2), including ARIYKO1 and ARIYK28 
ARIYKOO (Release Access to a Named Gate) 


Input for ARIYKOO is: 
SATENAM - Name of the gate 


Verify multi-user mode. 
not, return to caller 


If 


Determine hashed gate nane. 
Seize the hash chain. 


Search for the gate header vith 
this name: 

— If not found, release the 
hash chain, indicate that 
the lock was not held; and 
return to caller. 


ARTYKOS 


RETURN 


If a gate header is founds 
seize exclusive access 
to the gate. 


ARTYKO4 


Search for the LRB of this 
request in the queue: 

- Tf not found, release the 
gate and the hash chain» 
indicate that the lock was 
not held, and return to 


>} ARIYKOS 


caller. RETURN 
- If the LRB is found, and it 
is a long lock, release the 
gate and the hash chain, 
indicate that the lock is 
still held, and return to 
caller. RETURN 
- If the LRB is found and it is 
medium duration, decrement 
the duration by 1, release 
the gate and the hash 
chain, indicate still held, 
and return to caller. RETURN 


~ Ig the LRB is found and it 
is neither long or nediun 
duration, remove the LRB 
from the queve, 


Licensed Material - Property of IBM Method of Operation 425 


DBSS Lock (continued) 


® If there are still entries on 
the queue,» release the hash 
chain and mark CLOCKWAIT 
macro) this request as not 
vaiting and no request waiting 
for it. Mark all newly 
compatible conversions, if any» 
as not waiting, and aark all 
incompatible ones» if any» as 
waiting for the newly granted 

ones. 


ARTYKOS 


ARIYKI9 


If the queue is null, deallocate 
the gate header and release 
the hash chain. 


ARTYKO5 


Take the LRB off the list of 
LRBs held by this LUW, update 
GOODLOCK (the most recently 
acquired lock), indicate 


released, and return to caller. RETURN 
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ISOL CINTERACTIVE STRUCTURED Ly 
ISQL OVERVIEW 


Running ISQL on VSE or VM differs with respect te ISQL 
startup. On VSE, two CICS transactions are required (see 
page 28 for an overview). On VM; only one load module is 
required, Once the Mainline Loop Controller (ARIIDBS) is 
called, processing is the same for both VM and VSE (page 
432). 


On VSE, the first of the tuo transactions, ISQL, is the 
terminal control transaction. The ISQL transaction is 
started by CICS when the user enters "ISQL" on a terminal. 
(See page 429 for an overview of the nodule flow for the 
ISQL transaction.) The second transaction, CISQ, is the 
command processor transaction. CISQ is started by the ISQL 
transaction and interacts with the Online Resource Manager 
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to access the data base. (See page 430 for an overview of 
the nodule flow for the CISQ@ transaction.) A block of 
shared storage (ARIIGCBH) is used for communication betveen 
the tuo tasks (see Volume 2). 


On VM, the ISQL load nodule (ARIISQL) is loaded by a 
bootstrap (ARISISBT) when the user enters "ISQL" on a 
terminal. (See page 431 for an overview of the nodule flow 
for the ISQL load module. } 


Upon completion of initialization, whether VSE or VM, 
control is passed te the Mainline Loop Controller (ARIIDBS),» 
and ISQL processing is the sare for both VSE and VM. 
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ISQL (continued) 


ISQL STARTUP - VSE 


ISQL TRANSACTION 


STARTED BY CICS 
INITIALIZATION 

CHECK TERMINAL SIZE 
DISPLAY SIGN ON 

READ USERID/PASSWORD 
START CISQ 

WAIT FOR CISQ 


@eeoe0eeee 


® COMPLETE INITIALIZATION 
® WAIT FOR CISQ 


® DISPLAY STATUS MESSAGE 
© POST CISQ 
® WAIT FOR CISQ 


CISQ_ TRANSACTION 


@e@eeeeseese 


INITIALIZATION 

OBTAIN GCB 

OBTAIN ISQL STORAGE 

POST IS@L 

CONTINUE INITIALIZATION 
POST ISQL (STATUS MESSAGE) 
WALT FOR ISQL 


COMPLETE INITIALIZATION 
POST ISQL TO READ A COMMAND 
WAIT FOR ISQL 


Loop until user enters "EXIT" for ISQL abends): 


© WRITE/READ/POST/WAIT 
end loop 


© CLEAN UP/FOST CISQ 
® RETURN TO CICS 
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7) 
e 


PROCESS THE COMMAND 
POST/WAIT 


CLEAN UP - RETURN TO CICS 
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KSQL (continued) 
ISQL Transaction 


ARIICICD 
ARIIMGA 2 
aRrsysp2> 
ARISYSDG® 


ARTIFULD 
ARTISCHO 


See page 434 for details 
PF-key error messages 
Dynamic storage FREEMAIN 
dynamic storage GETMAIN 
CICS SEND/RECEIVE/WALT 
WALT/POST loop 

Verify Cancel 
Full-screen processing 
15-second wait 

Display Formatter 

PF-key processing 


ARIIVFYD 
5 


ARIIPFKD 


~w~ovoewvrouwnerun 


we 
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ISQL (continued) 


CXSQ Transaction 


ARIICI2D 
aRTIcr2p* 
AVISYSDG* 
ARISYSD2° 
ARIYGH* 
ARIIFM> 
ARIIWAIT® 
ARIITS? 
ARIITIO® 
ARITENQ? 
ARTIDEQ!° 
ARIIRTRN?! 

ARIITOP?# 

ARIIROUT** 

ARTISTXT #4 

ARIISPGE #5 


ARIIMSG2° 


ARIISQL3?8 ARIISTK25 
V7 


=a 
1 Hainline initialization 13 CICS ROUTE Routing 
2 automatic Storage GETMAIN 14 CICS Send Text Routine 
7 automatic storage FREEMAIN 15 CICS Send Page Routine 
* Buffer storage GETMAIN 16 Mainline loop» see page 432 for details 
5 Buffer storage FREEMAIN 7 Setup online resource manager exit routine 
© Wait for terminal I/O 18 connect user ID/passuord 
? Temporary storage control 1% Obtain SQL/DS userid 
® Restart ISQL transaction 20 YsaL message nodule 
* Resource ENQ routine 22 sat message nodule 
1° Resource DEQ routine 22 Profile routine 
cP Return to CICS routine 23 obtain Stack Storage, see page 451 


Trace Dump Routine 
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ISQL (continued) 
ISQL on UM 


Cues aunh we 


ARIINITC * 


ARIISysc ® ARIISTK 2 ARIIsaLe > 
ARIISTC 
ARISYSDG 
ARIIABN 
ARISYSO2 
ARIITS 
ARTIFM 
ARIITOP 
ARIIGM 


ARIISYS 


Mainline initialization (ARIINITC called by bootstrap nodule ARISISS8T) 
Obtain storage for ISQL dynamic storage stack (see page 451) 
Establish CANCEL as an immediate command 
Profile routine processing 
Mainline loop (see page 432 for details) 
System dependent subroutines for CHS (CNS version of 
ARIINITC subroutines: 

ARISYSDG - Get automatic storage 

ARISYSD2 - Free automatic storage 

ARIIGH - Get buffer storage 

ARIIFH Free buffer storage 

ARIITABN Abend exit/cleanup 

ARIITS - Temporary storage processing for routines 

ARITTDP - ISQLTRACE DUMP processing 

ARIISYS - Get storage for ARIISYSC automatic storage 
area 
Check program stack 


ARIISTC 


Licensed Material ~- Property of IBM 


Hethod of Operation 431 


ISQL (continued) 


432 


ARTICHD2 
ARTIEXIT 


ARIIOP 


ARTIBIN 
ARTICAN 
ARIIERS 
ARTIHLO 
ARTIHLP 
ARTTIGN 
ARTILST 
ARTIMAP 
ARTIREC 
ARTIRNM 
ARTIRUN 
ARIISCC 
ARTISCC] 
ARTISET 
ARTISTR 
ARIITRC 
AXTCHNDS 
ARTIRWI 
ARIITKN 
ARTISQL 
ARTISMG 
ARTIMSG 
ARIIVLD 


[al 


\7 


(from page 430 for VSE) 
(from page 431 for VM) 


ARIIDBS! Mainline Loop Controller 


ARIICAN®? ARIIPQL® | ARIIRHI? | 


ARIIRWI 


ARTISQL 
ARIISMG 
ARTINSG 
ARIITS 


See page 
See page 
See page 
See page 
See page 
See page 


Tokenizer 


i ad ool 
eUNeXw ODAaN OU RUN m= 


437 for 
438 for 
445 for 
446 for 
433 for 
433 for 
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ARIIPSQ> ARTICAN ARIITS }2 
ARIIFOL 


ARIIFOR 


ARIITS 
ARTITIO 


details. 


details. 
details. 
details. 
overview and page 446 for detuils. 
overview and page 447 for details. 


SQL Message Processor 

Ternporary Storage READ/WRITE/DELETE 
ISQL Message Processor 

Extract Command Processor 


ARIIHLD ® arrisat 9 


ARIITKN *° ARIistG 3} 


ISQL Read/Write Linkage routine, see Section 3 for details. 
ISQL HOLD command 
SQL Command Processor» see 450 for details. 
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ISQL (continued) 


DISPLAY PROCESSING 


ARTIPQY 


ARTIPQY) 
ARIIPQY2 
ARITIPQYS 
ARIIPQY4 
ARTIPQYS 
ARTIPQY6 


4 L | 


6 7 6 
ARTIFHT ARIIHDR ARIIFET | ARTIOVD | | ARIIFCC | ARIIFCI 


ARIIFCII SERVICE 
ARTIFCI2 ROUTINES 


, ay ARIIFCS ARTIRWI 

a ARIIFN 

ARTICNV 

AREISMG 

1 SQL Statenent Processor ARIITKN 

# SQL Query Processor ARTIVLD 

7 ISQL Print Routine: ARTIPRTD (VSE), ARIIPRTC (VM/CHS) ARTIMSG 

* sQL Query Display Manager ARTISQL 

5 FORMAT Command Processor ARIIPRT 3 
® Display Manager — Row Forzatter 
? Oisplays Column Headers 
® Display Manager ~ Result Fetch 
% Conversion Routine 
i Report Formatter 


SQL Executor 
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ISQL (continued) 
ARIICICO 


ARIICICD provides a linkage 
between the user terminal and 
the second transaction. ARIICICD 
gains control frorm CICS in the 
following vays: 


® ARIICICO gains control from CICS 
at the start of the ISQL session 
when the user enters the ISGL 
transaction-id at the terminal 
(optionally folloved by a routine 
name and parameters). =] 


ARIICICD gains control from CICS 
during the ISQL session when the 
user enters the ISQL transaction 
identifier followed by CANCEL 


(when the transaction has “gone 
avay"). | A Page 435 
NZ 


ARIICICD gains control from CICS 
during the ISQL session when it 


is started by the second 


transaction issuing a CICS 

START command. [es | Page 436 
V7 

Obtain terminal dimensions, 

terminal type, and CICS start 

code via CICS ASSIGN conmand.¢— cIcs 


Set up parazeters to pass to 
the second transaction. 


Display the velcome screen 
and read user reply (userid 
and passuord). cics 


Set up userid and passvord 
for passing to the second 
transaction. 


Start the second transaction 
via EXEC CICS START command and 
pass the userid and passvord. eics 


~- After starting the second 
transaction, WAIT on it. (The 
second transaction GETMAINs 
storage on behalf of the first 
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ISQL (continued) 


transaction, and returns the 
address of the storage. It 
also returns the address of 
the global control block.) cics 
Initialize storage returned 
by the second transaction 
(this storage is used for 3270 
data streams), 


Initialize global control 
block fields. 


Set up the WAIT/POST linkage 
loop betueen the tuo 
transactions. 
On return from ARIITRIMO, 
check bits in global control 
block. If IGCEXIT bit is on; 
do session termination (this 
includes deleting temporary 
storage queue, and freeing 
3270 data stream storage). 
If IGCRETRN bit is ons do 
"going avay" processing (this 
includes writing the global 
contro] block address to the 
temporary storage queve). 


cIcs 


Call ARIISCND to display 
either a message for 

terminating the session» or a 
message for "going away". 


Return te CICS. 


Verify that the user entered 
CANCEL. If not» prompt the 
user for valid input, 


If the auto commit bit is off 
{IGCAUTOC), call ARIIVFYD to 
do CANCEL verification pro- 
eesSing. Format a rnessage to 
indicate the status of the 
CANCEL request based on the 
value of IGCANCEL. 


If the auto commit bit is on,» 
set IGCANCEL to on. Format a 
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ISQL Ccontinued) 


"CANCEL ACCEPTED..." message. 


Write the global control 
pointer to the temporary 


storage queue. > CICS 


Display the CANCEL request 
status message (along vith the 
“going avay message). 


| ARIISCHO 


crces 


[ec | Page 435 


\/ 


Return to CICS. 


Re-initialize local and 
global variables. 
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ISQL (continued) 
ARTIDBS 


ARTIDBS is the mainline 
controller for ISQL. 


ARIICAN performs the cancel 
process and deletes the 
temporary storage queue for 
routines. 


ISQL Cancel Routine 
(See page 445) 


ISQL Read/Write Linkage Module 


ARIIRWI writes a line and 
reads user input. 


May Call: To: 
ARIICAN — Perform cancel processing 
ARIIFOL — Determine if input is a valid SQL or ISQL 
command, and to fold input fron terminal 
to upper case. 
(entry point in ARIICI2D (VSE) or ARYISYSC 4VM)) 
Cleanup storage for routines. 
ARIITIO = (entry point in ARTICI2ZD (VSE) or ARIITIOC (VM)) 
VSE - Perform START/POST/WAIT linkage to the ISQL 
transaction to do terminal I/O. 
VM - Perform terminal I/O using the VN services 
of RDTERM, MRTERM; and DIAG. 
ARIIFOR ~ Format a nessage. 


ARIITS 


ik 


ISQL Command Processor 


ARIICHD ISGL Command Processor 
{See page 438) 


UU 


ISQL SQL Buffer Manager 
(See page 446) 


ISQL HOLD Connmand Processor 
(See page 486) 


When an "EXIT command is 
entexed, ARYIO8SS returns to 
ARTICI2D (VSE} ox ARTINITC (VM) 
to perform cleanup, 
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ISQL (continued) 


ARTICMD (Called by ARIIDBS) 


ARIICMD processes the anain ISQL 
commands or calls other modules 
for certain ISQL conmands. 

(See page 443 for 

details on internal 

routines.) 


ARTIVLD validates commands and 
initializes the pointer 

CIGCCRTN) to the address of the 
routine to process the command. 


ARTICHMO then: 


® Calls the routine to process 


438 


tne command, or 


Prints an error rnessage 
if the pointer €IGCCRIN) is 0. 
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Extracts tokens or parareters 
ARIITKN Tokenizer 
ARIIVLD ISQL Command Validation Routine 


(entry point 
ISQL Message 


ARIYM04 — 


ARIIBIN - 


= ISQL CANCEL 


ARIICAN 


in ARIIMS6) 
Module 


May Cali: To: 
ARIIFOR — Format ISQL messages. 
ARIIRWI — Perform ISQL read/write linkage. 


ISGL INPUT Command Processor 


May Cali: To: 

ARIISQL - Issue SQL statenents; namely, PREPARE, 

DESCRIBE. ROLLBACK, EXECUTE IMMED, and 

COMMIT WORK. 

Read input and write colvan nares. 

Extract parameters or tokens. 

Determine if the command is a valid 

ISQL conmand. 

Display SQL error messages. 

Sean for the correct tablenanme. 

(entry point in ARIICI2D (VSE) or ARIISYSC (VM)) 
Get storage. 

(entry point in ARIICIZ) (VSE) or 
Free storage. 

fentry point in ARIIMSG) 

Write ISQL sessages. 


ARIIRWI ~ 
ARIITKN - 
ARITIVLD — 


ARIISMG — 
ARITINAE = 
ARIIGN = 
ARIIFH - ARIYSYSC (VM)) 


ARITYHOG — 


Command Processor 


: To: 

— fentry point in ARTICY20 (VSE) or ARIISYSC 
Cleanup storage for routines. 

ARTISQL — Issue a SQL ROLLBACK. 

ARIISNG - Display SQL messages. 


(VRS 
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ISQL ERASE Command Processor 


ARTIHLP 


Hay Call: To: 

ARIITKN — Extract parameters or tokens. 

ARTISQLI — Issue canned SQL commands; namely» 
the DELETE command that will 
delete the stored query from the 
stored queries table. 

ARTISQL -— Issue a COMMIT WORK. 

ARLISHG - Display SQL error messages. 

ARIYHOG = (entry point in ARIINHSG) 
Display ISQL nessages. 


ISQL HELP Command Processor (for online documentation) 


May Call: Teo: 

ARTIGH = (entry point in ARIICI2D (VSE) ARIISYSC {VH)) 
Get storage. 

ARIITKN — Extract parameters or tokens. 

ARIISQL4 — Verify that the topic entered is a HELP 
topic. 

ARIISQL5 — Verify that table SQLDBA.SYSTEXT2 is there. 

ARTISQL6 — Verify that table SQLDBA.SYSTEXT2 contains 
the topic entered. 

ARTISQL9 = See if table SQLDBA.SYSTEXT2 is empty. 

ARIIPSQ =— Process the internally built SELECT 
command to retrieve the HELP 
information. 

ARTISQL = Perform a COMMIT WORK. 

ARIISHG = Display SQL error ressages. 

ARIIFH = (entry point in ARTICI2D (VSE) ARIISYSC (VM)) 
Free storage. 


ISQL IGNORE Comaand Processor 
ARIITKN — Extract parameters or tokens. 
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SQL (continued) 


ISQL LIST Comnmand Processor 


ARTILST May Call: Jo: 

ARIITKN — Extract parameters or tokens. 

ARIIQRY — Process LIST SET command, 

ARIIGH <= (entry point in ARIICI2D (VSE) ARLISYSC (VM)) 
Get storage. 

ARIISQLI - Issue canned SQL statement te recall a stored query. 

ARIIRWI —- Display SQL statements. 

ARTYMOS4 — (entry point in ARIIMSG) 
Display ISQL messages. 

ARIISMG —- Display SQL error messages. 

ARIIFM <= (entry point in ARIICI2D (VSE) ARIISYSC (VM?) 

Free storage. 

Retrieve names and first 50 characters 

of the users SQL commands. 

ARIISQL = Performs COMMIT WORK. 


ARIISQL2 


ISQL ISQLMAP Routine 


ARLIMAP Hay Call: To: 


ARIIRWI - Display the aap of ISQL aodule addresses. 


ISQL RECALL Command Processor 


ARTIREC May Call: To: 

ARLITKN ~- Extract parameters or tokens. 

ARIIRWI = Display the current SQL statenent. 

ARTIPQLI — Move current SQL comnand to previous 
buffer. 

ARIISQGLI — Issue stored SQL statenents; nanely» 
SELECT te retrieve the stored query 
from the stored queries table. 

ARIISMG = Display SQL error messages. 

ARTYMNOS = (entry point in ARIIMSG) 

Display ISQL messages. 

ARIISQL = Issue SQL statements. 
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TISQL (continued) 


ISQL RENAME Command Processor 
a ahs Ye 
ARIITKN = Extract parameters or tokens, 

ARIIPQL1 — Move current SQL statement te previous 
buffer. 

ARIISGL1 — Issue stored SGL statements: namely, 
SELECT to retrieve the stored query from 
the stored queries table, INSERT to insert 
the stored query under its new name, and 
DELETE to delete the oid stored query. 

ARIISHG — Bisplay SQL error messages. 

ARITSQL =- Issue ROLLBACK command. 

ARTIRWI —- Display SQL statenents. 

ARTYMO04 — (entry point in ARIIHSG) 

Display ISQL messages. 


TSQ1L RUN Command Processor 
ARIITKN -— Extract parameters or tokens. 
ARIYSQL = Issue SQL statenents; narely, PREPARE, 
DESCRIBE, OPEN, FETCH, and CLOSE. 
ARIISHG — Display SQL error messages, 
ARIITS = (entry point in ARTICI2D0 (VSE} ARIISYSC (Vt) 
On VSE: Purge routine queue» write in temporary 
storage, and delete storage. 
On Vii: Create program stack, delete program stack», 
vrite cornmands in progras stack. 
ARIISUB — Substitute paraneters into the SQL statements, 
ARTYHOS -- lentry point in ARIINSG) 
Display ISQL sessages. 


CHANGE Coanand Processor 


ARTISCC May Call; To: 

ARTIITKN — Extract parameters or tokens. 

ARIIGM = (entry point in ARIICI20 (VSE) ARIISYSC (VM)) 
Gets storage. 

ARIIRWI - Display the changed SQL conamand. 

ARTYHOG — (entry point in ARTINSG) 
Display ISQL nessages. 

ARIIFMH — (entry point in ARIICI2D (¥YSE) ARIISYSC (VM)) 
Frees storage. 
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ARIISCC] May Call: 


ARIISET May Call: 


ARIITKN — 
ARIIOVD —- 
ARTIIST2 — 
ARTISTS - 


ARIYMN04 — 


ARIITKN <= 
ARTIPQLL = 


ARTISQLI - 


ARTISMG - 
ARIIGN -— (entry point in ARIICI2D (VSE) ARIISYSC (VM)) 


ARIIFH - 


START Command Processor 


Te: 

Extract parameters or tokens. 
{entry point in ARIIPQL) 
Moves current SQL statenent 
to previous buffer. 

(entry point in ARIISQL}) 
Issues canned SQL commands. 
Displays ISQL SQL Messages. 


Gets storage. 


ARIISUB = Substitutes parareters into 


SQL staterents. 


ARTIRWI = Display START command or SQL command being started 
ARIIPSQ = Examines the current SQL 


statement. 
(entry point in ARIICI2D (VSE) ARIISYSC (VM)) 
Frees storage. 


ARITYHOS = (entry point in ARTIMSG) 


Display ISQL nessage. 


- ISQL SEY Command Processor 


To: 

Extract parameters or tokens. 

Deteraine if the operand is valid and to 
find the address of the routine to handle 
the operand. 

Process AUTOCOMMIT, CASE, CONTINUE or 
DECIMAL operands. 

Process NULL, PAGESIZE, SEPARATOR or 
VARCHAR operands. 

(entry point in ARIIMSG) 

Display ISQL messages. 


Te: 


ISQL STORE Command Processor 
| ARIISTR 4 Hay Call: 
ARIITKN - Extract parameters or tokens. 


ARTISQLI] = Issue canned SQL statements; namely» 


SELECT to select the stored query nanze 
to see if it exists, DELETE to delete 
the stored query from the stored queries 
table, and INSERT to insert the stored 
query inte the stored queries table. 


+ ARYISQL = Issue the COMMIT WORK ox ROLLBACK WORK. 
ARIISNG ~ Display SQL error messages. 
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ISQL (continued) 


Entry point for AXTCENTD (if EXTRACT is used), see page faxtcentd. 


Entry point for ARIIEXT (if EXTRACT is not used), see page 486 


ARITEXIT: 


ARIIEXIT processes the 
EXIT ISQL command. 


If user is in autocomait mode» 
ISQL is ended by user request 
after calling ARIISQGL to 

perform a rollback. 

If the user is not in autoconmit 
node, then call ARIISQL to 
perform a COMMIT or a ROLLBACK 
before exiting; othervise, 

just exit. 


ARTIOP: 


ARIIOP precesses ISQL 
operator commands. 
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Gets the next paraneter 


Issues SQL statements 


(Sea page 450) 


(entry point in ARIINSG) 
ISQL Message Module 


Pannen ay cans es 


ARIIFOR — Format ISQL messages. 
Displays IS@L SQL Messages 


ARIXRWI — Perform ISQL read/vrite Linkage. 
fosarene —} ty gant te 
ARIMSHF = Link the SQL user and SQL/DS 


common message formatter routine. 
ARIIRWI —- Perform ISQL read/write linkage. 


Operater Conmand Linkage Routine 


Pacer}, tae cans 


ARTIGH -— fentry point in ARIICI2D (VSE) ARIISYSC {VM)) 
Get storage. 

ARIIPROI — Get or receive operator comrand data. 

ARIIFM -=— fentry point in ARIICI2D (VSE) ARIISYSC (VM)) 


Free storage. 
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SQL (continued) 


ISQL Read/Write Linkage Module 


ARIIRWI May Call: To: 
ARIICAN = Perform cancel processing and delete 
the temporary storage queue for routines. 
ARIIFOL = Determine if input is a valid SQL or ISQL 
command, and to fold input from terainal 
to upper case. 
> ARIITS - (entry point in ARXYICI2D (VSE) ARIISYSC (VMN)) 
Cleanup routine storage. 
~» ARIITIO = fentry point in ARIICI2D (VSE) ARIITIOC (VMN)) 
VSE - Perform START/POST/WAIT linkage to the ISQL 
transaction to do terminal I/O. 
VM -<- Perfora terminal I/O using the VM services 
ef ROTERM, WRTERM, and DIAG. 


(entry point im ARIIMSG) 


ISQL Message Module 
| ARTYM04 + May Cali: To: 
- ARIIFOR — Fornat ISQL messages. 
ARTIRWI — Perform ISQL read/vrite linkage. 
Displays ISQL SQL Messages 
ARTISMG , May Calli: To: 
ARIMSMF - Link the SQL user and SQL/DS 
common message formatter routine. 
ARIIRWI - Perform ISQL read/urite linkage. 
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ISQL (continued) 
ARIICAN 


ARIICAN is the ISQL CANCEL 
routine. 


If a CANCEL occurred 
already, 


If a CANCEL has not occurred, set 
IGCICANR on. The CANCEL does 
not need to be done again. 


* If IGCPROC = ON, 


Issue ‘Routine Canceled’ 
message 


® If the ROLLBACK was 
not done by the Online 
Resource Manager, 


If the ROLLBACK is 
not successful, 


Issue ‘Rollback Failed‘ 
aessage. 
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Return to caller 


ARTISQL 


Sets up 


{entry point in ARIICI2Z2D (VSE} ARIISYSC (VM}} 
Delete Temporary Storage Routine (VSE) 
Drop program stack (VM) 


Issue a ROLLBACK 
(See page 450) 


IsQL SQL Error Messages for Display 


Hay Call: To: 

ARIMSHF — Link the SQL user and SQL/DS 
common message formatter routine. 

ARIIRWI -— Perform ISQL read/urite linkage. 
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ISQL (continued) 


ARTIPQL {Called by ARIIDBS) 


ARIIPQL is the SQL buffer manager. 
It copies SQL statenents 

fron the current buffer to the 
previous buffer and fror the 

input buffer to the current 
buffer. 


ARIIPSQ examines the current 
SQL statement and process 
it accordingly. 


ARIIPSQ (Called by ARIIPQL) 


ARIIPSQ checks for valid types of 
SQL statenants and processes 
them accordingly. 


ARIITKN 


ARIYH04 (entry in ARIINSG) builds 
and displays ISQL messages. 

Tre messages inform you what has 
just heen executed or prompt 4 
you for a response. 


ARTYHOS 


ARITISMG builds and issues 
formatted SQL messages. 


ARTISQL issues SQL statements. 


ARIISQL 


uv 


ARIIPQY processes 


the query statements. 


ARTIPQY 
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(entry point in ARIINS6) 
— ISQL Message Module 


Extract parareters or tokens. 


May Call: To: 

ARIIFOR — Format ISQL messages. 

ARIIRWI - Performa ISQL read/urite linkage. 
Displays ISQL 5QL Messages 


May Call: To: 


Link the SQL user and SQL/0S 
common message forratter routine. 
Perform ISQL read/write linkage. 


Issues SQL statenents 
(See page 450) 


Processes the SELECT statenent 
(See page 447) 
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ISQL (continued) 
ARIIPQY (Called by ARIIPSQ) 


ARIIPQY processes the SELECT 
statement. 


ARIICNY converts numbers 


to printable form. ISQL Number Conversion Routine 


If SQLDA exists, ARIIFM frees 
up SQLDA. Then ARIIGN sllocates 
storage for the SQLDA structure. 


(entry point in ARITICI2D (VSE) ARIISYSC (VM)) 
FREEMAIN Routine — Frees storage 


(entry point in ARIICI2D (VSE} ARIISYSC (Vi))} 
GETHAIN Routine — Gets storage 


fentry point in ARIINSG) 
TSQL Message Module 


May Call: To: 
ARIIFOR — Format ISQL ressages. 
ARTIRWI — Perform ISQL read/write linkage. 


ARIYMOS (entry point in ARIINSG) 
displays a message if not 
enough storage is available. 


ARTYM04 


ARIISQL performs the SQL PREPARE 


and DESCRIBE process on the 
SQL statenent (in INSTRING). 


ARIISQL Issues SQL statenents 
iSea page 450) 


If the PREPARE or DESCRIBE Displays ISQL SQL Messages 
process executes incorrectly» 
ARIISMG displays a SQL error 
message. 


May Call: To: 

ARIMSHF ~ Link the SQL user and SQL/DS 
common message formatter routine. 

ARTIRWI — Perform ISQL read/urite linkage. 


If the number of coluans in the 
query result is greater than 
SQLN (10), ARTIFM frees the 
initial SQLDA structure. 

ARIIGH gets storage for SQLDA:; 
and the DESCRIBE process is 
executed to get a 

description of the query result. 


(entry point in ARIICI2D (VSE} ARIISYSC (VN)? 
FREEMAIN Routine — Frees storage 


{entry point in ARIICI2D (VSE) ARIISYSC (VM)) 
GETMAIN Routine — Gets storage 


ARTISQL Issues SQL statenents 
(See page 450) 
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ISQL (continued) 


ARIIFM frees the buffer and 
holding tank. Then ARIIGM 
gets storage for the buffer 
and holding tank. ARTIGH (entry point in ARIICI2D (VSE) ARIISYSC (VM)} 
GETMAIN Routine — Gets storage 


(entry point in ARIICI2D (VSE) ARIISYSC (VM)3 
FREEMAIN Routine ~ Frees storage 


ARIISQL executes the SQL 
‘declare cursor’ and SQL ARTISQL Issues SQL statenents 
‘open cursor’ process. (See page 450) 


ARIIOQY performs the fetching, 
formatting, and displaying of —> | ARIIOQY 
the query result. 


Displays ISQL SQL Messages 


If any of tha above threa con- 
ditions executes incorrectly, 
ARIISMG issues a SQL error 
message. Then ARIIFM frees the 
SQLDA, buffer, line buffer, and 
the holding tank. (Then return 
to the calling routine.) 


May Call: To: 

ARIMSMHF — Link the SQL user and SQL/DS 
common message fornatter routine. 

ARIIRWI — Perform ISQL read/vrite linkage. 


ir 


(entry point in ARIICI2D (VSE) ARIISYSC (VH)) 
FREEMAIN Routine — Frees storage 


ISQL Read/Write Linkage Module 
Othervise, ARIIRNI vrites the 
screen and reads the next 
command. 


May Cali: To: 
ARIICAN = Perforn cancel processing and delete 
the terporary storage queve for routines. 
ARIIFOL — Deternine if input is a valid SQL or ISQL 
command, and to fold input from terminal 
to upper case. 
ARIITS = (entry point in ARYICI2D (VSE) ARIXISYSC (VH)) 
Read the next command, 
ARIITIO = (entry point in ARIICI2D (VSE) ARIITIOC (VM)) 
VSE ~- Perform START/POST/WAIT linkage to the ISQL 
transaction to do terminal I/O. 
VM = Perform terninal I/0 using the VM services 
of ROTERM, WRTERM, and DIAG, 


“tt 


Gets the first token of the user response buffer 


ARTITKN Tokenizer 


U 


ARIIVLD checks for a 
valid command. ARIIVLD ISQL Command Validation Routine 


! 
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ISGL (continued) 


ARIISGL executes the SQL 

‘close cursor’ process. If 

this executes correctly, 

ARIIFM frees the buffer, line 
buffer, SQLDA; and holding tank. 


Othervise, ARIISMG issues an 
SQL error message. Then ARIIFM 
frees the buffer, line buffer, 
SQLOA, and holding tank. 
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ARTISQL Issues SQL statenents 


(See page 450) 


(entry point in ARIICI2D (VSE) ARIISYSC (VH)) 
FREEMAIN Routina — Frees storage 
Displays ISQL SQL Messages 


May Call: To: 

ARIMSHF -— Link the SQL user and SQL/0S 
common message formatter routine. 

ARIIRWI - Perform ISQL read/write linkage. 


t 


(entry point in ARIICI2D (VSE) ARIISYSC (VM)? 
FREEMAIN Routine — Frees storage 


Format Command Routine 


May Call: To: 

ARIITKN - Extract paraneters or tokens. 

ARIIOVD -— Determine if the operand is valid and to 
find the address of the routine to handle 
the operand. 

ARIIRWI —- Perforr ISQL read/urite linkage. 

ARIYMOG — (entry point in ARIINSG) 

Display ISQL messages. 
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ISQL (continued) 
ARIISQL (Called by ARIIPSQ) 
ARTISQL executes the SQL 


statement found in DINSTR pointed 
to by the structure INSTRING. 


WHENCOPENC]), ARTIRPT1 


initializes the storage areas 
in order to total or 
subtotal the specified fields. 


| ARIIRPTL 


WHEN(CLOSE1), ARIIRPT4 frees 
the storage gotten by the 
previous calls to any entry 
points in the ARIIRPT module. 


ARTIRPYS 


(entry point into ARIIRPT) 
Builds report block 


: To: 

(entry point in ARIICI20 (VSE) ARIISYSC (VM)? 
Free storage. 

(entry point in ARIICI2D (VSE) ARIISYSC (VM)) 
Get storage for the accuaulators. 

(entry point in ARIIMSG) 

Display ISQL messages. 

{not enough storage) 


ARTYMOS — 


(entry point into ARIIRPT) 
- Frees report block 


May Call: Yor 
ARIIFN — (entry point in ARIICI20 (VSE) ARTISYSC (VM)? 
Free buffer. 


Tokenizer 


When the CONNECT command is found, - Extracts paraneters or tokens 
ARIITKN gets the parameters to 
be checked. — 


ARIYMOS (entry point in ARIIMSG) 
ARTYMO04 


builds and issues an 
ISQL error ressage. 
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(entry point in ARIIMSG) 
ISQL Message Module 


May Call: To: 
+ ARIIFOR — Format ISQL messages. 
> ARIIRWI - Perform ISQL read/urite linkage. 
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ISQL (continued) 
ISQL Storage Services 


(Autornatic Storage Only?) 


ARIISTK 


® ARIISTK calls ARIIGH to get stack 
storage 
If return code from ARIIGM is not 
zero» return to caller with the 
return code 


ARIISTK then puts the stack pointer 
in the IGCSTACK structure of ARIIGCB 
and sets up as in the diagram ------ 
at the right. 
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i 
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t 
1 
i 
i 
1 
t 
t 
4 
i 
1 
' 
scilii cscs be Aaa tenicen ee 


IGCSTACK Structure of ARIIGCB 


Hex 
0| Evecatcher 


Save area for 15 registers 
(2 30) 


A = STACK Header; B = STACK Ares 
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ISQL (continued) 


ARICGSE and ARICFSE can be called from any nodule 
vhen a nev automatic storage stack is needed. 


ARICGSE (Get Stack Extension) 


© ARICGSE calls ARISYSDG to get storage¢ 
to extend the stack. The setup of the 
extension is indicated in the next 

diagram -------~- 


ARISYSDG 


IGCSTACK Structure of ARIIGCB 


Hex 
| re 


t Previous 


ARICFSE (Free Stack Extension) 


Get pointer to current stack fron 
register 1. 


Free the current stack and rechain 
pointers back to previous stack. 


(This nodule utilizes pointers in 
IGCSTACK Structure of ARIIGCB and 
the Stack (see the diagram on the 
previous page). 


© Return to caller RETURN 
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DBS (DATA BASE SERVICES) UTILITY 
DBS UTILITY INTERCONNECTION DIAGRAN 


Read the module flow from top to bottom, left-to-right and right-to-left except where the arrovs indicate othervise. 


Upuard flow is by RETURN only. 
ARIDBS 


COMMAND DATAUNLOAD — DATALOAD UNLOAD RELOAD SELECT USER SQL 
BUILD 
& ARIDDLO ARTOUNL ARIDREL ARIDSEL ARIDUS@ 
PARSE 


ARIDCSP | 
[aerocre| ARIDCTB} |ARIDALI 
ARIDUCP 
[aexosse] 


[aetrore] 
ARIDCFI 
ARIDOFI ARIDALT 
ARIODALC ARIDSQL 
VSE 


H 


[anxroFe| 


vit/SP 


i ARIPRDID}] |ARIRVSTC 
ARIDEXI 
INMOD) | | ARIDNGE ARINSHF 


t 
(VSE only) 


ARIRBARM] | ARIRVRMC 


inh 


ARIMFMT ARIMS00, ARIHSOO, and 
ARIGHOL through ARIQHO9 


ae VSE } {VM/SP a 
[azxs¥s0o] ARISYSOC ARISYSEC 


ARISYSFC 
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MAJOR DBS UTILITY MODULES AND THEIR FUNCTIONS 


@ 


454 


ARIDBS 

ARIDCSP 
ARIDUCP 
ARIDDLO 
ARIODUL 
ARIDUNL 
ARIDREL 
ARIOSEL 
ARIOUSQ 


ARTDSQ@L 


DBS Utility aonitoring 

Control statement processing and comamand build 
OBS command parse 

DATALOAD corrand and sub-comnand processing 
DATAUNLOAD command and sub-comamand processing 
UNLOAD coarand processing 

RELOAD comrand processing 

SQL SELECT command processing 

User SQL command processing (except SELECT) 


SQL linkage processing 


SQL/Data Systea Logic, Volune 1 


Licensed Material - Property of IBM 


DBS UTILITY — BETAIL FLOW 


ARIDSS (DAS Utility Monitor) 


Perform initialization 
processing —=> 


| ARISYSOG | 


® Allocate common areas | ARISYSD! 


® Set register 4 to ARIDCPA 
address 


© Open message file and 
control file 


[ aisysos | 
—_—_—_—_—_—_———}] ARIDMGE 
>| anzocse ipage 458) 


ARIDOUL | DATAUNLOAD (page 456) 


@ Write messages ¢€———————— 
® Acquire next command 


* Process: 
~ BBS COMMENT commands 
- DBS ERRORHOQDE conmands 
- DBS AUTOCOMMIT commands 
ARIDDLO | DATALOAD (page 459) 
® Otherwise call appropriate 
command processor ARIDUNL | UNLOAD (page 460) 
ARIOREL RELOAD {page 462) 
ARIDSEL | User SELECT (page 464} 


ARIOUSQ | Other user SQL conmands 
(page 465) 


® Perform COMMIT and ROLLBACK 
processing ARIOS@L (page 466) 
© Free SQLDSECT area 


® Initiate control and message 
file close - 


© Free common areas ae 
® Return processing © 


ARISYSD5 


jt 


ARISYSD2 
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DBS Utility (continued) 


Do DATAUNLOAD initializa- 
tion 
® Do DATAUNLOAD table 
command processing: 
- Allocate table node 
CTNODE) ¢€————— 


ARISYSOG 


ARIDALT 
>) ARIOCSP 


ARIDSFA 


Read next command 


Do SELECT subcommand 
processing: 

—- PREPARE/DESCRIBE SELECT 

- Compute SQL I/O area 

- Map SQLDATA and SQLIND 

pointers to relative 
positions in the SQL 
I/O area 
® Do DFI subcommand 
processing: 
— Allocate coluzn node 
CCNODE) 
~ Validate colunn data type 
® Do OUTFILE subcommand 
processing: 
—- Check last subcomnand: 

a. If last subcommand vas 
SELECT, do default 
processing for data 
field: 

1. Allocate column 
node (CKODE) 

2. Calculate output 
record buffer 
(DATAREC) size 

b. If last command vas 
DFI subcommand: 

1. Recompute SQL I/O 
area 
2. Remap SQLDATA and 
SQLIND pointers to 
relative positions 
an SQL I/O area 
- Allocate SQL I/O area ARISYSD2 
— Update SQLDATA and 
SQLIND pointers 
~ Set default file 
characteristics ARIDDFI 
- Open output data file 


ARIDALC 


ul 
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DBS Utility Ceontinued? 


~ Validate RECFH and 
RECSIZE 

~ Allocate data record 
buffer (DATAREC} 

~ Read column data 

~ Convert data if 

necessary (Floating 

Point to EBCDIC) 


—- Write processed data to 

output file = 
~- Close FETCH cursor 
Free allocated areas € 


Write messages 
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OBS Utility (continued) 


ARIDCSP (Control Statenent Processing) 


ARISYSOG 


458 


Do initialization 
processing 


Read control file records 


Build command area addressed| 
by CPASTMTA 


Set CPACIPI = internal DBS 
command identifier 


Parse DBS commands into 
ARIDCPA fields 


Return processing —_} ARISYSO2 
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ARIOCFI 


Licensed Material - Property eof IBM 


DBS Utility (continued) 


Do initialization 
processing 


Do DATALOAD table command 

processing: 

- Build "SELECT 4° coumand 

- PREPARE-DESCRIBE SELECT; 
compute SQL I/O area size 

- Allocate Table Node 


Tcr! command processing: 

- Allocate Column Node 

- Validate; update colunn 
data 


Read next command ¢—— 


Set RECFN, BLKSZ; and device 


type defaults 


Build SELECT command using 
TCI column nanes 


PREPARE/DESCRIBE SELECT 
conmand 


BUILD/PREPARE INSERT 


Allocate largest SQL I/O 
area required 


Update Table Node, S@QLDA, 
SQLDATA, and SQLINO 


Ofen, read,» and process 
input data records: 
~- Data file 

a. Allocate data file 

record area 

b. Opens read, close 
- DL/I Extract input 
- SYSIPT data read 
~ Insert table rovus 


Frea allocated areas 
Return processing 


= 
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ARIDDLO (DATALOAD and Sub-Conmmand Processing} 


ARISYSOG 


ARIOSSS 


ARIDALT 


ARIDALC & TCI - Table Column Identification 


ARTOCSP 


ARIDSQL 


ARISYSD1 


ARISYSDL 


ARIOCSP 


ARISYSD2 


ARIDEXI 


ARTDSQ@L 


ARIOSFA 
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DBS Utility (continued) 


ARIDUNL (UNLOAD Table/D6SPACE Processing) 


ARISYSDG 


© Do initialization 
processing 


Verify object (table or 
DBSPACE) existence ARIDSQL 


Write aessage(s) 


[ anronce | 


° Identify OBSPACE table 
nares 


Allocate Table Nodes 
(TNODE ) 


Determine maximum record 
size (for buffer allocation) 
(loop through TNODEs for 
each table): 

- Get clustering index 

information 

- Build "SELECT * ... ORDER 
BY ..." clause 


PREPARE/DESCRIBE SELECT 
- Froa the SQLDA, conpute 

SQL I/O area size 
- Allocate a SQLDA 
(TNSQLDA: TNODE SQLDA) 


[ aaxosat | 
ARISYSODL 


® Write various record 
typess 
- 10 Header record 
- 20 Table descriptor 
record (contains table 
creator, table name, 
SQLDA (TNSQLDA)) 
~ 30 Table descriptor 


| ARIDDFI 


record: 
a. Build CREATE TABLE 
command 


b. Write table 

descriptor records 

— 40 Primary index descrip- 
tion: 

a. Get index info 

b. Write index descrip- 

tion record 


— | ARIDCTB 
| ARIOOFL | 


ARIDSQL 
+] ARIDDFI 
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DBS Utility (continued} 


- 50 Index description 
records: 
a. Get index info 
bh. Write index descrip- 
tion records 


ARIOSQL 


ARIDDFI 


Table data records: 
a. Get primary index 


information ARIDS@GL 
b. Build SELECT * with 
ORDER BY 


ARIOSSS 
ARIDSQL 


¢. PREPARE/DESCRIBE 

dad. Open-Fetch Cursor 
a. Write record 
fF. Close cursor 


Truncation of data on FETCH 
(NULLIND > 0); Storage 
dump {RIS = X'8l2") 


Free allocated areas 


Close file = 


ARIODFI 


Return processing ¢ 


| ARISYSO2 | 


Licensed Material - Property of IBM 


Wethod of Operation 461 


DBS Utility (continued) 


ARIDREL (RELOAD Table/DBSPACE Processing) 


| ARISYSDG | 


Do initialization 
processing 


® Write messages 


© Allocate record buffer 
{default=8240 bytes). Read 
first record (must be type 
10). If RIOMSIZE >8240, free 
current record and allocate 
larger record buffer. 


® If RELOAD TABLE command, 
search for INTABLE. If 
RELOAD DBSPACE, allocate a 
TNODE for each input table 
and allocate TNSQLDA (TNODE 
SQLDA). 


® For reload table "NEW" and 
reload DBSPACE, verify 
OBSPACE existence 


® "NEW" processing (for each 
table node): 
- Determine if table exists 
- Build CREATE TABLE 


connand 
- Execute CREATE TABLE 
command ARTDSQL 


© “PURGE processing: 
- Verify table assigned to 
DBSPACE (RELOAD DBSPACE) 
- Verify table exists in 
data base (RELOAD TABLE) 
- Build/execute DELETE 
command 
~ Drop table indexes 
a. Fetch from SYSINDEXES 
b. Allocate index node 
CINODE) and save index 
definition information 
¢. Build/execute DROP 
INDEX 


| ARIDALI | 
| ARIDSQL | 


Common "NEW" and ''PURGE” 

processing: 

~ Determine if any tables 
processed 


462 SQL/Data System Logic, Volume } Licensed Material - Property of IBM 


OBS Utility (continued) 


- For each table (TNODE): 
a. Build SELECT coamand 
b. PREPARE/DESCRIBE 


ARIDSSS 


¢. Compute SQL I/O area 
size 

d. Compare SQLDA struct- 
ures 


~ Allocate largest SQL I/0 
area required 
~ Locate input record type 


60 
+ Build/Prepare INSERT ARIDSQL 
command 


=~ Read data record 
- Update SQLOA, SQLDATA, and 
SQLIND pointers 

~ Execute INSERT command 
~ Re-create indexes 
- Close file 
— Free allocated areas 
— Return processing (sets 
RC = 0 or 8) 


———— | ener | 


ARISYSD2 | 
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OBS Utility (continued) 


ARIDSEL (SELECT Statement Processing) 


Do initialization 
processing — | ARISYSOG 


Determine what output looks 
like: 


PREPARE/DESCRIBE the 
SELECT statement ARIDSFA | 
- Compute and allocate the 


SQut I/O area 

Compute print line length 
Compute print positions of 
column data and fill in 
print nodes (PNODEs) 


Open cursor | ARIDSQL 


Fetch cursor 
~- Convert data to EBCDIC 
characters (null values 


appear as blanks). For 
floating-point conversion 
- Write output line to 

SYSLST (VSE) or SYSPRINT 


(vm) 


Close cursor ————- ARIDSQL 
Write completion message | ARIDMGE | 


Clean-up/return processing ARISYSD2 


ARIOMGE 
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OBS Utility (continued) 
ARIDUSQ (User SQL Comaand Processing — Except SELECT) 


® If a usex ROLLBACK, CONNECT, 
or COMMIT, find second 
token. If ROLLBACK or COMHIT 


and second token not WORK Print nessage ARI826E 
set return code = 8 and go 


If second token o8 find a'S 

third token or end of | A JUSQRET 
command. If RELEASE founds NZ 

set up to process ROLLBACK 

RELEASE or COMMIT RELEASE. 


If not ROLLBACK or COMMIT, 
process 'CONNECT userid 
IDENTIFIED BY password’ 


command: Print nessage ARI882E or ARIS86E 
~ If userid field sissing 
or invalid, | ARIDNGE | a '® 
and go to | a JUSQRET 
V7 


Else set USERID = 


userid in command. Print message ARIS82E or ARISS8E 
If password field missing 

oe invelaas Farorce | 

and go to 


a® 
Else set PASSWORD = | A luseRET 
password in command. \7 


If extraneous data in SQL Print message ARI683E 
ROLLBACK, COMMIT, or 

CONNECT command, | ARIONGE | 

If command is CONNECT; 

display good CONNECT 

Call ARIDSGL te execute the 

command ARIDSQL 


Set register 15 with return 
code. 


Nf «|® If SQL CONNECT just executed 
set CPAUSER = USERID, else 
set CPAUSER=blanks,, and 
return to caller. 
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DBS Utility (continued) 


A 


466 


RIDSQL (SQL Linkage) 


Do initialization 
processing. 


Identify request. 


Process request: 
Free SQLDSECT area 
request 
Allocate SQLDSECT area 
request 
Process SQL request 


Invaiid request: 

- Storage dump (RI5 = 
X'8il') 

— DEBUG node ? 

- If SQLCODE identifies 
possible user error 


SQL message generation for 
user commands 


SQL warning and error 
messages for DBS-generated 
commands 


Return processing 
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>| ARISYSO! 


ARISYSD2 


ARIDSQL Debug Mode Processing: 


To enter DBS Utility Debug Mode, supply the following 
commands: 

- DEBUG 

SET ERRORMODE OFF 


(Note: "DEBUG" must begin in command record coiuan 1. 
Invalid command ID error message will result. 
"SEY ERRORMODE OFF" aust follow immediately.) 


R13 + 4 = ARIDSQL save area at ARIPRDID call. 


. Referencing ARIDSQL save area address: 


+ 12 = ARISYSDA (storage dump) return address 
within ARIOSQL 


+ 16 = ARISYSDA entry point 
32 = Address of SQLTIE (R3) 
+ 36 = DBS Utility ARIDCPA address (R4) 


(CPA * X'C* = RO through R15 special save area) 


. Reference message ARI656E if SQL error occurs for a 


DBS-initiated SQL command execution. 
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Ec 3 iG GANIZATION CR IN 


This section includes an alphabetic listing of the EXECs For a cross-reference of the nodule and data areas, see 
with a brief description of their functions, and an "Data Areas to Modules Cross Reference" in Section 6» 
alphabetic listing of the modules and a brief description of “Diagnostic Aids." 

their functions. If a particularly complex algorithm is 


used within a nodule and it is necessary for the reader to For the SQL code(s) and RDS code(s) detected by any nodule, 
understand it, this is also included. Some nodules are not see “Module Detecting SQL Codes and RDS Codes" or “SQL Code 
described in Section 2) "Method of Operation”, which ~ RDS Codes, Detecting Modules” in Section 6, "Diagnostic 
includes a moxe complete description of these nodules. Aids." 

For a cross-reference of the called and calling nodules, see See Section 6 fox the patch areas for each nodule. 


“Module Calls: To/By" in Section 6, "Diagnostic Aids." 
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SQL7DS CMS EXECS 


ARICEMGC EXEC 


The ARICEMGC EXEC issues messages as requested by the 
caller. ARICEMGC is called by other SQL/US EXECs to have 
messages issued to the user's terminal. 


ARICLOG XEDIT 


The ARICLOC system product editor macro finds the data base 
nane and SQL/DS virtual machine id in the ARXSRMBT MODULE 
and stacks then for use by the SQLOSID EXEC. 


ARISAVES EXEC 


ARISAVES is the EXEC which is jnvoked as a command to 
perform a CP SAVESYS command for an SQL/DS component that 
can be defined as a discontiquous; shnred seguent. For more 
information about ARISAVES or the installation process, 
refer to SQL/Data System Instalintion -~ VM/SP, SH246-5044, 


ARISDBMA EXEC 


ARISDBMA is the SQL/DS data base aaintenance EXEC, and 
supports the installation of service and other SQL/DS data 
base naintenance activities. ARISDBMA may perforn the 
folloving: 


® Prompt for and reset, if necessary, current passuord 
for userid SQLDBA 

® Recreate SQL/DS DBS Utility, ISQL, and FORTRAN support 
access aodules 

* Load/reload SQL/DS English HELP text 

* Load/reload SQL/DS sample tables 

© Load/reload SQL/DS ISQL sample routines 

© If necessary, restore current password for userid 
SQLDBA 


For more information on ARISDBMA or the installation 
process, refer to SQl/Data System Installation ~~ VM/SP, 
SH29-5044, 

ARISEMNSG EXEC 

ARISEMSG EXEC makes certain that the current CP error 


message function value is properly set (EMSG ON} to support 
DBS utility command processing. ARISEHSG EXEC aust reside 
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on the SQL/0S production rninidisk. It is not intended for 
use by end users. 


ARISESCP EXEC 


ARISESCP EXEC makes certain that the current terrinal 
LINEND, LINDEL, CHARDEL, and escape syabols are set properly 
to support SQL/DS command entry from a terminal. ARISESCP 
EXEC must reside on the SQL/DS production ninidisk. It is 
not intended for use by end users. 


ARISLKIT EXEC 


ARISLKIT EXEC link edits om specific member (except $$$COSAL) 
of the SQL/DS production loadlib (ARISQLUD LOADLIB Q) on the 
SQL/DS production minidisk. ARISLKIT is invoked as a 
command by the user or by the SQL/DS systen link edit EXEC 
(ARISSLKE). With the exception of the text file ARIRVSTC 
vhich resides on the SQL/DS production minidisk, all other 
text files aust reside on the SQL/DS service minidisk. 


ARISPDFC EXEC 


ARISPDFC is the S@QL/DS production ainidisk copy EXEC. 
ARISPDFC performs the following: 


© Acquires read access to the 295 minidisk, with 
filemode A (295 must be the SQLDBA machine's 195 
ninidisk}. 

*Copies IBM-supplied files from the SQL/0S production 
ninidisk owned by the SGQLOBA data base nachine, to 
the production minidisk owned by the dats base 
machine running this EXEC. (The files copied ere 
deternined by the contents of ARISPDEC MACRO A on 
SQLDBA 195 minidisk.) 

® Erases and creates a file naned ARISPIDC MACRO @ 
(identifies this machine as the one that ouns the 
secondary production ninidisk). 

® Reaccesses the 195 (Q) minidisk in read node. 

© Reaccesses the 191 (A) minidisk. 


ARISPOFG resides on the SQL/DS service minidisk, which aust 
be explicitly accessed by the SQL/DS data base machine 
before ARISPDFC can be executed, Processing using the 
SQL/OS production minidisk should not be in progress when 
ARISPDFC is executed. 
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ARISPROD EXEC 


The ARISPROD EXEC is called by other IBM-supplied SQL/DS 
EXECs to obtain read or write access to the SQL/DS 
production ninidisk. ARISPROD obtains the userid of the 
machine which ouns the SQL/DS production minidisk and ite 
virtual address from the ARISPIDC MACRO file, 


ARISQLLD EXEC 


Thea ARISQLLD EXEC deternines whether the SQL/DS load library 
exists on the minidisk as the EXEC. If it does not, a 
message is written and processing ends with return code 8. 
If the loadlib is found, a CHS FILEDEF command is issued. 

If ARISQLLD was invoked with a paraneter STACKAM, a line 
containing the filemode and filename of the load library is 
piaced LIFO in the current level of tha CHS program stack. 


ARISSERV EXEC 


The ARISSERV EXEC is used to obtain read-only access to the 
SGL/DS service ninidisk. The userid of the machine which 
owns the service minidisk and its virtual address are read 
fron the ARISPIDC MACRO file. 


ARISSLKE EXEC 


ARISSLKE is invoked as a command to link edit all SQL/0S 
entries in the SQL/DS production minidisk load library. It 
perforas the folloving: 


® Link edits SQU/DS to the temporary loadlib 

® Erases and recreates the SQL/DS production loadlib (All 
SQL/DS loadlib entries, axcept $$$COSQL, are recreated 
ox replaced by ARISSLKE.) 


The SQL/OS production ninidisk cannot be accessed by another 
VH machine while ARISSLKE is executing. 


ARISYSIN EXEC 


ARISYSIN EXEC performs the following housekeeping functions 
which are necessary before invoking I5748XXJ: 


Checks for tape drive at virtual address 181 

Releases any minidisks already accessed as Q and/or V 
Positions distribution tape at file 3 

Invokes I5748xXxXJ 

Unloads tape from virtual address 181 
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For sore information on ARISYSIN or the installation 
process, refer to SGi/Date Systen Installation -~ VM/SP, 


$H24-5044, 
ARIONSGE EXEC 
The ARIOMSGC EXEC contains the texts for messages to be 


issued by EXECs with numbers 000 through 099, ARIOMSGC 
cannot be executed. 


ARI6MSGC EXEC 


The ARI6MSG6C EXEC contains the texts for nessages to be 
issued by EXECs vith numbers 600 - 699. ARI6MSGC cannot be 


executed. 
ARISMSGC EXEC 


This EXEC contains the nwessage text for messages unique to 
OBS utility processing and issued by the SQLDBSU EXEC. 
ARIGHSGC cannot be executed. 


ARISNSGC EXEC 


This EXEC contains the ressage text for zessages issued by 
EXEC SQLIRFMT (Trace Forratter EXEC). ARISMSEC cannot be 
executed. 


I5QL EXEC 


The ISQL EXEC is used during ISQL initialization. It 
establishes the user's environment by setting PF keys and 
color settings. ISQL EXEC calls SQLISTRT to continue ISQL 
startup processing. When the ISQL session ends, ISQL 
restores the user settings for all settings that vere 
altered. 


E5748XXJ EXEC 


I5748xXXJ is the SQL/DS distribution library installation 
EXEC. I5748XXJ is invoked by the ARISYSIN EXEC to perform 
the following: 


® Link to and format the SQL/DS service and production 
disks 

* Skip files 3 and 4 of the distributin tape (assunes 
initial file tape position 3), loads file 5 to the 
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SQL/DS service disk and file 6 to the SQL/DS production 
disk. 


For more information on the I5748XXJ EXEC or the 
installation process, refer to SQl/Data Systen Installation 
=- VN/SP, SH24-5044. 


SQLADBEX EXEC 
The SQLADBEX EXEC proapts the user for information, builds 


an input file, and invokes SQL/DS for the ADD DBEXTENT 
function. 


SQLADBSP EXEC 
The SQLADBSP EXEC prompts the user for inforaation, builds 


an input file, and invokes SQL/DS for the ADD DBSPACE 
function. 


SQLASMC EXEC 
The SQLASHMC EXEC is used at install tine to preprocess, 


asseable, load, and execute the SQL/DS Assembler sample 
prograr, 


SQLCBLC EXEC 


The SQLCBLC EXEC is used at install time to compile, load, 
and execute the SQL/DS COBOL sample progran. 


SQLDBGEN EXEC 
The SQLDBGEN EXEC prompts the user for information, builds 


an input file, and invokes SQL/DS for the data base 
generation function. 


SQLDBID EXEC 
The SQLDBID EXEC finds the data base name and virtual 
machine id in the module ARISRMBYT. The name and aachine id 


are written to the terminal or placed in the program stack 
(according to the invocation parameters). 


SQLDBINS EXEC 


SQLDBINS is the SQL/DS data base installation EXEC. 
SQLDBINS is invoked by the data base aachine ouner. The 
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data base is generated using the SQL/DS-supplied starter 
data base or user-supplied data base generation (DBGEN) 
specifications. SQiDBINS calls EXECs SQLDBGEN and SQLSTART 
to create the SQL/DS production ninidisk files with the 
OBGEN control statements, FILEDEFs, and startup information 
for the data base. SQLDBINS must reside on the SQiL/DS 
Service minidisk. For more information on the SQLDBINS EXEC 
or the installation process refer to SQt/Data System 
Installation -- VM/SP, SH24-5044. 


The SQLDBSU EXEC invokes the 5QL/DS DBS utility in either 
SQL/DS single or multiple user node. Its function includes 
processing the HELP request, querying and starting the 
console, spooling the virtual printer, vriting the start 
message, and issuing/clearing SYSIN and SYSPRINT FILEDEFs. 
SQLDBSU is invoked as am EXEC by the user. 


SQLFTN EXEC 


The SQLFTN EXEC is used at install time to compile, load, 
and execute the SQL/DS FORTRAN sample prograa. 


SQLGENLD EXEC 


The SQLGENLD EXEC generates the bootstrap modules for a 
DCSSID. The user is prompted for DCSSID and for the 
bootstraps to be generated. 


SQLINIT EXEC 


The SQLINIT EXEC copies the Resource Manager and ISQL 
heotstrap modules to the user's 'A' disk, and conpletes the 
generation of the Resource Manager bootstrap. 


SQLISTRT EXEC 


The SQLISTRY EXEC parses user input parameters, does 
FILEDEFs for the SQL/DS load library and then invokes the 
ISQL bootstrap (ARISISBY) te load the ISQL module. 


SQLLOG EXEC 


The SQLLOG EXEC is invoked by the user to perform the S@L/DS 
cold log function. SQLLOG allows the user to change betueen 
single and dual logging or to change the virtual device 
addresses of his logs. 
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SQLPLI EXEC 


The SQLPLI EXEC is used at install time to compile, load, 
and execute the SQL/DS PL/I saaple progran. 


SQLPREP EXEC 


The SQLPREP EXEC is used to preprocess and SQL/DS 
application program in both single- and rultiple-user modes. 
In single-user mode,» the SQLSTART EXEC is called to start 
SQL/DS and to execute the preprocessor. In nultiple-user 
mode the preprocessor is loaded by a NUCXLOAD command. 
SQLPREP gives control to the preprocessor in order to 
preprocess the SQL/DS application program, For a more 


detailed description, see SQL/DATA System Application 
Proqramming >» 


SH24-5018. 


SQLSTART EXEC 
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The SQLSTART EXEC invokes SQL/DS for normal execution. 
SQLSTART may be invoked for either single virtual machine 
node or aultiple virtual machine node. 


SQLTRFNT EXEC 


The SQLTRFHT EXEC is used to run the SQL/DS Trace Formatter 
utility program ARIMTRA. It invokes CMS XEDIT commands to 
allow the user to edit a CMS file for control statement 
input. It gives the user the option to direct Formatter 
output to a CHS file or to a virtual printer file. SQLTRFNT 
uses the CMS NUXCLOAD command to load program ARIMTRA. 


5748xXXJ EXEC 


5748XXJ is invoked by the user for SQL/DS service 
installation. For more information on 5748XXJ or the 


installation process refer to SQlL/Data Systen Installation 
=~ VH/SP; SH24-5044. 
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SOL/DS CONTROL (5SC) MODULES 


ARICABE 


ARICABE is the abnormal termination handler for SQL/DS. 


ARICCLA 


ARICCLA disables an agent structure. It does this by 
calling the SQL/DS communications manager (ARICCOM) te 
disconnect the cross-partition communication (XPTN) or 
Inter-User Communication Vehicle (IUCV} Link. This routine 
is called only by the SQL/DS dispatcher (ARICDSP). Since 
the SQL/DS dispatcher has no automatic storage available, 
the parameter list for this routine (and for ARICENA and 
ARICRST) is in the DSCAREA of the agent being disconnected. 
The macro (DENADCL) maps this area. 


After the communication link has heen disconnected; the 
agent structure is cleaned up. [For example, the SQL/DS 
storage reset routine (ARICRST) resets the stacks (connected 
to the YTABLE] and the RDAREA) and the vorking storage 
{connected to the DSCAREA) for the agent structure). 


If¢ VSE and if SQL/DS is in the process of shutting down (the 
operator shutdown command was issued and the SQL/DS quiesce 
indicator (YRSTRNGS) is on), then each DCE is made inactive 
and is not reconnected. In VM, shutdown cannot be completed 
until all pseudo-agents are disconnected. 


Once all the agent structures are inactive, the checkpoint 
agent structure is posted to either perform a final 
checkpoint or to do an archive as indicated by the shutdown 
command, 


If VSE and SQL/DS is not in the process of shutting down» 
the SQL/DS ready/recovery agent is reconnected without 
change. However, an in-doubt agent structure may be 
reconnected either as an in-doubt agent or a general purpose 
agent, This is determined hy the setting of the in-doubt 
indicator (TPMNOOUT) in the TPMAP entry for the agent. A 
general purpose agent structure is reconnected in the sane 
Ranner as an in-doubt agent structure. 


Te VM, and if SQL/DS is not quiescing or all users ure not 


disconnected, turn on the indicator to request Enable Agent 
handling to remove pseudo agents from real agents. 
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ARICCOM YSE 


ARICCOM performs the SQL/DS cross-partition conmunication 
function. It is the linkage between SQL/DS and the 
operating system. ARICCOM is included with the DBSS, the 
ROS, and the Resource Manager (CICS and Batch?. It provides 
subroutines to perform the folloving functions: 
® Identify and remove SQL/DS as a subsystem (SUBSID) 
® Identify SQL/DS or the Resource Manager as a user of 
CPC services (LOGON) 
® Connect SQL/DS and the Resource Manager in either a 
specific or general connection (connect any and connect 
specific) 
® Send (with reply) a message across the link (SENDR) 
Receive a message across the communication Link (RECV) 
® Reply with a message across the connmunication link 
(REPLY) 
© Wait explicitly for a communication process to coaplete 
(WAIT) 
© Clear or retract 4 message sent (RESETS) 
~ Issued by SENDR side 
® Clear to reject a nessage sent (RESETR) 
~ Issued by receive/reply side 
® Disconnect a communication link, either individuaily 
(DSC); unconditionally (DSCUN), or all links (DSCALL) 
© Yerninate SQL/DS or the Resource Manager as @ user of 
CPC services through normal termination (LOGOFF), 
unconditional termination (LOGUN), or indicate SQL/DS 
is shutting down after all agent structures have 
terminated (SHTDN). Also» capability allows for an 
implicit 


a 


vait (communication manager vaits) or explicit wait 
(caller waits) and for a user exit (for an implicit 
wait only). 


- VM 


ARICCOM 


ARICCON performs the SQL/DS Inter-User Communication 
Function. It is the linkage betueen SQL/DS and the 
operating system. ARICCOM is included with the DBSS, the 
ROS, and the Resource Manager. It provides subroutines to 
perform the following functions: 
© Identify SQL/DS or the Resource Manager as a user of 
IUCV services (LOGON) 
© Connect SQL/DS and the Resource Manager in either a 
specific or general connection (connect any and connect 
specific) 
® Send (with reply) a message across the link (SENDR) 
® Receive a message across the communication Link (RECV) 
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© Reply with a message across the communication link 
(REPLY) 

® Wait explicitly for a communication process to conplete 
(WAITS 

* Clear to reject a message sent (RESETR?) 
- Issued by receive/reply side 

® Disconnect a communication link» either individually 
(DISCONNECT PURGE), or all links (DISCONNECT ALL) 

® Terminate SQL/DS or the Resource Manager as a user of 
IUCV services through normal termination (LOGOFF). 
Also, capability allovs for an implicit vait 
{communication manager waits) or explicit vait {caller 
waits) and for a user exit (for an implicit wait only). 

® Connect to a DASD device (OPEN). 

Disconnect from a DASD device (CLOSE). 

© Reset mask field (SETHASK) for IUCY interrupt control. 


ARICCRA 


ARTICRA creates the agent structures for SQL/DS. It gets 
and allocates the control blocks fer the agent structure 
from the primary working storage obtained by ARICIP1. (For 
example, the working storage associated with prototype 
YTABLEL/DSCAREA.) ARICCRA gets and initializes the 
following control blocks. 
DOSCAREA - {and adds it to the DSCAREA chain) 
YTABLE] - (and adds it to the YTABLEL chain) 
Scan table 
MODCB parameter list (VSE only) 
Working storage for the agent structure 
If multiple-user mode: 
~ Comaunication manager parameter list (if VSE, and 
except for checkpoint agent) 
~ Connect control block (if VSE, and except for 
operator and checkpoint agents) 
- Default input mailbox {except for operator and 
checkpoint agents) 
~ Output mailbox (except for operator and checkpoint 
agents) 
- Sets the pointers to the connect and receive ECBs 
in the "multiple wait" list 
® Output mailbox parameter list (except for operator and 
checkpoint agents) 
If STARTUP = WARM or RESTORE 
- RDAREA land adds it to the RDAREA chain} 
- Stack for the agent structure (RDAREA) 
Prior to setting up the RDAREA and its stack, a call is made 
to ARIYMOO to perform initialization of the transaction map 
CYTPHAP) (and the RPLs used for VSAM I/O - VSE) except for 
the operator agent structure. After the RDAREA fand its 
stack) is set up, ARIXEST is called to complete RDAREA 
initialization. At this point, a 5QL/DS agent structure has 
been created and initialized. 


eee2e 


Licensed Material - Property of IBN 


ARICDHP 


ARICOMP is the SQL/DS dump routine. 
according to the parameters passed. 
are: 

® Title 
Title length 
Dump area 
Duap length 


It displays storage 
The four parareters 


If the title length is zero (0), then no title is printed. 
The format of the dump is: 


Address Bits 1-6 
Offset Bits 8-13 
Dump data (hex) Bits 16-50 
Dump data (character) Bits 53-72 


The duap data is displayed 16 characters per line. Both the 
hexadecimal and the printable character are displayed. A 
period {.) is substituted for non-printable characters in 
the printable character part of the line. The offset is 
always from the start of the dump area. Also, duplicate 
lines are suppressed. 


ARICDPT 


ARICDPT posts the agent structure designated in the 
parameter passed via the call. It turns off either the 
general wait or lock/latch wait flag in the DCE. It sets 
the DS2DCESC flag (in the DS2CVT) on to ensure that the 
Dispatcher scans all DCEs in the chain. 


ARICDSP 


ARICDSP is the SQL/DS dispatcher. It dispatches tha SQL/DS 
real agent structures in a round-robin fashion. If,» while 
in multiple-user mode, ARICDSP detects that a communication 
link has been terminated by the user application partition 
or virtual machine, it invokes the agent structure clean-up 
process to make the agent available to any nev users. If 
the application terminated normally; SQL/DS drives the 
implicit commit work process. If the application terminated 
abnormally, the implicit rollback work process is initiated. 
In VSE, if the user (CICS application) issues a CANCEL, the 
SQL/DS dispatcher starts up the rollback process and drives 
agent clean-up without disconnecting the communication link. 
In VM> an SQLHX issued by the user aachine causes the 
communication link to be severed and reconnected. 
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ARICDUT 


ARICOWNT sets the various wait indicators in the DCE 
according to the status indicated by WAITTYPE. For a 
SUSPEND calls do not set any wait indicator. Instead, set 
the DS2DCESC indicator in the OS2CVT. This gives up control 
to any other SQL/DS task (agent) that is ready to run. If 
none are ready to run» then the suspended task (agent) 
regains control. The OS2DCESC indicator is always set 
regardless of WAITTYPE. Tien call the Dispatcher Wait 
routine. 


ARICENA 


ARICENA enables an agent structure by setting the DCE flag 
COCEPHF) to 0. It also sets the entry registers to the 
module to be invoked when the agent structure is called. 
Plus ARICENA sets a pointer to a save area reserved in the 
OSCAREA. 


In VSE and multiple-user mode, it also performs the CPC 
CONNECT function for the ready/recovery, in-doubt, and 
general purpose agent structures. If no corresponding 
connect is done by the user application partition, then set 
the OCE flag (DCEXPTN) to indicate the agent structure is 
waiting for cross-partition communication. In VM and 
multiple-user node it allocates and deallocates 
pseudo-agents to real agents (see discussion on page 160). 


ARICFSE 


ARICFSE is called when a stack extension is no longer 
needed. It frees the current stack extension and re~chains 
pointers back to the previous stack extension (or base 
stack}. 


ARICGSE 


ARICGSE is called to allocate and initialize a new stack if 
the old one does not contain enough space for the current 
request. 


ARICIMB 


ARICINB resides in the application side partition or virtual 
machine. Its function is to compact all the input data 
(from the user) and place it into a buffer (input Mailbox 
buffer) in the same sequence as requested, This module also 
manages the buffer allocation and deallocation (input 
Mailbox) when the original buffer is not big enough for the 
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input request. The original (default) buffer, which exists 
until the end of SQL/DS operation, is allocated by the 
Resource Manager. ARICIMB builds the input Mailbox upon 
different opcodes (up to 13) passed to it. All the input 
data information exists in the RDS RDIIN control block. The 
pointer to RDIIN resides in LIFPARM (see "Mailbox Data 
Areas'' in Volume 2, Section 5}. 


The following are the opcodes (call types) passed to 
ARICING: 


CALL TYPE (RDICTYPE) MEANING 
30 AUX CALL 
35 SET UP CALL 
40 DESCRIBE CALL 
45 CLOSE CALL 
50 OPEN CALL 
120 SCHEDULE OR CONNECT CALL 
125 RECOVERY CALL 
130 PREP INIT CALL 
131 CREATE PROGRAM CALL 
132 DROP STATEMENT CALL 
135 LOOKUP CALL 
140 SQL CALL 
145 PREP FINISH CALL 
155 OPERATOR COMMAND CALL 
160 PREPARE-TO-COMMIT CALL 
165 SET/RESET EXIT CALL 
170 OPERATOR COMMAND CONTINUE CALL 


ARICIMB has to know the size of input to Mailbox (RDIMBLEN 
in RDIIN) in order to use the right buffer for the input 
Hailbox (overflow or default buffer size). Also, it has to 
inform the Resource Manager which buffer has been used for 
Mailbox, There is a message size length at label IYFMSGLN 
in IIFPARM. If IIFMSGLN is greater than the default Mailbox 
size, the overflow buffer is used as the Mailbox; othervise 
the default Mailbox is used. (Default buffer size is 
declared externally in ARICIMB). If RDIMBLEN has not been 
calculated, ARICIMB will find the size of input (first 
pass). 


After building the input Mailbox, ARICIMB returns to the 
Resource Manager. 


ARICINTC 


ARICINTC handles external interrupts in the SQL/DS nachine 
that occur as the result of IUCV functions. The only 
possible interrupt types in this case are CONNECT PENDING, 
MESSAGE PENDING, and SEVER PENDING. The occurrence of any 
other type is treated as a SYSTERR condition. 
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A secondary entry point in the nodule handles external 
interrupts arising from asynchronous I/O requests (SENDF). 


ARICIP!) 


ARICIP] is the first step in the SQL/DS initialization 
process (Phase 1). It gets and allocates storage for the 
primary SQL/DS control blocks and agent structures. This is 
based on the information obtained from the SQL/DS parameter 
processing routine (ARICPRN). The abend exit is also 
established. 


If VM and single virtual machine mode, and if STARTUP = C,; 
the GENCAT module (ARIGCAT) is loaded. If STARTUP = 5S, the 
ADDSEG module (ARISEGS) is loaded, If STARTUP = W or R» the 
user application is loaded. 


If STARTUP = WARM or RESTORE: 

~- If VSE, RDS phase is loaded and its initialization routine 
is called. 

- If VN. the ROS was previously loaded by the ARISoOBSaT 
bootstrap module. ARICIP1 needs only to call ROS 
initialization. 


The operator agent structure is created, enabled, and 
initialized to dispatch the SQL/DS Initialization Phase 2 
routine. 


At this point, a dispatchable agent structure (operator) is 
built. The remainder of SQL/DS initialization can run under 
this agent structure and invoke the SQL/DS Dispatcher Wait 
routine. Finally, pointers to the OS2CVT (Register 11) and 
DCE (Register 13) are set and the SQL/DS Dispatcher is 
invoked. 


After SQL/DS termination (ARICTRN) is complete, the address 
of CLEANUP (a label in ARICIP1L) is obtained from the DS2CyT 
(DSCRETRE}, and ARICTRM returns to this point. When the 


storage cleanup coapletes, control returns to the operating 
systen. 


ARICIP2 


ARICIP2 completes the initialization of SQL/DS (Phase 2). 
It executes under the operator agent structure. 


In VSE aultiple-user node, it calls the SQL/DS Communication 
Manager routine (ARICCOM) to identify (to VSE Supervisor) 
SQL/DS as a subsystem and to identify SGQL/DS as a user of 
VSE CPC services. It initially performs ‘IDENTIFY’ for the 
general purpose (user) agent structures and for the in-doubt 
agent structures. After other agent structures are built, 
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ARICIP2 also performs an ‘IDENTIFY’ for the SQL/DS 
ready/recovery agent structure. 


If VM, the SQL/DS Communication Manager (ARICCOM) is called 
to perform an IUCY SETCMASK function to enable interrupts. 


Regardless of 5QL/DS aode (single/nmulti) or operating 
systen, it calls ARIYTOO to complete the DBSS 
initialization. When STARTUP=L or E, no further processing 
is required. Then return to the operating system, When 
STARTUP=H or Rs call ARIXERO to complete RDS initialization. 


The general purpose (user) agent structures are created 
hased on the NCUSERS value ainus the nunber of in-doubt 
agents. {When in-doubt agent processing is complete, the 
in-doubt agent structures are converted into weneral purpose 
agent structures.) For VM; the number of in-doubt agents is 
zero. In nultiple-user node, the general purpose agent 
structures are initialized to invoke ROS (ARIXERD). In 
single-user mode, there is only one general purpose agent 
structure (and no in-doubt agent structures}. It is 
initialized to invoke ARICSPM. After SQL/DS initialization 
is conplete, call ARIYNO1. ARIYMO] establishes operator 
communication capability and passes control to the SQL/DS 
dispatcher. The SQL/DS dispatcher dispatches the first 
SQL/DS agent structure that is ready to run. 


ARICHNMB 


ARICHMB resides in the application side partition ex virtual 
machine, Its function is to decompact the data passed by 
SQL/DS to the input Mailbox and replace it in the user urea. 


The pointer to the input Mailbox is passed by the Resource 
Manager. 


The Resource Manager is the linkage between the application 
programs and ARICHNB. ARICNMG communicates with the 
Resource Manager only. 


ARICHOD (DS2MODE) 


ARICMOD is the SQL/DS node indicator for the Resource 
Managers. This module is loaded in both in single- and 
multiple-user nodes. In single-user node the indicator 
svitch (DSCMDIND) is set to 'S’ and the Resource Manager 
will test it to determine the mode. In multiple-user mode 
the indicator switch (DS2MUDIND) is set to 'H’' 
(pre-initialized at compile time). hen the Resource 
Manager loads this module, it vill find the indicator set to 
‘M' and then execute in a nultiple-user node environment. 
There are other fields that are also initialized for use by 
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the Resource Manager. The "OS2MDSCP’ field is initialized 
with the pointer to the ‘DS2CVT'. There is also a pointer 
to the Resource Manager control block chain 'DS2MRMLP' (This 
is set in nultiple-user node only.) 


ARICMUD 


RDS uses ARICMUD to receive data via cross-partition 
communications or via the Inter-User Communication Vehicle 
(IUCV}. ARICNUD calls the SUL/DS Dispatcher Wait routine 
(via ARICHAT) to vait for a message sent by the user 
partition or virtual machine. khen the nessage is to be 
sent, ARICHUD checks if the SQL/DS buffer is large enough to 
contain it. If not, a larger buffer is obtained. If a 
larger buffer cannot be obtained, ARICNUD will PURGE (VSE), 
or REJECT (VM) the message. If the buffer is now large 
enough to contain the message, ARICMUD calls the SQL/DS 
Communication Manager (ARICCOM) to receive the message. If 
No error occurred, from the RECEIVE function, the ressage 
and its length are passed back to RDS. If a severe error 
occurs, then SQL/DS terninates (ARIYM02 is called). If it 
is not a severe error, call ARICWAT and the user is backed 
out. 


ARICOMB 


ARICOMB resides in the SGL/DS partition or virtual machine. 
Its function is to "get'’ the SGL/DS output to the user area. 
ARICOMB is sensitive to the running-mode environment. There 
is a flag (RDASYSM) in the RDAREA which states the running 
environment of the system ('S’ = single user node, ‘M' = 
multiple-user mode}. If SQL/DS is running in the sane 


| partition or virtual machine as a user is running, ARICOMB 


sinply moves the data to the user area (no Mailbox). 
Hovever, in a nultiple-user mode environment, ARICOMB uould 
use the Mailbox facility to pass the data to the user 
partition or virtual machine. The nain functions when using 
the Mailbox facility in a rnultiple-user mode environment 
are: 


© Build an output element in output Mailbox buffer 
® Pass the output data (Mailbox) across partitions or 
machines (comnunication link) at the end of process. 
Transfer of the output Mailbox happens in two cases: 
1. The process is done and complete. 
2. It is not the end of process but the output Mail box 


buffer is full (segnrentation). 


The following would cause the second case (segnentation): 
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® The output message length is greater than the output 
Mailbox buffer size. 
© There is not enough room in the output Mailbox buffer. 


In the above cases» ARICOMB segments the output data to the 
Mailbox capacity and then ships the Mailbox to the user 
partition or virtual machine. This action repeats until the 
whole output data is transferred. A WAIT is issued in the 
segnentation process until control is returned. This 
insures that output data is received in the other partition 
ox virtual machine and placed in the user area before 
shipping the next segment. 


OIFPARM, containing input parameters, is the linkage between 
the caller and ARICONB when ARICOMB is called to build an 
output element in the output Mailbox or to do a simple move 
(single-user node). The pointer to OIFPARM is in the 
DSCAREA at DSCOMBPP. {See "Nailbox Data Areas" in Volume 2; 
Section 5 for OIFPARM.) 


ARICPBN 


ARICPDM is the SQL/DS snap dump routine. It dumps according 
to the value specified in the SQL/DS DUMPTYPE initialization 
parameter. 


If VSE and 
If some of 


dunped. 


DUMPTYPE = F, ARICPDM dumps the entire partition. 
the SQL/DS code is in the SVA, this code is also 


If VM and OUMPTYPE = F, ARICPDM dumps the entire virtual 
machine. If some of the code is in the discontiguous saved 
segment area (beyond the end of the virtual machine), it is 
also dumped. 


If VSE and DUMPTYPE = PB, ARICPOM dumps the: 

® Partition SAVEAREA 

® Area between the start of the GETVIS area and the RDS 
(if loaded) 

® Area betueen the RDS and the application program (if it 
is a SQL/DS phase and it is loaded) 

© Area between the application program (for exanple, the 
SQL/DS code) and the Batch Resource Manager (if it is 
loaded) 

® Area betvueen the 
the partition 

® The DBSS/DSC and 


Batch Resource Manager and the end of 
RDS link naps. 


If VM and DUMPTYPE = 7, ARICPDM dumps the: 

© Area betueen the start of the virtual machine and the 
VM Resource Manager (if loaded). 

® Area betueen the VM Resource Manager and the "user 
program” (if loaded, single-user mode only}. 
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© Area hetueen the “user program (if loaded, single-user 
node only) and the RDS/OBSS/DSC code. 

® Area betveen the ROS/DBSS/DSC code and the end of the 
virtual machine. 

® The DBSS/OSC and ROS link maps. 


For VSE and VN, if DUMPTYPE = Ns no dump is taken. 


Note: If the application program is the user code and not a 
SGL/OS phase/program, the application program is 
durped because it may not have been coded as 
re-entrant. This allous any ‘data areas‘ to be 
displayed in the dump. 


ARTEPRE 


ARICPRMN is the SQL/DS parameter processor. It processes 
SQL/DS parameters entered on JCL (VSE) or SGLSTART EXEC (VM) 
vhen starting SQL/US. For VSE, ARICPRM overrides the 
default SQL/DS paraneters with parameters specified in 
source statement library mecber specified on ‘PARMID=" 
Farameter. For VHy ARICPRM overrides the default SQL/DS 
paraneters with paraneters specified in a CHS file with 
filename specified on 'PARMID=' parameter and filetype = 
“SQLPARM'. ARICPRN also overrides that with parameters 
specified explicitly in the JCL (VSE) or SQLSTART EXEC (VM). 


The basie flow is: 


1. Initislize the default table with default S@L/DS 
parameters. 

2. If no parameters are specified via the JCL {VSE) or 
SGLSTART EXEC (YN), then go to step 11. 

3. If parameters are specified on the JCL iVSE) or SQLSTART 
EXEC (VM), then initialize the JCL parameter table 
(JCLTABLE} and the parameter data set table (PRMTABLE) 
to zere and blank values. 

&. Sean the JCL (VSE) or SQLSTART EXEC (VM) parameter 
string for a '/', that indicates the heginning of the 
user parameters. 

5. If a '/' is found, save the user parameters and the 
length of the user parareters (for exanple, the 
substring from the °/' to the end of the JCL or SQLSTART 
EXEC parameter string}. Also, adjust the length for the 
JCL or SQLSTART EXEC parameter string so that it is 
scanned from the beginning of the JCL or SQLSTART EXEC 
parameter string to the ‘/*', instead of being scanned 
over its total length. (You do not vant to scan the user 
parameters.) If a ‘/* is not found, set up paraneter 
linkage to reflect no user parameters. (DS2PARMP = 0; 
ULEN = 0) (If VN, set up an untokenized parameter list 
with the user parazeter information (pointer ta user 
application name, folloved by the beginning address of 
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the user parameters; followed by the ending address of 
the user parameters plus one byte, follouved by a 
fulluord ‘0'). The user application name and user 
parameters are moved into the areas indicated by this 
plist.) 

6. Scan the JCL (VSE) or SQLSTART EXEC {VM) parameter 
string, getting one paraneter at a tine until the end of 
the JCL or SQLSTART EXEC parameter string. (it calls 
the tokenizer (see attached ARICTKN nodule.) 

Check each parameter against the table of valid 
parameters. If a natch is found, call the corresponding 
routine to process it. If no match is found, display an 
error message and terminate the job. 

7. After completing the scan, check to sea if a name vas 
saved as a result of 'PARHID=* being specified via the 
JEL (VSE)} or SQLSTART EXEC (VM). 

8. If there is a name saved (for example, if there is a 
parameter nember data set to process), call PROCPOS 
routine to process the parameters in the parameter 
member data set. If no read error occurs in PROCFUS; 
nerge the parameter menher values (PRMTABLE) into the 
default table. If a read error does occur, then display 
an error message and go to step 12. 

9. Merge the JCL parameter table (JCLTABLE) into the 
default parameter table. 

10. Call CHKCONFL routine to check for conflicts according 
to defined hierarchy. If no conflicts exists, yo to 
step 11. If conflicts exists, display the appropriate 
error message and go to step 12. 

ll. Display the SQL/DS parameter valves in the default 
table. 

12. Return to caller. 


ARICRST 


ARICRST resets the storage associated with an agent after an 
abnormal teramination of the agent process. The RDS and DBSS 
stacks (automatic storage) are reset to their initial states 
{no overfilov and enpty). The input mailbox is reset to be 
the initial default buffer. All secondary (overflov) 
working storage is freed. Additionally, the miscellaneous 
status/state flags are reset in the DSCAREA. 


ARICSHO 


ARICSHO is a VM systen-dependent module that enables the 
operator to display the VN userids and SQL/DS-ids of the 
users connected to SQL/DS via the IUCY. ARICSHO displays 
the users connected to real agents; the users waiting to 
connect to a real agent (in the order that they will he 
allocated a real agent), and the users that are connected to 
SQL/DS, but inactive. 
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ICSHT 


ARICSHT is the SQL/DS shutdoun routine. It is invoked by 
the SQL/DS command processor uhen the system operator (VSE) 
or virtual aachine terminal operator requests SQL/DS to 
shutdoun. There are three types of shutdown: 


1. Normal (operator issues 'SQLEND [NORMAL]" or ‘SHUTDOWN 

CNORMAL!") 

- If VSE, SQL/DS issues a terminate quiesce to deactivate 
any inactive agent structures (the communication links 
are disconnected and no new users are alloved to 
connect to SQL/DS). Current users are allowed to 
complete their processing. When they disconnect fron 
SQL/DS, their communication link is disconnected but 
not reconnected. If VM, external interrupts are 
disabled. No new users are allowed to connect. Once 
all agents become inactive, checkpoint is invoked (by 
clean-up agent ~ ARICCLA) to perfora a final checkpoint 
(for VM, external interrupts must be re-enabled). 
Checkpoint also calls the SQL/DS termination routine 
(ARICTRMN). If no agents are active when the SQLEND or 
SHUTDOWN operator command is issued, checkpoint is 
activated to perform a final checkpoint and it calls 
the SQL/DS ternination routine. 

2. Archive (operator issues 'SQLEND ARCHIVE' or 

ARCHIVE ' } 

> SQL/DS performs the same function as normal shutdown. 
In addition, it sets the ‘archive requested’ (YRSTRMAR) 
indicator on. When checkpoint is called, it performs 
the archive function. 

3. Quick (operator issues 'SQLEND QUICK’ or SHUTDOWN QUICK®) 

- SQL/DS performs an immediate shutdown. It calls the 
SQL/DS termination routine (ARICTRN), which calls the 
SQL/DS trace close routine and goes to end-of-job. 

Then the operating system performs the communication 
disconnect function and the user application 
partition/virtual machine is posted vith a ‘SQL/DS 
disconnected and vent to EOQJ' indication. For VSE 
only, any active LUWs in prepare-to-commit status are 
resolved as in-doubt LUHs the next time SQL/DS is 
brought up. For VM,» the IUCV LOGOFF is performed via a 
call to ARICCOM. 


" SHUTDOKN 


ARICSPN 


ARICSFM is dispatched in single-user mode under the user 

agent structure. 

- If VSE and if STARTUP = C, ARICSPM loads the GENCAT Module 
(ARIGCAT). If STARTUP = S, it loads the ADDSEG Module 
(ARISEGB). If STARTUP = W or R» it loads the user 
application progran. 
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- If VM this leading has been done by ARICIP] (DSC 
initialization phase I). 

The pointer to the user parameters (or a fulluvord of binary 

zeros) are passed on the call to the application prograr. 

Upon return from the application program, SQL/DS termination 

is called (ARICTRM). 


ARICSTK 


ARICSTK is called te allecate and initialize the initial 
stack for the DBSS and RDS of each agent. 


ARICTIN 


ARICTIN is called to convert the $/370 Store Clock 
instruction value from a 64-bit binary number to date and 
time in the format an/dd/yy hh:raa:ss. 


ARICTKN 


ARICTKN is the S@L/DS parameter tokenizer routine. It 
obtains tokens from a character string that uses blanks or 
commas as delimiters. The input string, its length, and the 
starting position are input arguments. The pointer to the 
token, its length, and the index to the next byte follouving 
the teken are returned as output. The input string is 
passed in a structure that contains the length of the input 
area and the pointer to its start. The starting position is 
an index value beginning vith ome. The pointer to the token 
and its; length are returned in a structure similar to the 
input structure. In addition, the index value is updated to 
the next position after the token (for example, update to a 
comma, a blank: or else it contains the length of the string 
plus one). 


ARICTRG 


ARICTRC is the TRACE operator command processing routine. 


Entry Point: ARICTRC 
Function: ARICTRC processes the SQL/DS TRACE operator 
command. 


ARICTRC1 

ARICTRC!] shuts down SQL/DS trace when the 
SQL/DS partition or virtual machine terainates 
normally or abnormally. 


Entry Point: 
Function: 
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ARICTRI 


ARICTRI is invoked during SQL/DS initialization if either 
the TRACDBSS or the TRACROS parameter was specified as a 
SQL/DS initialization parameter. It supports SQL/DS trace 
activation via the SQL/DS initialization process (as opposed 
to the TRACE operator coamand). 


ARICTRM 


ARICTRM performs the termination function for SQL/DS. It 
prints @ reason code for terainating SQL/DS. ARICTRM also 
prints a return code to be passed back to the operating 
system. ARICTRM also calls the data base close (if SHUTDOWN 
does not equal "QUICK") and trace close routines. If an 
error should occur during termination, ARICTRM sets a 
recursion indicator (YRSTRMST) in the DBSSCVT (YRSSCVT) to 
prevent it fron attempting to retry termination, For VM, 
the IUCV LOGOFF is performed. ARICTRM returns to ARICIP] to 
complete SQL/DS termination. 


ARICWAT 


ARICWAT is the RODS linkage to the SQL/DS Dispatcher Wait 
routine (ARICOSP1). It waits for the cross-partition 
communication or Inter-User Communication Vehicle (IUCV). 

In case of a cross-partition communication or IUCV failure, 
it initiates SQL/DS backout procedures (it calls ARTYT23). 
If communication failure occurs, it calls ARIYTI5 to backout 
the user. After backout has been completed, ROS is redriven 
from the start (module ARIXERD) whenever the agent is 
re-dispatched. 
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ARICW 


ARICHFR releases all attached extended pools. It does not 
check for any unallocated area in any extended pool. 


ARICUSF 


ARICNSF returns the space allocated (by ARICWSG) to the 
caller back to the storage pool(s). 


ARICWSG 


ARICNSG allocates the requested area fron the storage 
pool(s) to the caller. (See the diagran on page 480) Upon 
successful operation; the pointer to the allocated area is 
returned to the caller (return code 0). If the storage 
pool(s) istare) full or not big enough for the request, 
ARICNSG asks the system for more storage space. The system 
then chains the allocated space to the current pool(s). 
Hovever, if the system itself runs out of space (return code 
12}, ARICWSG returns to the calling program (the caller is 
turned doun for the space request}. 


ARICWSY 


ARICWS!Y provides an initial (original) working storage pool 
for an agent structure. It also initializes the working 
storage header. 
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Note: the working storage header is in DSCAREA beginning at offset 40(28). 
FQE = free queue elenent. The FQE consists of tuo fields: 
© A four-byte pointer to next FQE 


negative t first [length of] pointer 


address extended fixst to ®* Four bytes for the size of the 
of original pool extended joriginal current free area 
header pool The pool headers use the same structure. 


pool | pool 


~>| ¢ next |size of 
cect this area 


COTTTAATAAAAAAAAAAA ASAE EAA A ATTA AAA A A 
POVTAAAALG ATTA AAAAAAA ALA AT EAA AAT AL ESS 


free space 


4//11/7/477///7/7\| aliocated space 


pct 


r 
! extended pool 
| FQ@E 


fF next pool 
pool length 
---->/ ft next [size of 
yroocp- = =FQE this area 


COTTAAAAAAAAAAAAAAA AAA AA} AAAS AAA AAAS 
COOTTAAAAAAAAAAAAT TATA TATA NAAN AAAS AS 


first extended 1 
attached pool 


ee ee 


size of 
this area 


| 
| nth extended 
ly attached pool 1 Last extended pool in chain 


9) size of 
this area 2 Last FQE in chain 
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DATA BASE SERVICES (DBS) UTILITY MODULES 


ARIDALC 


ARIDALC is the DBS Utility column node (CNODE) storage 
allocation and free routine. 


ARIDALI 


ARIDALI is the DBS Utility index node (INODE) storage 
allocation and free routine. 


ARIDALT 


ARIDALT is the DBS Utility table node (TNODE) storage 
allocation and free routine. 


ARIDBS 


ARIDBS is the SQL/DS DBS Utility Monitor. 
ARIDBS: 
* Is the main DBS Utility entry point. 

® Acquires virtual storage for the DBS Utility CPA 

{Common Processing Area), command build area» and 

SQLDA. 

Initiates a message file open request. 

Initiates a conmand file open request. 

Cails the command file read and parse nodule (ARIDCSP). 

Calls the various comnaand processor routines vhile the 

message file and the command file are in an open state. 

® Initiates a SQL logical unit of work COMMIT after the 
successful processing of most commands if the 
AUTOCOMMIT mode is ON. 

* Initiates a SQL logical unit of work COMMIT if a valid 
command file EOF condition occurs during a logical unit 
of work and no previous errors have occurred. 

® Initiates a SQL logical unit of work ROLLBACK if an 
error occurs. 

® Initiates error processing (ERRORMODE ON) during which 

only general DBS Utility command parsing is performed 

and no SQL commands or data file operations are 
executed. 

Initiates a command file close request. 

Initiates a request to free ARIDSQL SQLDSECT area. 

Initiates a request to close the message file. 

Frees all real storage areas acquired at start of 

progran. 
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ARIDCFE 


ARIDCFI is the OBS Utility command file input routine. 
ARIDCFI performs three functions: OPEN conanand file 
processing, READ command file processing, and CLOSE command 
file processing. 


ARIDCIB 


ARIOCIB builds a SQL CREATE INDEX command in the area 
identified by and from the information provided by the 
ealling prograr. 


ARIDCSP 


ARIDCSP is the DBS Utility command file record (control 
statenent} processor. 
ARIOCSP: 
® Reads the command file records. It assumes that the 
command file is opened before the first call is 
executed. 
® Constructs the command from conmand file records in the 
area addressed by CPASTHNTA. 
* Identifies the command and sets the connand-in-process 
identifier field CPACIPI. 
© Parses DBS Utility commands and updates connand 
infornation in the CPA. 


ARIDCTB 


ARIDCTB builds = SQL CREATE TABLE command that is placed in 
the output file resulting from the DBS Utility unload 
processing. ARIDCTB is also called for subsequent RELOAD 
NEW processing. 


ARIDDFI 
ARIDDFI calls ARISYSDS5 to open the data input or output 


file, to read from the data input file, to write to the data 
cutput file, and to close the data file. 


ARIDDLO 

ARIDDLO performs the DBS Utility DATALOAD command 
processing. It calls ARIDCSP to read and parse DATALOAD 
subcommands. If an INMOD subcormand is encountered, ARIDEXI 
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is called to conaunicate with the DL/I EXTRACT snodules (VSE 
only). 


ARIDDUL 


ARIDDUL perforas the DBS Utility DATAUNLOAD command and 
subcommand processing. It selects data from the data base. 
It does data conversions, if necessary, and vrites the 
selected data to a sequential output file. 


ARIDEXY 


ARIDEXI is the SQL/DS DBS linkage to the user-supplied 
module identified as the PHASENAME!] parameter of the 
DATALOAD INMOO subcommand. 


ARIDHGE 


ARIDMGE calls ARISYSDS to open the message file, to write to 
the message file (SYSLST for VSE or SYSPRINT for VM), to 
print to the message file» and to close the message file. 

It also calls ARISYSD3 to write a message to the operator 
console. 


ARIDREL 


ARIDREL performs the reload processing requested by = RELOAD 
TABLE command or a RELOAD DBSPACE command. Table(s) are 
either created new or are purged (all rows deleted). New 
rous are then inserted fron the data in the input records. 
If the table(s) are purged, all tables indexes are dropped 
and then re-created after a table is reloaded. An UPDATE 
STATISTICS comnand is issued for each table reloaded. 


ARIDSEL 
ARIDSEL is the DBS Utility SELECT command processor, It 


writes the query output to the DBS message file in either a 
coluan or blocked format. 


ARXDSFA 
ARXYDSFA is the DBS Utility SQL field analysis routine. 


ARIDSFA performs the following analyses: 
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1, CALLTYPE = “ALLOCATE (= 0): 
The vser input SQL SELECT comnand (at address CPASTHTA) 
is prepared and described by calling ARIDSQL (CPAIPRDE). 
ARIDSFA obtains an I/O area of the coaputed size by 
calling ARISYSO1 and places the address in CPASFIOA. 

2. CALLTYPE = "COMPUTE" (= 2): 
The user input SQL SELECT command (at address CPASTHTA) 
is prepared and described by calling ARIDSQL (CPAIPRDE). 
ARIDSFA does not obtain any I/O area for this calltype, 
but returns a length to the calling prograr. 

3. CALLTYPE = “FREE (= 4): 
ARIDSFA calls ARISYSO2 to free the area at the address in 
CPASFIOA. 


ARIDSOLA 


ARIDSQLA is the DBS Utility S@L linkage nodule. It executes 
SQL commands» interrogates the SQLCA, and requests SQL 
message generation. The SQL access nodule associated with 
the module is SQLDBA.ARIDSQL which is created as a result of 
the OBS Utility PREP during SQL/DS installation. 


ARIDSSB 


ARIDSSS builds a SQL SELECT * command vith or without an 
“ORDER BY" clause depending on whether a clustering index 
exists for the table. The FROM clause uses the creator and 
table-nane passed to it. The ORDER BY clause is built fron 
the COLNUMBERS column of the SYSTEM.SYSINDEXES catalog entry 
for the table that has a CLUSTER coluan value = F or H. 


ARIDUCP 


ARIDUCP is the DBS Utility command parser. ARIDUCP further 
identifies DBS AUTOCOMMIT and ERRORMODE commands; parses the 
DBS commands, and updates the appropriate fields in the CPA 
(Common processing Area) with command data. 


ARIDUNL 


ARIDUNL unloads the data requested by a UNLOAD TABLE comanand 
ox by mo UNLOAD DBSPACE command. Along with the table data» 
other control data is unloaded. The control data includes ar 
identification of the aaximum input record length, table 
definitions, and table index definitions. 
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ARIDUSO 


ARIOUSG is the DBS Utility user SQL command processor. It 
processes user entered SQL commands except SQL SELECT 
commands. ARIDUSQ parses the SQL ROLLBACK and COMMIT 
commands to deternine if the RELEASE option is specified. 
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It also parses the SQL CONNECT ‘userid® IDENTIFIED BY 
‘password’ command for the userid and password and initiates 
the special message file display for CONNECT commands. SQL 
command execution is initiated by calling the DBS Utility 
SQL linkage nodule ARIOSGL. 
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ISQL MODULES 


ARIIBIN 


ARXIBIN processes the ISQL INPUT command. It also processes 
the SAVE, BACKOUT, CANCEL, and END input mode commands. 


Function: ARIIMGA is called by ARIIPFKD when a PF key 
error message aust be displayed in the status 
area. 


ARTIBIN allous the user to insert aultiple rows into an 
existing SQL/DS table from data entered through the 


ARIICI2D ~ ISQl Systexn Dependent Module {CICS/VSE) 


terninal. ARTICI2D contains the CICS commands and system dependent 
functions used within ISQL in the nonterninal transaction. 
This routine is divided into several logical sections 

ARIICAN represented each by an external entry and will run within 
the CICS partition. Details of each entry point are 

ARXICAN is the ISQL cancel processor. ARIICAN does the provided in the prolog for that entry point. 

following: 


® Cleans up a routine after a CANCEL 
® Issues a ROLLBACK 


The following CICS/VSE systen dependent functions are 
provided by this routine: 


® Deletes Temporary Storage ® CICS HANDLE function 
© Displays messages © CICS ADDRESS function 
® CICS ASSIGN function 
® CICS START function 
ARIICICD - Terminal Control (VSE) ® CICS RETRIEVE function 
® CICS WAIT function 
ARYICICD contains some of the CICS commands and system ® CICS ENG function 
dependent functions used by the terninal contro] transaction ® CICS DEQ function 
for automatic storage GETMAIN and FREEMAIN. It gets control ® CICS GETMAIN function (Macro level) 
from CICS when the user enters the ISQL transaction-id, or ® CICS FREEMAIN function (Macro level) 
when the second transaction issues an EXEC CICS START ® CICS RETURN function 
command to start the ternainal control transaction. ® CICS READ Temp Storage Queue function 
® CICS WRITE Teap Storage Queue function 
Entry Points ARIICIC ® CICS DELETE Tenp Storage Queue function 
Function: ARIICIC gets control from CICS and does ISQL @ CICS ROUTE function 
initialization processing. If it is the ® CICS SEND PAGE function 
beginning of the session, it does the welcone ® CICS SEND TEXT function 
screen processing; starts the second ® CICS DUMP function 


transaction action, and calls ARIITRMD to set 
up the NAIT/POST Linkage between the two 
transactions, If it is returning after "going 
away" then it does CANCEL request processing. 
If it was started from the terminal, and it 


Entry Points: ARIICI20, ARISYSNG, ARISYSD2, ARIIGH, ARIIFM 
ARIIWAIT, ARIITS, ARIIENG, ARIIDEG, ARIIRTRN, 
ARIITIO, ARILTDP, ARIIROUT, ARIISTXT: ARIISPGE 


does initialization and sets up the WAIT/POST 
linkage if it was started by the second 
transaction. 


Entry Point: ARTICI2D 
Function: ARIICI2D does ISQL initialization processing 
and contrel which consists of the following: 


© GETMAIN Automatic Storage 
Entry Point: ARISYSOG ® GETMAIN and initialize the Global Area 
Function: ARISYSOG gets storage from the CICS partition. © Retrieve ITRM Work Area pointer 
® Setup CICS Handle Conditions 
Entry Point: ARISYSD2 ® GETMAIN Global. Control Block Extension 
Function: ARISYSO2 frees up storage fron the CICS ® GETMAIN Command Buffer 
partition. © GETMAIN SQLCA 
® GETMAIN Current SQL Statenent Buffer 
Entry Point: ARIIMGA ® GETMAIN Previous SQL Statenent Buffer 
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Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Points 
Functions 


ARISYSDS 


GETMAIN Normal Screen Buffer 
Initialize GCBPTR for ARIITRMO 
Post ITRM Startup ECB when Global Aren is initialized 
Meve Signon Routine to Command Buffer for ARIIPRF 
Post ARIITRMD to Display Initialization Status 
Call ARIISQL3 to issue a SQL Connect and verify it 
Call Profile Initialization Routine (ARIIPRF) 

Call ARIIDBS for Mainline Loop Processing 

Return to CICS when Exit is entered 


ARISYSOG does CICS GETHAIN(MACRO LEVEL) for 


automatic storage. 


ARISYSD2 


ARISYSD2 does CICS FREEMAIN(MACRO LEVEL) for 


automatic storage. 


ARTIGH 


ARTIGM does CICS GETMAIN(MACRO LEVEL). 


ARIIFM 


ARTIFM does CICS FREEMAINCMACRO LEVEL). 


ARTIWAIT 


ARTIWAIT issues CICS WAIT to wait on a single 


event (ECB). 


ARIITS 


ARIITS performs a WRITE to a CICS Tenp Storaga 


Queue, 


ARTIENGQ 


ARIIENG does CICS ENQUEUE/ACTESS resource. 


ARTIDEQ 


ARITIDEQ does CICS DEQUEVE/RELEASE resource. 


ARTIRTRN 


ARIIRTRN is called to do cleanup and exit if 
ISQL encounters an unrecoverable error. It 
deletes the temporary storage queve, frees the 
global control block storage, and clears the 


extract XECBs. 


ARIITIO 


ARIITIO starts the ISQL transaction if it is 


not already started. 


It POSTs the ISQL 


transaction to do sone terminal I/O, and WAITs 
for the ISQL transaction te complete. ARIITIO 
then returns to ARIIRWI. 
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Entry Points ARIZTDP 
Function: ARIITOP dumps the ISQL trace table and global 
control block for tha ISQLTRACE DUMP command. 


Entry Point: ARIIROUT 
Function: ARIIROUT issues an EXEC CICS ROUTE command for 
terminal printers. 


Entry Point: ARIISTXT 
Function: ARIISTXT issues an EXEC CICS SEND TEXT command 
for texrninal printers. 


Entry Point: ARIISPGE 
ARIISPGE issues an EXEC CICS SEND PAGE command fer 
texrninal printers. 


ARITICND 


ARTICMD calls the cormand verification routine to deteraine 
if the command entered is a valid ISQL command. It also 
processes the EXIT, SHOW, and COUNTER cozzands or calls 
other modules to process the remaining ISGQL commands. 


ARIICNY 


ARTICNV converts a halfword, fullword, or packed decinal 
munber te an edited number with decimal places. Optionally 
leading zeros and punctuation insertion are performed. 
Punctuation may ba American, European or French notation. 


ARLIDES 


ARIIDBS ie the mainline controller for ISQL. ARIINBS reads 
user input by calling ARIIRWI, Then ARIIOBS callw ARTICHD 
to process ISQL commands, or calls ARIIPGQL to process SQL 
statenents; ox calls ARIIHLD to process the ISQL HOLD 
coarand. 


AREIDOY 


ARTIDGY is the query display nodule. It handles the 
forward/backward/coluan/tab/left/right commands. ARIIO@Y 
also maintains the display buffer. 


ARIIERS 


ARIIERS erases stored SQL utatenants fron the Stored Query 
Table (SQLDBA}. 
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ARTIEXT 
ARIIEXT receives control at AXTCMNDS or AXTCEXTS. It issues 


a wessage saying the extract facility is not installed, and 
returns to ISQL. 


ARTIFCC 


ARTIFCC is the FORMAT COLUMN command processor. 


ARIIFCY 
ARIIFCI processes the FORMAT EXCLUDE and INCLUDE commands. 


Entry Point: ARIYIFCII 
Function: ARIIFCIL is the FORMAT EXCLUDE connand 
processor. 


Entry Point: ARIIFCI2 
Function: ARIIFCI2 is the FORMAT INCLUDE command 
processor. 


ARYXFCS 


ARTIFCS processes the FORMAT GROUP, SUBTOTAL, and TOTAL 
comnands. 


Entry Point: ARIIFCSi 
Function: ARIIFCS] is the FORMAT GROUP command processor. 


Entry Point: ARIIFCS2 
Function: ARIIFCS2 is the FORMAT SUBTOTAL command 
processor. 


Entry Point: ARIIFCS3 
Function: ARIIFCS3 is the FORMAT TOTAL command processor. 


ARIIFET 
ARIIFET is the ISQL fetch module. Jt fetches a row from the 
data base. ARIIFET also calls the report writer if totaling 


er subtotaling occurs. 


ARIIFNC 


ARIIFMC is the FORMAT command processor. It formats the 
display of a SELECT statement. ARIIFMC also checks the 
FORMAT command and stores the inforrgation in the Format 
Control Block. 
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ARIIFNT 


ARLIFHMT takes the row retrieved fron SQL/DS in response to a 
query and forrats the row so it can be displayed or printed. 


ARIYFOL 


ARIIFOL is the ISQi. folding routine. It determines if input 
is a valid SQL statenent and sets the IGCSGL bit. ARIIFOL 
folds all input from the terninal to upper case. 


Entry Point: ARIIFOL 
Function: ARIIFOL folds all input to upper case and finds 
valid SQL statements on input. 


ARIIFOR 


ARIIFOR is the ISQL message formatter routine (twin rodule 
of ARIMFMT}. The message formatter retrieves a message (or 
line of a multi-line message) and substitutes any 
caller-provided nessage variables into the message (or 
line). See ARIMFMT for more functional detail. 


ARIIFULD — Full Screen Condition Handler 


ARIIFULD displays the message prorzpting the user to PRESS 
JHE CLEAR KEY OR ENTER CANCEL or displays the nessage 
prompting the user to PRESS THE CLEAR KEY. It sets the 
IGCINDEX and IGCERASE fields in the global control block so 
that the next display to the terminal vill begin at the top 
of a cleared screen. 


Entry Point: ARTIFUL 
Function: Checks the bit parameter passed to it. If it is 
on, display the message proapting for the CLEAR 
KEY or CANCEL. If it is off, displays the 
message prompting for the CLEAR KEY only. 


ARITHDR 
ARIIHDR produces column headers to he displayed or printed. 


ARIIHLD 


ARIIHLD saves a SQL command in the current buffer without 
the statenent being executed. 
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ARIZHLP 


ARIIHLP processes the HELP command. ARIXHLP also: 
® Verifies the topic entered on the HELP connand exists 
© Builds a SELECT statenzent to obtain the HELP 
docunentation 
® Calls ARIIPSG to process the SELECT statenont that wae 
built. 


ARITIGN 


ARITIGN generates a nessage stating there is nothing to 
ignore. 


ARIILST 


ARIILST processes the LIST SQL command or calle ARIIGRY to 
process the LIST SET connand. 


ARIIMAP 


ARIIHAP displays the address of the ISQL nodules on the 
terminal CISQLMAP conmand). 


ARLINSG 
ARIINSG is the ISQL message service routine. 


Entry Point: ARIYMO4 
Function: ARIYNO4 is invoked to write an ISQL message to 
the user terrinal and opticnally read a reply. 


ARZINITC 


ARIINITC is the ISQL initialization routine for CP/CHS. 
ARIINITC perforas the following: 
® Saves pointer to sign-on routine 
® Frees bootstrap storage 
® Obtains and initializes the following work areas: 
Global Control Block 
SQLCA 
Resource Manager area 
Small comnuand buffer 
large coanand buffer 
Current SQL buffer 
~ Previous SQL buffer 
® Validates terninal size and type 
© Calis ARIISYSC to obtain ARIISYSC's automatic storage 
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Calls ARIISTK to obtain stack storaga 

Obtains storage for trace table 

Establishes an ABEND exit 

Sets V4 user-id 

Calls ARXYISQLS to astablish CANCEL az an innediate 

connand 

Initializes sap table for ZISQLMAP 

Obtains normal screen buffer 

Moves sign-on routine to command buffer for ARIIPRF 
Calls ARIIPRF to do profile processing 

Calls ARLIDBS for mainline loop processing 

Cleans up when exit is entered: 

= Stack NUCEXT drop 

= Renove innediate command extension for CANCEL 

= Reset ABEND exit 

- Free storage obtained for stack manager 

- Free storage for trace table 


eeses? 


eeeoeoed 


Free normal screen buffer 

Free SQL DSECT storage that was obtained 
by ARIISQL 

Free nutomatic storage obtained by ARIISYSC 
Free vork areas 

« Global Control Block 

SQLCA 

Resource Manager area 

Small command buffer 

large comnand buffer 

Current SQL buffer 

- Previous SQL buffer 

° Returns to CHS, bypassing bootstrap. 


eo es eo: 6 


ARIINWE 

ARIINME finds TABLE.COLUMN names. ARIINHE returns the 
length of the name, pointer to the name, and an index inte 
the nane for the '.'. 

ARZTINSG 

ARIINSG generates a SQL command not allowed at this tine 
message. 

ARIZOCY 

ARIIOCI is the operator command linkage. It is the linkage 
between the ISQL nainline module and the operator command 


processors in the SQL/0S partition (VSE) or SQL/DS nachine 
(VM). 
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| ARTIOVD 


ARTIOVO is the operand validation routine. It checks the 
operands of SET, QUERY, FORMAT or PRINT command and 
deternines if they are valid. If they are valid, the 
address of the routine to handle the operand is returned to 
the calling nodule. If they are not valid, am address of 0 
is returned. 


| ARLIPAT 


ARIIPAT provides & common patch area for rodules on VM and 
nodules in the command processor transaction (CISQ). 


| ARIIPATD 


ARIIPATD provides a connon patch area for nodules residing 
in the terninal transaction (ISQL) in VSE. 


ARIIPFKD 


ARIIPFKD is the VSE PF key processor. It is called to 
process all PF keys except the RETRIEVE key (PFI2, PF24). 


ARTIPQL 


ARIIPQL is; the buffer rnanager for the two SQL buffers. It 
coples the SQL statement from the current buffer to the 
previous buffer. ARIIPQL also copies SQL statement fron the 
input buffer to the current buffer. ARIIPQL then calis 
ARIIPSQ to process SQL commands. 


ARIYPQY 


ARTIPQY is the SELECT SQL statenent processor. It 
initializes the default formatting information and allocates 
the display buffers. ARIIPQY calls ARIIRWI te display the 
query results. 


Entry Point: ARIIPQY1 
Function: ARIIPQY1 processes the END conmmand. 


Entry Point: ARIIPQY2 
Function: ARIIPQY2 processes the BACKWARD command. 


Entry Point: ARIIPQY? 
Function: ARIIPQY3 processes the navigation conrands. 
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Entry Point: ARIIPay4 
Function: ARIIPQY4 processes tke DISPLAY conmand. 


Entry Point: ARIIPQYS 
Function: ARIIPQYS5 processes the FORMAT command. 


Entry Points: ARIIPQY6 
Function: ARIIPQY6 processes the PRINT connand. 


ARIIPRE 


ARIIPRF sets up ISQL defaults and then issues an internal 
RUN command for each of the following (if they exist): 

1. SQLOBA. PROFILE 

2. userid.PROFILE 

3. user~supplied signon routine. 


ARIIPRTC 


ARTIPRTC is the VM/CMS PRINT command routine (ISQL hardcopy 
routine). ARIIPRTC: 

® Prints tables fron display acde 

® Centers top and bottom title 

© Verifies the validity and range of any operands 

© Provides date and page nuabering 


ARIZPRTD 


ARLIPRTOD is the VSE PRINT conmuand routine (ISQL hardcopy 
routine). ARIIPRTD: 

® Prints tables from display node 

© Centers: top and bottom title 

© Verifies the validity and range of any operands 

® Provides date and page numbering 


ARIIPSO 


ARIIPS@ handles all SQL commands. It checks whether the SQL 
statenent is valid from ISQL. Then if ctatenent is a SELECT 
statement, ARIIPSQ calle ARIIPQY. If statenent is a 
‘normal’ SQL statement, ARIIPS@ calls ARIISQL. ARIIPS@ also 
does the autoconnit processing if it is necessary. 


ARLIYORY 
ARIIQRY processes the LIST SET connand. 
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ARIIREAG 


ARIIREAC reads input for VM ISQL. If the IGCTERM switch ic 
on indicating that nessages are forced to the terminal and 
input is read from the terminal, the RDTERH direct macro is 
used to bypass reading from the program and console stacks. 
If the IGCTERM switch is not on» a ROTERM macro ie used 
without the DIRECT parameter. This first tries to read fron 
the program stack. If the progran stack ic enpty, it tries 
to read from the console stack. If both the progras stack 
and console stack are expty, it reads from the terninal. 


ARIIREAC also issues an SVC 202 to invoke the CMS SUBSET ir 
the user enters CMS. ARIIREAC also calle ARIIVFYC if the 
user enters CANCEL. 


ARIIREG 


ARTIREC is the RECALL command processor. ARIIREC recalle a 
previously stored SQL statenent and all related formatting 
information fron the Stored Query Table (SQLDBA). ARIIREC 
elso recalls the current or previous SQL statenent. 


ARTIRETD 


ARIIRET is the VSE RETRIEVE processor. It is called to add 
new user input Lines to the RETRIEVE buffer, and to retrieve 
user input lines from the RETRIEVE huffer. 


ARITRNG 


ARTIRNG is the RENAME command processor. It renames a 


previously stored SQL statement in the Stored Query Table 
(SQLDBA}. 


ARIIRPT 
ARIIRPT creates a total or subtotal row at the proper tine. 


Entry Point: ARIIRPT1 
Function: ARIIRPT! initializes the accunulators to 
subtotal and total the specified fields. 


Entry Point: ARIIRPT2 
Function: ARIIRPT2 inserts = subtotal pseudo-rovw into the 
row buffer, if it is required, ARIIRPT2 
inserts the row that caused the control break 
after all the pseudo-rous are inserted. 
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Entry Point: ARIIRPT3S 
Function: ARIIRPTS accumulates values according to the 
Format Control Block and seta a flag if at 
least one control break is encountered. 


Entry Points ARIIRPT@ 
Function: ARIIRPT¢ frees storage gotten by the previous 
calls to ARIIRPT entry points. 


ARTIRUN is the RUN command processor. It reads the routine 
into temporary storage. ARIIRUN also performs any RUN 
paraneter substitution, Then ARIIRWI vill execute the 
routine. The issuer of the RUN command can use a procedure 
of another user by using the other userid in the RUN 
coumand., 


ARIIRWE 


ARIIRWI is the SGL/DS ISQL Read/Mrite Linkage routine. It 
is the linkage between ARIITIO and nodules requesting 
terminal I/O. ARIIRWI is also the linkage between ARIITS 
and nodules requesting a read from a routine. It is called 
by any module that vants to vrite to the terzinel and/or 
read from the terminal or a routine. 


ARIISCC 
ARIISCC processes the START, and CHANGE coanands. 


ARZEISCWD — CICS COMMAND HODULE 


ARIISCHD contains CICS command functions (SEND, RECEIVE, or 
WAIT) which are called by other acdules in the terninal 
control transaction. 


Entry Point: ARIISCH 
Function: Checks the REQTYPE paraneter passed to it, and 
perforas the appropriate processing to handle 
the request indicated in the REQTYPE parameter. 


ARIISET 


ARIISET processes the SET conmand. 
to process. 
the operand. 


It decides which operand 
Then the correct routina is called to process 
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ARIISMG 


ARIISMG is the ISQL/EXTRACT routine for writing SQL messages 
to the terminal. 
message or condition code text. 


ARIISMG obtains the appropriate SQL 
Then ARIISMG writes the 


message to the terminal. 


ARTIISQL 


ARTISQL contains all ISQL SQL statenents, except for 


specific EXVRACT coamands. 


by the preprocessor. 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 


Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Points 
Function: 


Entry Point: 
Function: 


Entry Point: 
Functions 


Entry Point: 
Function: 


Entry Point: 
Function: 


ARTISQL 
Executes general purpose SQL statezents. 


ARTISQLi 
Manipulate stored SQL staterents. 


ARTISQL2 
Retrieves all stored SQL commands using a 
cursor. 


ARTISQL3 
Performs CONNECT when user signs on using & 
userid and passvord. 


ARITSQL4 
Insures the Help text topic is in table 
SQLDBA.SYSTEXT1. 


ARTISQLS 
Tests for the existence of a table for a 
certain user. 


ARITSQL6 
Insures the Help text topic is in table 
SQLOBA.SYSTEXT2. 


ARIISQL7 
Obtains the userid currently connected to 
SQL/os. 


ARIISQLS 

Establishes the VM/SP cancel exit and makes 
CANCEL a valid name for the canceling process. 
The ARIRCAN macro is used for this. 


ARIISQLY 
Insures that the Help text table 
SQLDBA.SYSTEXTL is not empty. 
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It is the only routine processed 


ARIISTK 


ARIISTK gets the storage for the initial stack for nodule 
automatic storage areas and initializes the stack header. 


ARIISTR 


ARIISTR is the STORE command processor. ARIISTR saves a SQL 
statement and all formatting information in the Stored Query 
Table (SQLDBA}. 


ARIISTX 


ARIISTX is a message module for ISQL messages, and status 
messages that cannot be processed as normal messages by 
ARYYMO%. There is no executable code in ARIISTX. 


ARTIST2 


ARIIST2 processes the AUTOCOMMIT, CASE, CONTINUE and DECIMAL 
operands of the SET conmand. 


ARIISTS 


ARTISTS processes the NULL, PAGESIZE, SEPARATOR, and VARCHAR 
operands of the SET command. 


ARIIST4D 


ARIISTSD is a message aodule for ISQL terminal control 
transaction aessages, and status ressages that cannot be 
processed as normal messages by ARIYMO%. There is no 
executable code in ARIIST4D. 


ARIISUB 


ARTISUB takes a string of tokens and substitutes ther into 
the &1,5%2,%3,...10 variables in the conmand buffer. 


ARIZISYSC - ISQL System Dependent Module (VM/SP) 


Module ARIISYSC contains systen-dependent subroutines for 
CHS (this is the VNW/SP version of ARIICI2D). ARIISYSC 
contains the VN/SP command and systen-dependent functions 
used within ISQL. This routine is divided into several 
logical sections, each represented by an external entry, and 
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will run in a user machine. Oetails of each entry point are 
provided in the prolog for that entry point. 


The folloving VM/SP systea-dependent functions are provided 
by this routine: 
© DMSFREE te obtain storage 
OMSFRET to free storage 
LINEDIT to write out abend message 
MAKEBUF to create a program stack 
ATTN to write to the prograr 
CLOSE PRINT to close the stack virtual printer 
DUMP to dump the Slobal Control Bleck and trace table 
to the virtual printer 
SENTRIES to determine how many commands are in the 
program stack 


Entry Points: ARIISYS, ARISYSDG, ARISYSO2, ARIIGM, ARIIFM, 
ARIITS, ARIITOP, ARIIABN, ARIISTC 


Entry Point: ARIISYS 
Function: Do a CHS DMSFREE to obtain the automatic 
storage for this nodule and save its address in 
IGCCI2Z0 and its length in IGCSYSCL. 


Entry Point: ARISYSOG 
Function: Do a CHS DNSFREE to obtain automatic storage. 
An abend will occur if the storage is not 
available. 


Entry Peint: ARISYSD2 
Function: Do a CMS DMSFRET to frae autonatic storage. 


Entry Point: ARIIGN 
Function: Do CMS ONSFREE to get buffer storage. Control 
returns to the calling module if the storage 
request is not available. 


Entry Point: ARIIFM 
Function: Do CMS DMSFRET to frae buffer storage, 


Entry Point: ARIITS 
Function: Perform a routine I/O. 


Entry Point: ARIITOP 
Function: Dunp the Global Control Block and trace table 
to the Virtual printer. 


Entry Point: ARIIAGN 
‘Function: Write out a user-friendly abend message when 
ISQL abends. 


Entry Point: ARIISTC 
Function: Determine how many commands are in the progran 
stack. 
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ARIITIOC 


ARIITION is called when ViN/CHS terminal I/O is required. 
Input operations are performed by calling ARIIREAC. Line 
output operations are done using the WRTERM macro. Query 
result displays are done using DIAG K*58' CCW X'I9'. 


RIITK 


ARIITKN gets the token after the start position for the 
scan» ‘IPARM'. ARIITKN then sets up a pointer and length to 
the next token in the buffer passed to ARIITKN. 


ARIITRE 
ARIITRC is the ISQLTRACE conmand processor. 


ARITTRND 


ARIITRMO is tha VSE terminal control nodule. It is the 
linkage between the user tersinal and the CISQ transaction. 
ARIITRMD waits on the CISQ transaction to post IGCTECE when 
a CICS service is required. It checks for the type of CICS 
service required, Then ARIITRMD either calls the 
appropriate service routine in ARIICICD, or ARIITRMD returns 
to ARIICICO to perform the service. 


Linkage: 

® Called by ARTICICD after initialization processing is 
complete. 

® Posted by ARIIDBS (Gets control at nest sequential 
instruction after HAIT.) 

® Posted by ARIITIO lentry point in ARIICI203, (Gets 
control at next sequential instruction after WAIT.) 

* Posted by ARIIXIT (Gets control at next sequential 
instruction after WAIT.) 

® Posted by EXTRACT (Sets control at next sequential 
instruction after WAIT.) 


Tiv 


ARLIVFYC is the cancel verification sodule for VH. If the 
autoconmit bit is on, it sets IGCANCEL on; otherwise, it 
pronpts the user to verify the cancel request. If the user 
verifies the request, it sets IGCANCEL on. If the user does 
not verify the request, it leaves IGCANCEL alone. 
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ARIYUFYD 


ARIIVFYD is the cancel verificatien nodule for VSE. It 
checks the autocoanit bit to see if CANCEL should be done. 
If the bit is off, it prompts the user to verify that the 
CANCEL should be done. If the users enters YES, or if the 
bit was on, the CANCEL request is done (IGCANCEL is turned 
on). 


Entry Point: ARIIVFY 

Function: Checks the contents of the buffer whose length 
and address are passed as parameters. If it is 
not CANCEL, return to the caller. If it is 
cancel, check the autocommit bit. If the bit is 
on, turw IGCANCEL on and return to the caller. 
If the bit is off, proapt the user to verify 
that the request should be done. If the user 
enters YES, turn I6CANCEL on. Otherwise, leave 
IGCANCEL off and return to the caller. 


ARIIVLD 


‘ARTIVLD is the ISQL conmand validation routine. It contains 
a teble of all ISQL connmands and extract connands and the 
addresses of the routines to process them. If the ISQL 
command is valid, the address of the routine is returned. A 
bit is alse set, if the conmand is allowed, in the current 
environment (that is, during query display processing). If 
the IS@L conmand iis not valid, 0 is returned. This routine 
is called by ARLICMD (Main Cornand Module), the bulk input 
module (ARIIBIN), and the query result manager {ARIIPQY). 


ARTIWATD 


Before VSE ISQL frees the terminal, ARIINATD delays ISQL for 
15 seconds. ARIIWATD delays ISQL to see if another I/0 
request vill be issued. 


ARIIWRTD —- Line, Screen, and Status Write Module (VSE) 


ARIINRTD determines what type of the display is being 
requested, and then calls the corresponding internal entry 
point to process it. 


Entry Point: ARIIWNRT 
Function: Checks the contents of the IGCWRIT field to 
deternine which type of vrite operation (line, 
screen, or status) is to be done. For a line 
urite, it calls ARIIDM. For a screen write, it 
calls ARIIDGS. For a status vrite, it calls 
ARTIDST. 
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Entry Point: ARIIDH 

Function: Formats the 3270 data strean for a line urite. 
Checks the IGCREAD bit in the global control 
block. If it is on, it sets up parameters to 
call ARIISCHD to do a SEND and a RECEIVE 
request. It calls ARIIPFKOD to do PF key 
processing, if necessary. It calls ARIIVFYD to 
do CANCEL verification on the user input. If 
IGCREAD is off, it sets up parameters to call 
ARIISCHD to do a SEND request. 


Entry Point: ARIID6S 
Function: Formats; the 3270 data stream for a screen 

write. Checks the IGCREAD bit in the global 
control block. If it is on» it sets up 
parameters to call ARIISCMD to do a SEND and a 
RECEIVE request. It: calis ARIIPFKD to do PF key 
processing, if necessary. It calls ARIIVFYD to 
do CANCEL verification on the user input. If 
IGCREAD is off, it sets up parameters to call 
ARIISCMD to do a SEND request. 


Entry Point: ARIIDST 
Function: Formats the 3270 data stream for a status 

vrite. Checks the IGCREAD bit in the global 
control block. If it is on» it sets up 
parameters to call ARIISCMD to do a SEND and a 
RECEIVE request. It calls ARIIPFKD to do PF key 
processing, if necessary. It calls ARIIVFYD to 
do CANCEL verification on the user input. If 
IGCREAD is off, it sets up parargeters to call. 
ARIISCHD te do a SEND request. 


ARIIXITD - (VSE) 


SQIP calls ARIIXITO to support a cancel in SQL/DS. It vaits 
for the CANCEL ECB te be posted or the SQL/DS ECB to be 
posted. 


ARISISBT — (vm) 
See ARISISK. 


ARISISK - (vm 


ARISISK is invoked in the VM environment by the SQLGENLD 
EXEC. It is a bootstrap aodule which is GENMODed under the 
name ARISISBT, and later invoked by the SQLISTRT EXEC. 
ARISISK loads the ISQL code and then branches to the ISQL 
initialization nodule. 
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COMMON SQL HESSAGE NODULES AND OP TREE AND SPACE BLOCK TRACE FORMATTER MODULES 
(Modules ARIMPRT through ARIHPTS, ARIMSCF, and ARINSCH belong to the Op Tree and Space Block Fornatter.)} 


RI N 


ARIHMBIN converts a fixed(31) signed binary integer to an 
unpacked zoned decimal string. The first byte is blank if 
the number is positive and contains a minus sign if the 
nurmber is negative. Leading zeros are not generated. The 
length of the string (including the sign byte) is returned. 


ARINCID 


ARINCID checks identifiers for valid contents. Length 
checking is up to the caller. The character string (XC) is 
checked left to right for the length indicated by the length 
field (XL). If wnalloved characters sre found embedded in 
the string, the nodule returns a return code of 12. If 
blanks are found and they continue to the end of the string 
according to the length specification (trailing blanks), 
then a return code of 4 is set. Embedded blanks are 
erroneous and cause a return code of 12. Valid identifiers 
will result in a return code of @. 


ARIMNDEC 


ARIMDEC converts an unsigned, unpacked decimal character 
string to a fullvord binary integer. The decinal string car 
be zero to eight characters long. If the string is less 


than eight characters, it aust be terninated by a blenk 
character. 


ARIMNDFP 


ARIMDFP is the SQL/DS floating point conversion routine. 
ARIMDFP is tha tuin nodule of the routine ARIHFLP. ARIMDFP 
is for non-RDS users and is currently used by the DBS 
Utility and ISQL. ARIHFLP is for ROS users. It is called 
by the optimizer routines: ARIXOOF and ARIXOTF. 


ARIMDFP uses the macros ARISSTM and ARISFM to perform its 
Prolog get storage (by calling ARISYSD1) and epilog free 
storage (by calling ARISYSO2). 


ARINFLP uses the racros ARICRDG and ARICRDF to perform its 
prolog get storage (by using stack storage, the pointer is 
in RDAREA) and epilog free storage. ARIMFLP alse has 


Register 10 restricted to contain the address of RDAREA (RDS 
convention). 
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Entry Point: ARIMDFP) 

Function: ARIMDFP1 performs the conversion of an 8 byte 
floating point point number in IBM/370 internal 
representation to a character string that 
contains the external EBCDIC representation of 
the input floating point number. 


FLINGPT is the input paramater for this entry 
point. It containe a floating point number in 
IBM/370 internal representation. CHARACTR and 
LEN are output paraneters for this entry point. 
CHARACTR is a character string containing the 
EBCOIC representation of the input floating 
point number, left justified. LEN is the 
length of the returned string. The naxinun 
length is 20. 


Exit Normal: Character representation in CHARACTR and its 
length returned in LEN. 


Exit Error: None, no orrors detected. 


Entry Points ARIMDFP2 
Function: ARIMDFP2 performs the conversion of 2 literal 
string (EBCOIC characters) that represents a 
floating point nuuber into an 6 byte floating 
point nuaber in IBN/370 internal 
representation. 


PARMSTR and ARGLEN are input paraneters for 
this entry point. PARMSTR is a string 
contsining the EBCDIC representation of a 
floating point number. ARGLEN is the length of 
the input character string PARMSTR. FLTNG ig 
the output parameter for this entry point. It 
is s double-precision floating point number in 
the internal systen 370 forsat. 


Exit Normal: If Register 15 contzins: 
* Return code O: Processing okay. 
© Return code 4: Significant digits aay be lost. 


Exit Error: If Register 15 contains: 
® Return code 6: Underflow - number is too snall. 
© Return code 12: Overflow - number is too large. 
® Return code 16: Too many digits, (>2), in the 
exponent field. 
© Return code 20: Langth > 30. 
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® Return code 24: Syntax error. 


ARIMNFELP 


ARIMFLP is the SQL/DS floating point conversion routine. 
ARIMFLP is the twin nodule of the routine ARIMDFP. ARIMDFP 
is for non-RDS users and is currently used by the DBS 
Utility and ISQL. ARIMFLP is for RDS users. It is called 
by the optimizer routines: ARIXODF and ARIXOTF. 


ARIMOFP uses the macros ARISGTM and ARISFM to perforn its 
prolog get storage (by calling ARISYSDI1) and epilog free 
storage (by calling ARISYSDZ). 


ARIMFLP uses the racros ARICRDG and ARICRDF to perform its 
prolog get storage {by using stack storage, the pointer is 
in RDAREA) and epilog free storage. ARIMFLP also has 
Register 10 restricted to contain the address of RDAREA (ROS 
convention). 


Entry Point: ARIMFLP1 
Function: ARIMFLPL performs the conversion of an & byte 
floating point point number in IBH/370 internal 
representation to a character string that 
contains the external EBCDIC representation of 
the input floating point auaber. 


FLTNGPT is the input parameter for this entry 
point. It contains a floating point number in 
IBM/370 internal representation. CHARACTR and 
LEN are output paraneters for this entry point. 
CHARACTR is a character string containing the 
EBCDIC representation of the input floating 
point number, left justified. LEN is the 
length of the returned string. The maxinun 
length is 20. 


Exit Normal: Character representation in CHARACTR and its 
length returned in LEN, 


Exit Exror: None» no errors detected. 


Entry Point: ARIMFLP2 
Function: ARIMFLP2 performs the conversion of a literal 
string (EBCDIC characters) that represents a 
floating point number into an & byte floating 
point number in IBM/370 internal 
representation. 


PARMSTR and ARGLEN are input parameters for 
this entry point. PARMSTR is a string 
containing the EBCDIC representation of a 
floating point nuaber. ARGLEN is the length of 
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the input character string PARMSTR. FLING is 
the output parameter for this entry point. It 
is a double-precision floating point number in 
the internal system 370 fornat. 


Exit Normal: If Register 15 contains: 
® Return code 0: Processing okay. 
© Return code 4: Significant digits aay be lost. 


Exit Error: If Register 15 contains: 
® Return code 8: Underflow - number is too small. 
® Return code 12: Overflow ~- nurber is too large. 
® Return code 16: Too many digits, (>2), in the 
exponent field. 
® Return code 20: Length > 30. 
® Return code 24: Syntax error. 


ARIMFNT 


ARIMFNT is the rnessage formatter routine. The nessagea 
formatter retrieves a message (or line of a nulti-line 
message) and substitutes any caller-provided nessaga 
variables into the rnessage (or line}. It is the tuin nodule 
of ARIYNCS and ARIIFOR and is used in load nodules whick do 
not have stack storage. Using the caller-provided message 
number or SQL code, the nessage index or SQL index table is 
searched to locate the message module containing the 
message. 


HSGID, BUFFER, and VARLPT are input paraneters for ARIMFMT. 
MSGID contains the requested message/SQL code number, a flag 
indicating the SQL code and for naulti-line messages, and the 
line sequence number (line sequence number can be either 0 
or 1 for first line of message; 0 is forced to 1}. BUFFER 
contains the structure length, the unused flag fields, a 
field to return message line length, and a field to contain 
the returned message line. VARLPT is a pointer to the 
VARLIST structure (or null if no VARLIST)}. VARLIST tells 
how many variables ere passed and contains the length and 
address of each variable. A special NOVAR flag requests 
zero length substitution. 


The output for ARIMFMT is: 

® Requested message or nessage line and length in buffer 
structure (returm codes 0 - 12) 

® Updated line sequence number in MSGID field SEQNO 
(return codes 0 and 8) 

® Message ARIOSSE in buffer structure {return code 16) 

® NONE (return code 20) (For ARINSHF, also return code 
24) 

® Return code in Register 15 (see “Exit Noxral" and "Exit 
Error"} 
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Exit Noraal: 
® Return code 0: Message line in buffer, no errors, 
more lines to rnessage 
© Return code 6: Message line in buffer, no errors, no 
more lines to message 


Exit Error: 

® Return code 4: Message line in buffer, aore lines to 
message, and message line has truncation error (too 
long for buffer) and/or substitution failure (&nnn. 
still appears in the linej 

® Return code 12: Message line in buffer, no snore 
lines to message, and message line has truncation 
and/or substitution error 

® Return code 16: Error message in buffer that gives 
nessage/SQL code numher and reason code identifying 
why message could not he retrieved. 
(ARIMFMT/ARIIFOR error) or error message in buffer 
gives a reason code identifying which MSGID fields 
contain invalid values (ARIMSMF detected error - 
results in 511 message). 

® Return code 20: No message in buffer due to invalid 
caller parameter (null address or buffer less than 
minimum required size). 


ARIMHEX 


ARIMHEX converts a fixed(3i) signed binary integer to a 
printable hexadecinal string. Leading zeros are not 
generated (thus a binary one produces a one byte string with 
the character one). If the binary input is zero, the output 
is a one byte string with the character zero. 


ARIMPRT 


ARIMPRT is the SQL/DS trace formatter print routine. It 
outputs a print line to SYSLST (VSE) or SYSPRINT (VM). 
ARIMPRT also updates the line counter in the ARINMFCT 
(formatter control table). 


ARIMPTT 


ARIMPTT is a trace formatter intermediate module in the 
nodule chain that outputs a formatted Op Tree block, its 
relocation directory» and subsequent space blocks(if 
present) as part of the off-line trace function of the 
SQL/DS systern. ARIMPTT takes the trace blocks containing 
the OP Tree,» relocation directories, and space blocks. Then 
it reconstructs them into the chained format (sane fornzat 
used by the RDS component) as follows: 

Op tree block: 
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Relocation Directory - Pointer to this block's 
relocation directory. 
Next Space Block - Pointer to the next space block 
in the chain. 
Space Block: 
Has the sane type of pointers as the Op Tree block. 


ARIHPTT receives a pointer to a block of data on each entry. 
Storage is obtained for this data and the block is moved 
into the storage. The storage address and length is saved 
in a table. 


The blocks are trace output from the parser and optinzization 
subcomponents during the PREP stage of a SQL statement in 
RDS. Trace output fron the parser and post-vieu- 
composition (during optimization) consists of only one block 
and the Op Tree (or Block 0). After optimization, output 
consists of an even number of blocks. A block always has a 
relocation directory paired with it. The first block is 
always the Op Tree. 


ARIMPTI 


ARIMPTL is the trace formatter entry module to the nodules 
vhich vill actually do the forratting of the Op Tree and the 
Space Block. It is the control formatter module calling the 
other forrjatter nodules as required to perform specific 
formatting functions. 


The specific format functions of this module are to format 
the headers and the ranges of the Op Tree and Space Blocks; 
to output the unformatted hex contents of the Op Tree along 
with the contents of the global structure, PARMS, used by 
the other formatter modules and passed as an argument to 
then, to initialize the tables which describes the Op Tree 
nodes and Op Tree descriptors, and to acquire and frea the 
storage used for the vertex table. 


The data to be formatted is organized as follous: 
Op Tree Block: 
Relocation Directory - Pointer to this block's 
relocation directory. 
Next Space Block - 
in the chain. 
Space Block: 
Has sane type of pointers as the Op Tree block. 


Pointer to the next space block 


ARIMPTS 


ARIMPT2 is the trace formatter nain routine for walking the 
Op Tree and placing the result in VERNUMHTB. ARIMPT2 is a 
recursive module because it calls itself in order to walk 
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the nodes of the Op Tree. ARIMPT2 walks the Op Tree 
top-doun;: left to right. For each vertex, a node number j 
is assigned, Also, the j-th entry of NODUMTB is filled with 
the block, index, class, and type (for nodes). 


ARIMNPTS 


ARIMPT3 is the trace formatter Op Tree space block fornatter 
Rodule responsible for the formatting of: 
® Relocation directory blocks of the Op Tree and space 
block 
The control block chain in the space block 
The SQLDA control block in the space block 
The cursor list in the Op Tree block 
The input variable List in the Op Tree block 
The output variable list in the Op Tree block 
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ARTHPTS 


ARIMPTS is a trace formatter nodule which formats the node 
descriptors found in the Op Tree block. The table GESCSTR 
contains the name and size of all the known node 
descriptors. When ARIMPT1 finds a descriptor in the vertex 
table VERNUMTB, it calls ARIMPT4 to format and output the 
contents of the descriptor. 


ARIMNPTS 


ARIMPTS is the trace formatter module of a OBSS scan control 
block and its associated structures. The formatting is 
kicked off by formatting the control block for a particular 
DBSS scan, As the formatting proceeds through the control 
block, other structures linked or chained off the control 
block are formatted. Internal procedures are used to format 
base structures, domains, key domains, and search arguments 
nested within a base structure. 


ARINSCF 


ARIMSCF converts a fullword binary value to its character 
(EBCDIC) representation. The resultant character string is 
16 bytes long and padded on the left with character zeros. 
If the value is negative, a minus sign is placed in the 
first byte of the string. 
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ARIMNSCH 


ARIMSCH converts a halfword binary value to its character 
(EBCDIC) representation. The resultant character string is 
eight characters in length, padded on the left by character 
zeros. If the input value vas negative, the first character 
is a minus sign. 


ARINSMF 


ARIMSMF is the SQL/DS SQL message fornatter routine. It is 
the linkage sodule for the SQL user (PREP, ISGL, DBSU) and 
the SQL/DS common message formatter routine (ARIMFMT for 
PREP and DBS utility, ARIIFOR for ISQL. ARIIFOR and ARIMFMT 
use the entry point ARIMFMT). ARIMSHF formats the SQL 
mesSages for display by the user. System SQL messages are 
composed of system 5QL message lines (contained in message 
text modules) and SQLCOODE descriptive text (contained in 
SQLCODE text modules). 


The ARIMSMF routine perforgs two major functions: 


1. The execution of a SQL statement often results in nore 
than one written message. ARIMSMF determines the correct 
messages» Message call sequence, and message arguments. 
It then returns the caller a return code stating there are 
aore or no more lines to be returned in the buffer structure. 
@. Any SQLCA dependencies (as far as message processing is 
concerned) are isolated to the ARIMSMF routine. A SQLCA 
change does not affect the SQL user's call fornat. 


Yhe first time ARIMSMF is called, it exanines the range of 
the SQLCODE ({<, =, or > 0) and the SQLWARN flags in the 
SQLCA (the MSGID structure should be set to zero to 
determine which message to obtain). From this information, 
ARIMSMF fills in the VARLIST structure. Then it calls 
ARIMFMY (PREP, DBSS, OSC, and OBS Utility common systen 
message formatter routine) or ARIIFOR (ISQL common message 
formatter routine, entry point is ARIMFNT). The return code 
is examined. 


If there are amore lines to the current nessage, ARIMSHMF 
propagates the message number id on the front of the nessaye 
text in the buffer. Then ARIMSMF returns to the caller with 
the return code = 0 or & (more lines). 


If there are no more lines to the current message, ARIMSMF 
examines the last message nurber called for and the value of 
SQLCA and MSGID fields. Then ARIMSMF sets the return code 
and MSGIO for either a subsequent call or for the end of 
message processing. 
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ARIMSMF formats the SQL message numbers 500 (SQL processing 
successful), 501 (SQL warning), 502 (SQL varning flags}, 503 
(SQL error), 504 (SQL supplemental error information), and 
511 (ARIMSMF internal error) for display. 


MSGID and BUFFER are input parameters for ARIMSMF. MSGID 
contains the requested nessage/SQL code number, a flag 
indicating the SQL code and for rulti-line messages, and the 
line sequence number (line sequence nunber can be either 0 
or 1 for first line of message; 0 is forced to 1). BUFFER 
contains the structure length, the unused flag fields, a 
field to return message line length, and a field to contain 
the returned message line. 


The output for ARIMSNF is: 

© Requested message or message line and length in buffer 
structure (return codes 0 - 12) 

® Updated line sequence number in MSGID field SEQNO 
{return codes 6 and 4} 

* Message ARIOSSE in buffer structure (raturn code 16) 

® NONE (return code 20) (For ARIMSHF, also return code 
24) 

® Return code in Register 15 (see “Exit Norazal" and “Exit 
Error”) 


Exit Nornal: 
® Return code 0: Message line in buffer, no errors, 
more lines to nessage 
© Return code &: Message line in buffer, no errors, no 
more lines to rnessage 


Exit Error: 

® Return code 4: Message line in buffer, more lines to 
message, and message line has truncation error (too 
long for buffer) and/or substitution failure (knnn. 
still appears in the line} 

® Return code 12: Message line in buffer, no nore 
lines to message; and nessage line has truncation 
and/or substitution error 

® Return code 16: Error message in buffer that gives 
nessage/SQL code number and reason code identifying 
why message could not he retrieved, 
CARIMFMT/ARIIFOR error) or error nessage in buffer 
gives a reason code identifying vhich MSGID fields 
contain invalid values (ARINSMF detected error - 
results in 51] message). 

© Return code 20: No message in buffer due to invalid 
caller parameter (null address or buffer less than 
nininum required size). 

® Return code 24: Unrecognized return code fron 
ARINFMT. 
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ARIMNTRA 


ARIMTRA is the top nodule of the trace formatter ARIMTRA 
performs the following functions: 
® Formats the SQL/DS generated trace tape (for example, 
decoding; data conversions, etc¢.). 
® Allous wide range of output selectivity. 
* Collects the data and passes it to other private 
routines (for example» RDS trace fornatter). 


ARIMOOO 


ARIMNOOO is the nessage module for the S5QL/0S control (DSC) 
component. It contains all messages issued by nodules of 
the DSC as vell as certain common nessages issued hy nodules 
in ox serving more than one SQL/DS component. All messages 
in this module have nessage nugbers in the range 000 through 
099. 


ARIM2Z00 


ARIN2Z00 is the nessage nodule for the DBSS component. It 
contains all messages issued by modules of the DBSS 
component. All messages in this nodule have nessage nunbers 
in the range 200 through 299. 


ARINSOO 


ARINSOG is the SQL nessage nodule for users of SQL. It 
contains all SQL messages (Note that this nodule does not 
contain SQLCODE descriptive text, just SQL nessages. 

SQLCODE descriptive text is contained in the message nodules 
ARIQMO] through ARIQM09}. The rnessage numbers reserved for 
use in this module lie in the range of 500 to 519. 


ARIN520 


ARIN520 is the message nodule for the Catalog Generation 
component. It contains all uessages issued by modules of 
G6ENCAT, as well as the ADD DBSPACE routine, ARISEGC. ALL 
messages in this aodule have message numbers in the range 
520 through 529. 


ARIN700 


ARIN700 is the message nodule for the ISGL component. It 
contains all messages issued by modules of the ISQL 
component. All messages in this module have message nuabers 
in the range 7000 through 7999, 
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ARTM860 issued by the OBS modules. All messages defined in this 
nodule have message nunbers in the range 800 through 699. 

ARIM800 is the message text nodule for the SQL/DS DBS 

Utility component. It contains the text of al] messages 
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PREP MODULES 


ARIPADR 


ARIPADR performs the COBOL preprocessor address function. 
ARIPADR, along with ARIPRDI, is link-edited with the user's 
COBOL run-time routine. 


Entry Point: ARIPADR 
Function: ARIPADR provides an "ADDR" function to COBOL. 
The addresses of the variables are placed in 
the SQLDATA slots. 


Entry Point: ARIPADR1 
Function: ARIPADR!] provides the same function as ARIPADR, 
except that it handles the SQLIND field. This 
field follows the SQLDATA field. 


Entry Point: ARIPADR2 
Function: ARIPADR2 is a general purpose routine that puts 
the address (PARNZ) into the PARM] location. 


ARIPARN 


ARIPARN is a macro containing code and declarations that 
perform the parse of the PREP input parameters. This nacro 
needs to be preceded by a module PROC statement along with 
any DECLAREs that will be used that are not in this copy 


code. ARIPARM needs to be followed by: 

1) An internal procedure called MSGOUT that 
performs message handling for the uodule 
including this macro 

2) Any prolog code that needs to follow the end of 
the internal procedure MSGOUT. 

ARIPCYD 


ARIPCID checks identifiers for valid contents. Length 
checking is up to the caller. The character string (XC) is 
checked left to right for the length indicated by the length 
field (XL). If unalloved characters are found embedded in 
the string, the module returns a return code of 12. I¥ 
blanks are found and they continue to the end of the string 
according to the length specification (trailing blanks), 
then a return code of 4 is set. [Embedded blanks are 
erroneous and cause a return code of 12. Valid identifiers 
will result in a return code of 0. 


ARIPCVF 


ARIPCVF converts a fullword binary valve to its character 
(EBCDIC) representation. It is called only by rodules that 
do not have STACK storage. The resultant character string 
is 16 bytes long and padded on the left with character 
zeros. If the value is negative, a xinus sign is placed in 
the first byte of the string. 


ARIPCVH 


ARIPCVH converts a halfword binary value to its character 
(EBCDIC) representation. It is called only hy modules that 
do not have STACK storage. The resultant character string 
is eight characters in length, padded on the left by 
character zeros. If the input value is negative, a sinus 
sign is placed in the first byte of the string. 


ARIPCVP 


ARIPCVP converts a pointer from hexadecinal to its character 
(EBCDIC) representation. It is calied only by modules that 
do not have STACK storage. This resultant string is eight 
bytes long. 


ARIPDCF 


ARIPDCF is passed a FORTRAN specification statenent that the 
source scanner (ARIPSQF) has identified as potentially 
containing host variable declarations. ARIPDCF identifies 
all valid host variables and places information about thea 
(name, types length? in a declare list (DCLLIST) structure. 
Variables that are not recognized as valid host variables 
are ignored. 


ARIPDYA 


ARIPDYA is the Assembler dumay entry routine. ARIPDYA 
contains (dumay) external entries only, which never have to 
be used. It has no meaning for PREP, and is used only as 
input to the linkage editor to obtain a clean link nap of 
Assenbler PREP. 


Certain nodules have been designed for use in different 
SQL/DS components. They sometimes refer to external entries 
of other nodules. When those nodules are not used in this 
component they will not be part of the link book. 


Since the linkage editor tries to resolve all address 
constants, the entries of the non-linked modules will appear 
as unresolved, hovever, these unresolved constants are of no 
consequence. 


To avoid misunderstanding and to obtain clean linkage editor 
output, ali address constants which must appear as 
unresolved are placed in this nodule as external entries, 


ARIPDYC 


ARIPDYC is the COBOL dummy entry routine. ARIPDYC contains 
(dumay) external entries only; which never have to be used. 
It has no meaning for PREP, and is used only as input to the 
linkage editor to obtain a clean link map of Assembler PREP. 


Certain nodules have been designed for use in different 
SQL/DS components. They sonetimes refer to external entries 
of other modules. When those sodules are not used in this 
component they will not be part of the link book. 


Since the linkage editor tries to resolve all address 
constants, the entries of the non-linked nodules will appear 
as unresolved, hovever, these unresolved constants are of no 
consequence. 


To avoid misunderstanding and to obtain clean linkage editor 
output, all address constants which must appear as 
unresolved are placed in this aodule as external entries. 


ARIPDYP 


ARIPDYP is the PL/I dummy entry routine. ARIPDYP contains 
(dumay) external entries only, which never have to be used. 
It has no meaning for PREP; and is used only as input to the 
linkage editor to obtain a clean link map of Assembler PREP. 


Certain nodules have been designed for use in different 
SQL/DS components. They sometimes refer to external entries 
of other rnedules, When those nodules are not used in this 
component they will not be part of the link book. 


Since the linkage editor tries to resolve all address 
constants, the entries of the non~linked nodules will appear 
as unresolved, however, these unresolved constants are of no 
consequence. 


To avoid nisunderstanding and to obtain clean linkage editor 


output, all address constants which must appear as 
unresolved are'placed in this aodule as external entries. 
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ARIPDYT 


ARIPDYP is the FORTRAN duargy entry routine. ARIPDYT 
contains (duany) axternal entries only, which never have to 
be used. It has no meaning for PREP, and is used only as 
input to the linkage editor to obtain a clean link nap of 
Assembler PREP. 


Certain nodules have been designed for use in different 
SQL/DS components. They soretines refer to external entries 
of other nodules. When those nodules are not used in this 
component they will not be part of the link book. 


Since the linkage editor tries to resolve all address 
constants, the entries of the non-linked modules will appear 
as unresolved, hovever, these unresolved constants are of no 
consequence. 


To avoid misunderstanding and to obtain clean linkage editor 
output, all address constants which must appear as 
unresolved are placed in this module as external entries. 


ARIPEIF 


ARIPEIF is the macro that handles SQL interface calls fron 
FORTRAN at execution tine. 


ARIPEIFA 


ARIPEIFA is the Assembler input (PREP output) that handles 
SQL interface calls at execution tine. 


ARIPEIFP 


ARIPEIFP if the PREP input (PL/S output) that handles SQL 
interface calls at FORTRAN execution tine. 


ARIPERR 


ARIPERR is called whenever the Assembler, Cobol, and PL/I 
PREP modules encounter an error. It builds the SQLCA 
structure using the input parameters passed by the PREP 
routines. It inserts the module name, the RDS code, the 
SQL/DS code, and message tokens (if any). 
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ARIPFIX 


ARIPFIX is the first nodule entered in VM (it is not used at 
all in VSE). This module picks up a list of three pointers 
(obtained via register 0). The first points to a phase nane 
indicating which PREP is to be invoked (command name), the 
second to the starting address of a character string 
containing PREP parameters specified by the user, and the 
third to the byte past the last character in the string 
(referred to as the ending address). The starting and 
ending addresses of the stcing of user-specified PREP 
parameters are compared to see that the end is larger than 
the start but not greater than the naxiaum string length 
alloved. Then the string of PREP parameters and its length 
are put into a structure which is passed to the invoked 
PREP. Finally; the correct PREP is invoked by checking the 
command name and calling the corresponding PREP. 


ARIPLTP 


ARIPLTP establishes the length and type information in the 
OCLLIST for declared host variables in PL/I PREP. 


ARIPMSE 


All messages are written from ARIPMSF, both ARI.... PREP 
messages resulting from PREP-detected errors and ARI.... SQL 
messages resulting fron SQLCODEs returned in the SQLCA 
structure by SQL/DS, 


ARIPNSH 


ARIPNSH is the message handler for the SQL/DS COBOL, PL/I, 
and Assembler preprocessors. It determines the type of 
error (from MSGPARM) that the preprocessor encountered. 

Then ARIPHSH puts out the proper message to the SYSLST (VSE) 
or SYSPRINT (VM) file and, if desired, to the SYSPCH (VSE) 
or SYSPUNCH (VM), or SYSOOl file. It calls ARINMSHF to 
handle all SQL error messages. It calls ARIMFHT to handle 
all other error messages. 


ARIPNMSN 

ARIPMSH is the rnessage nodule for the SQL/DS preprocessors. 
It contains all the messages that the preprocessors can 
issue except for the SQL error nessages. 

This nodule contains no executable code. It is never 
branched to fron any module. ARIPHSH is only referenced by 
the message formatter module (ARINFHMT?). 
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ARIPHVL 


ARIPHVL moves characters (long) from the source string to 
the target string. 


ARIPPIF 


ARIPPIF is the PL/S source that handles SQL interface calls 
at FORTRAN PREP tina. It is input for a PL/S compile. 


ARIPPIFA 


ARIPPIFA is the Assembler input (PREP output) that handles 
SQL interface calls at FORTRAN PREP time. 


ARIPPIFP 


ARIPPIFP is the PREP input (PL/S output) that handles SQL 
interface calls at FORTRAN PREP tine. 


ARIPPRA 


ARIPPRA is the asin routine of the Assembler preprocessor. 
ARIPPRA takes a user application program written in 
Asseabler with enhadded SQL staternents in it and processes 
it. The program is executed so it accesses a data base 
according to the SQL statenents in it. 


ARIPPRC 


ARIPPRC is the main routine of the COSOL preprocessor. 
ARIPPRC takes a user application program vritten in COBOL 
with embedded SQL statenents in it and processes the 
prograa. It is executed so it accesses a data base 
according to the SQL statements in it. 


ARIPPRE 


ARIPPRF is the main routine of the FORTRAN preprocessor and 
performs the following control functions: 


Opens and closes files 

Calls parameter scanner to get PREP paraneter values 
Calls SQL interface to connect to SQL/DS 

Calls SQL interface to create progran 

Calls SQL statement scanner to identify declares 
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© Merges workfiles to final output 
® Calls SQL interface to connit/rollback access nodule 
@ birites final summary messages. 


ARIPPRP 


ARIPPRP is the main routine of the PL/I preprocessor. 
ARIPPRP takes a user application program written in PL/I 
vith enbedded SQL statenents in it and processes the 
program. It is executed so it accesses a data base 
according to the SQL statements in it. 


ARIPRDID (CSECT ARIPRDID? - Batch Resource Manager Stub 


ARIPROIO is: link-edited with the VSE application program. A 
¢all to ARIPRDID (CSECT name of module ARIPRDID) is 
generated by the PREP process. ARIPRDID determines if the 
Batch Resource Manager is loaded. If the Batch Resource 
Manager is not loaded, a CDLOAD is issued and ARIPRDID 
branches to the Resource Manager. If the Resource Manager 
is loaded by this task, ARIPRDID simply branches to it. 


ARIPSCF 


ARIPSCF scans through the PREP parameters which are supplied 
to the FORTRAN SGL/DS precompiler via the EXEC JCL card or 
via a VM/CMS EXEC. It scans for the required parameters 
‘USERID’ or ‘USER’, ‘PREPNAME’ ox 'PREP', ‘CHECK’, 
"NOCHECK', ‘KEEP’, “REVOKE', "LINECOUNT’ or ‘LC‘, ‘PRINT’ or 
*PR', *NOPRINT’ or ‘NOPR', *PUNCH' or *PU', and 'NOPUNCH’ or 
"NOPU’. It also scans for unknown or nisspelled keyuords 
and flags them as errors causing preconupilation to 
terninate. 


ARIPSCN 


ARIPSCN scans through the Assernbler, COBOL, and PL/I PREP 
paraneters that are supplied to the SQL/DS preprocessors via 
the JCL (VSE) or EXEC (VM). It scans for the required 
‘USERID=* and ‘PREPNAME=' keywords and for the optional 
keyvords ‘CHECK', 'NOCHECK', 'KEEP', ‘REVOKE’, ‘LINECOUNT' 
or ‘LC’, 'PRINT' or ‘PR’, ‘NOPRINT® or ‘NOPR*, *PUNCH* or 
*PU', '"NOPUNCH’ or ‘NOPU’, and for COBOL only, ‘QUOTE’ or 
*Q' and ‘APOST'. It also scans for unknown (or nisspelled) 
keywords; that ARIPSCN flags as errors causing preprocessing 
to terminate. Defaults; if used, are set in this module and 
are 'KEEP', 'LC* = 60. ‘PRINT'» ‘PUNCH’, ‘QUOTE', and 
*NOCHECK?. 


502 SQL/Data Systea Logic, Volume 1 


ARIPSQA 


ARIPSQA is the ASSEMBLER SQL scanner. ARIPPRA calls ARIPSQA 
to scan a user's program, locate SQL statenents and host 
variables, and send tha SQL statexents and host variables 
back to ARIPPRA. To do this, statenents are read from the 
user's program one at a tine. A scan is done for the SQL 
trigger characters ‘EXEC SQL’. 


This nodule is entered in one of two nodes: 
© First Pass - Scan only for BEGIN DECLARE SECTION and 
END DECLARE SECTION. Send back the host 
variables. 
® Second Pass - Scan for SQL statenents. 


ARIPSQC 


ARIPSQC is the COBOL prep scanner. ARIPPRC calls ARIPSQC to 
scan through a user source program looking for S@L. 
statenents and user-declared host variables. This nodule is 
entered in ona of several nodes: 
® FRSTMODE: Initialize the scanner and go on to NEUTMODE. 
® NEUTHODE: Not in working storage, linkage, or file 
section and not in PROCEDURE division. 
® DATAMODE: In working storage, linkage, or data section. 
If WORKSTOR (suitch) is on, it is working storage. 
© DCLMODE: In a SQL DECLARE section. 
® SQLMODE: In the PROCEDURE DIVISION. 


Except for FRSTMODE, these nodes are changed by the scanner 
itself. FRSTMODE is set by ARIPPRC as the initial value for 
‘node’. 


If a minor error is detected, SQLCA is set. For a terminal 
error, PREPERR is set instead. Upon noraal return, SEQSTHT 
contains either a host variable or a SQL statenent 
(depending on the node/. 


ARIPSOF 


ARIPSQF scans all staterents in the user's source program 
looking for SQL statenents to process and for various 
FORTRAN statements that require special consideration. 


All statenents are vritten to SYS001; SQL statenzents are 
processed, compressed, and passed back to the nain line if 
further processing is required. 


If present, the FORTRAN statements that aust be located are: 


® PROGRAM, IMPLICIT, SUBROUTINE, ox FUNCTION for 
setting control infornation 
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® IF (expression) EXEC SQL or ELSE (expression) EXEC 
SQL. The FORTRAN portion of the stateaent nust be 
separated from the SQL portion for processing. 

© END to indicate the end of a program, subroutine, or 
function statenent. 


ARIPSQP 


ARIPSQP is the PL/I SQL scanner. ARIPPRP calla ARIPSQP to 
scan # user's program, locate SQL statements and host 
variables and send the SQL statements and host variables 
back to ARIPPRP. To do this, statements are read from the 
user's program one at a time . A scan is done for the SQL 
trigger characters ‘EXEC SQL". 


ARIPSSF 


ARIPSSF performs a parse of the SQL statenents located by 
the source scanner routine (ARIPSGF). The parse identifies 
the type of statement by referring to the STHNTFLS set by 
ARIPSQF. If a statement contains host variables this nodule 
locates then. The identified host variables are checked 
against those in the DCLLIST (declare list) structure to see 
if they have been declared. The host variables are removed 
from the statement and replaced with question aark variables 
(*7"'). The statenent is then prepared by calling ARIPPIF to 
pexform an EDSF PREPARE. The returned statement identifier 
and any other values needed by the text generator are placed 
in the STMTINFO structure, and control is returned to the 
caller. 


ARIPSXC 


ARIPSXC is the macro for passing declares on calls from the 
main COBOL conpiler rodule (ARIPPRC) to the COBOL scanner 
module (ARIPSQC). Declares rerain global to all calls te 
the scanner. 


ARIPSXG 


ARIPSXG is the macro containing the declares for the common 
structure TXPRMSTR passed between Assenbler, COBOL, and PL/I 
preprocessors and their respective text generating nodules» 
their respective SQL statement scanning nodules, and their 
common parameter scanning nodule. It also contains the 
declaration of several constants used within various 
nodules. 
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ARIPSIC 


The ARIPSIC macro contains common initializetion code that 
is used by the PL/I, COBOL, and assembler preprocessors. It 
is included by ARIPPRA, ARIPPRP, and ARIPPRC. 


ARIPS1D 


This macro contains the connon declares that are weed by the 
PL/I, COBOL, and assembler preprocessors. It is included by 
ARIPPRA, ARIPPRP, and ARIPPRC. 


ARIPS1S 


This common code contains subroutines that are used by 
Assenbler, COBOL, and PL/I SQL/DS preprocessors. It is 
included by ARIPPRA, ARIPPRP, and ARIPPRC. 


ARIPS2 


This is common code used by the Assembler, COBOL, and PL/Z 
SQL/DS preprocessors:. It is included by ARIPPRA, ARIPPRP, 
and ARIPPRC. It performs the initial parse of the SQL 
statezent, looking for certain statenents that need 
processing done on thes before they are sent to S@L/0S for 
further processing. It also looks for statenents that do 
not have to be sent to SQL/0S at all. 

The statenents that this code examines are: 
WHENEVER 

PREPARE 

OPEN cursor 

CLOSE cursor 

EXECUTE 

EXECUTE IMMEDIATE 

FETCH cursor 

DESCRIBE 

DECLARE cursor 

ROLLBACK WORK 

COMMIT WORK 

CONNECT userid 


eeceeoeoeaeo2400¢8@ 


For other types of SQL statements, they are sent to SQL/DS 
and are marked as AUX (access nodule) calls. 


RIPT 
ARIPTXA is the text nodule for the assembler preprocessor. 
It contains the majority of statenents that could be 
generated at PREP tine within a user application progran 
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written in Assenbler. The key parameter is the TXPARN 
parameter, It is passed by ARIPPRA. The paraneter tells 
what kind of code is to be generated within the user 
progran. 


ARIPTXC 


ARIPTXC is the text module for the COBOL preprocessor. It 
contains the majority of the statements that could be 
generated at PREP time within a user application program 
written in COBOL. The key parameter is the TXPARM 
paraneter. It is passed by ARIPPRC. The parameter tells 
what kind of code is to be generated within the user 
progran. 


| ARIPTXF 


ARIPTXF is the text nodule for the FORTRAN preprocessor and 
generates the staterents necessary to process an SQL 
statement. A call with TXTPARM = 1 generates the statenents 
required for the SQLCA. A call vith TXTPARM = 2 generates 
the statexents necessary for processing SQL statements. A 
call with TXTPARN = 3 generates the statenents necessary to 
initialize the common itens (using FORTRAN block data). 


ARIPTXP 


ARIPTXP is the text nodule for the PL/I preprocessor. It 
contains the majority of the statenents that could he 
generated at PREP tine within a user application progran 
weitten in PL/I. The key parameter is the TXPARM parameter. 
It is passed by ARIPPRP. The parameter tells what kind of 
code is to be generated within the user progran. 
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SQL/DS SOLCODE DESCRIPTIVE NESSAGE TEXT 


ARIGNO1 


ARIQNOL is the message module for the SGL codes -199 through 
#100, It is referenced by the message foraatter aodule 
ARILIFOR or ARIMFMT. 


ARIOMO2 

ARTIQNO2 is the message module for the SQL codes -299 through 
-200. It is referenced by the message formatter aodule 
ARITFOR or ARIMFHT. 

ARIGNOS 

ARIQHO3 is the message module for the SQL codes -399 through 


-300. It is referenced by the nessage formatter podule 
ARTIFDR ox ARIMFMT. 


ARIQNOS 


ARIQNOS is the message nodule for the SQL codes ~499 through 
-400, It is referenced by the message formatter module 
ARIIFDR ox ARIMFMT. 


ARIQNOS 


ARIQHO5 is the nessage module for the SQL codes -599 through 
-500. It is referenced by the message formatter nodule 
ARIIFOR or ARIMFMT. 


ARTONOG 


ARIGHO6 is the message nodule for the SQL codes -699 through 
~600, It is referenced by the message formatter aodule 
ARIIFDR or ARIMFNT. 


ARIONOZ 


ARIQMO7 is the message nodule for the SL codes -799 through 
-700. It is referenced by the zmetsage fornatter nodule 
ARIIFDR or ARIMFHT. 


ARIGHOS 

ARIQHOS is the message nodule fer the SQL codes -899 through 
-800. It is referenced by the message formatter module 
ARIIFDR or ARIMFHT. 

ARIQNOS 

ARIQNO9 is the message module for the SQL codes -1000 


through -900. It is referenced by the message formatter 
module ARIIFDR or ARINFHT. 
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RESOURCE MANAGER 


ARIRBRM 


ARIRBRM is mainline of the Batch Resource manager. It 
processes batch application EXEC SQL requests. 


ARIRB1IS 


ARIRB13 is the Resource Nanager message routine for writing 
to the operator vith no reply. It has the entry point 
ARTYEL3 and uses the DBSS nessage routines. 


ARIRBS1 


ARIRBS1 is the Batch Resource manager message routine for 
writing to the operator with a reply. It has the entry 
point ARIYM51 and uses the DBSS message routines. 


ARIRCLICC - VM Only 


ARIRCLI(C is the VM Resource Manager cancel exit top level 

module. It is invoked by CHS as the result of the terminal 
operator issuing the SQLHX coamand or, for ISQL, the CANCEL 
command, ARIRCLI(C establishes addressability to the RMLO 

and calls the second level module ARIRCL2(C. 


ARIRCL2CC - vM only 

ARIRCL2(C is the VM Resource Manager cancel exit second 
level module. It checks if the cancel ECB should be posted, 
and if so, posts it. 

ARIRDIS 

ARIRDIS is the Cniine Resource Manager termination and 
display transactions’ information (CIRD? routine. The 
ternination process disables online access to SQL/DS. The 
display information process displays al] transactions’ 
information and status. 


ARIRECID - VSE Only 


ARIRECID contains all of the EXEC CICS interfaces used by 
the CIRB and CIRT transactions. 
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ARIRENAD - VSE Only 


ARIRENAD is the Resource Manager begin routine. This 
process enables online access to SQL/DS. 


ARIRENTD - VSE Only 


CICS/VS invokes ARIRENTD when a terminal operator enters the 
CIRB ox CIRT transaction. ARIRENTD gets storage for RMLO 
and the stack by invoking DFHEAIO. It initializes the RMLO 
and stack. Based on EIBTRNIO, ARIRENTO calls either 
ARIREWAD for Resource Manager Begin or ARIRDISD for Resource 
Manager terminate. 


ARIRINTG 


ARIRINTC handles external interrupts in the resource manager 
machine which occur as a result of IUCV functions. The only 
interrupt types which result are CONNECTION COMPLETE, REPLY 
PENDING, and SEVER PENDING. The occurrence of any other 
type of interrupt is treated as an error. 


ARIRIRM 


ARIRIRN is the initialization function of the Batch Resource 
manager. It allocates storage for control blocks, maintains 
the one link per task relationships and passes control to 
ARIRBRM. 


ARIRMIID - VSE only 


ARIRNIiD is the level 1 nodule for online application EDSF 
(EXEC SQL) calls and CICS/VS synchronization calls. 
ARIRMY1D has the following process: 
@ Set Register 10 to point to RMLO. Set Register 12 to 
point to the CICS/VS TCA. Set Register 15 to point to 
a register save area in RNLO. 
® Initialize RMLO, the stack, and the RMWL for an initial 
call from a transaction. 
® Chain the RMNLO te the RMLO chains. 
® Call ARIRORM to process the request. 


ARIRMSG 


ARIRHSG is the message text nodule of the Resource Manager 
component. It contains the text of those ressages issued by 
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the Resource Managers. All messages in this aodule have 
ressage numbers in the range 400 through $99. 


ARIRORMD - VSE Only 


ARIRORMD is the mainline of the Online Resource Manager, It 
processes online application EXEC SQL requests and 
synchronization requests. ARIRORMD does RHLO dechaining. 


ARIROIS 


ARIROIS is the route Online Resource Manager message 
routine. ARIRO13 has ARIYEL3 as its entry point. It calls 
ARIRECI to write a message to the terminal or transient 
queue, If there is no terninal or if the message requires 
system operator attention, ARIROI3 calls ARISYSD3 to write 
the message to the system operator console. 


ARIRPAT 


ARIRPAT is the common patch area aodule for the Resource 
Manager component. See Section 6, Patch Area Modules and 
Access, for the patch area modules. 


ARIRRTED - VSE Only 


ARIRRTED is the Online Resource Manager stub. It has the 
CSECT name ARIPRDI. ARIRRTED is an expansion of the CICS 
macro DFHRMCAL. This expansion locates the CICS router 
routine and branches to it passing this router routine the 
Online Resource Manager phase name. 


ARIRSEND - VSE Only 


ARIRSEND is the Resource Manager send message routine. It 
has ARIPROI as its entry point. ARIRSEND uses DSC service 
to process the RDI as follous: 
® Gather application's input into one continuous message 
(mailbox). 
® Send the message. 
® Use the user exit or CICS/VS to vait for the reply. 
® Scatter the reply aessage into the application's output 
area. 
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ARIRSQLA 


ARIRSQLA provides the folloving linkages for the Online 
Resource Manager: 
® EXEC SQL CONNECT 
RDI SCHEDULE 
EXEC SQL COMMIT WORK 
EXEC SQL ROLLBACK WORK 
RDI PREPARE TO COMMIT 
RDI GET RECOVERY LIST 


*eeese? 


ARIRSOLP 


(macro) 


The ARIRSGLP is the source for the asseabler PREP of 
ARIRSGL. It must be distributed as part of the source 
statement library so that the access nodule ARIRSQL may he 
inserted into the installation data hase. The output of the 
SQL/0S Prep hecomes the nodule ARIRSQGLA. 


ARIRTLICC - VM Only 


ARIRTLI(C is the VM Resource Manager implicit 
COMMIT/ROLLBACK exit top level module. It is invoked by CHS 
at end of command when control is being returned to the 
terminal operator. ARIRTLI(C establishes addressability to 
the RNLO and calls the second level module ARIRTL2(C. 


ARIRTL2CC - V4 Only 


ARIRTL2(C is the YN Resource Manager implicit 
COMMIT/ROLLBACK exit second level aodule. It issues a SEVER 
with user data indicating COMMIT on normal CNS conmand end 
or ROLLBACK on abnormal CMS command end. It also clears up 
the nucleus extensions established by the Resource Manager 
and frees up storage allocated by the Resource Manager. 


ARIRVIRC(C - VM Only 


ARIRVIR(C is the VM Resource Manager initialization routine. 
It acquires storage for the RMLO, RHLT, RMXC, the required 
parameter lists for IUCV communications» and the default 
mailbox. It initializes the control blocks and passes 
control to the main-line nodule, ARIRVRH(C. 
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ARIRVRACC - VM Only 


ARIRVRN(C is the VM Resource Manager main~line aodule. It 
establishes the IUCV paths for aultiple virtual machine anode 
communication with the SQL/DS virtual smachine, and transfers 
control to SQL/DS in single virtual machine anode. 


ARIRVSTCC - VM Only 


ARIRVST(C is the VM Resource Manager stuh. 
the entry point name ARIPRDI. 


ARIRVSTIC has 
It is link edited with each 


508 SQl/Data System Logic, Volume 1 


application. It loads the VM Resource Manager according to 
the inforration passed from the bootstrap module ARISRMKI(C. 


ARISRMK(C - vi Only 


ARISRMK(C is the VM Resource Manager bootstrap nodule. It 
contains information about the Resource Manager load 
characteristics (whether the Resource Manager is to be 
loaded into DMSFREE storage or as a shared segnent}. 
Resource Manager is to be loaded as a shared sequent» 
ARISRMK(C will also contain the nana of the shared segnent. 


If the 
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SQL/DS SYSTEM DEPENDENT AND GENERATION MODULES 


ARISCNY 


During catalog generation, ARISCNV finds the columns 
containing integers or snall integers in the subject 
relation. ARISCNV then converts them so they may be 
inserted in the data hbase. 


ARISCOL 


ARISCOL searches a given relation for a specific colurn. 
That is,» it finds the appropriate column pointer during 
catalog generation processing. The column structure is part 
of GCGLOBWA (catalog generation global workarea). 


ARISDBBT 
See ARISOBK. 


ARISDBK - VM Only 


ARISDBK is a nodule which is invoked in tha VM environnent 
only, by the SQLGENLD EXEC. It is a bootstrap aodule vhich 
is GENHODed under the nane ARISDBBT, and later invoked hy 
the SQLSTART EXEC. It loads the DBSS/DSC and RDS code and 
then branches to Initialization Phase 1 (ARICIP1). 


ARISDBH 


ARISOBN contains the nessage texts for messages ARI900I 
through ARI999I which are issued by the data base generation 
process and by the Trace Formatter. 


ARISDBR 


ARISDBR opens SYSIPT (VSE} or SYSIN (VM) and reads the first 
set of data base generation control cards that describe the 
potential size of the data base which is expressed in 
keywords. Builds a table of values (either default or 
specified} for the keywords and returns the pointer to the 
table in a field passed as input. 
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ARTSDFL 


ARISDFL, defines a link in the catalog and writes linkids 
into the SYS8OOT relation. [It processes a DEFLINK command 
from the catalog generation input stream. It finds the 
relation IDs of the parent and child relations, uses DBSS to 
do the define, and updates the SYS structure that vill leter 
be inserted in the SYSBOOT catalog. 


ARISDFN 
ARISOFH processes the GENCAT DEFIN command and DEFUIN 
command during catalog generation. It defines an index on a 


system catalog and updates the SYS structure that will later 
be inserted in the SYSBO0T catalog. 


ARISDER 
ARISDFR processes the DEFREL command during catalog 
generation. It defines a relation for a systen catalog and 


updates the relation identifier in the SYS catalog structure 
that will later be inserted in the SYSBOOT <atalog. 


ARISDSK 
ARISDOSK defines additional OBEXTENTs to the data base using 


as' input control information read from SYSIPT (VSE) or SYSIN 
(VM). 


ARISDOOD - VSE Only 

ARISDOOD is a generalized I/0 routine for system and 
sequential disk/tape files. 

ARISDOID - VSE Only 

ARISOOID is a read access routine to the source statenent 
library via VSE macro DTFSL. 

ARISDIOD - VSE Only 


ARISD10D is a Disk file access routine for fixed-length 
unblocked records. 
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ARISDIID - VSE Only 


ARISDLID is = Disk file 
blocked records. 


ARISDi2D - VSE Only 


ARTISO12D is a Disk file 
unblocked records. 


ARISD13D ~- VSE Only 
ARISD130 is a Disk file 
blocked records. 
ARISDIGD - VSE Only 


ARIS014D is a Disk file 
records. 


ARISD15D - vse only 
ARISDI50 is a Disk file 


records, 


ARISDI6— - VSE Only 
ARISD160 is a Disk file 
records. 

ARISDZOD - VSE Only 
ARISD200 is a Tape file 


unblocked records. 


ARISDZ1D - VSE Only 
ARISD210 is a Tape file 


blocked records. 
ARISD22D - VSE Only 


ARISD22D is a Tape file 
unblocked records. 


access 


access 


access 


access 


access 


access 


access 


access 


access 


routine 


routine 


routine 


routine 


routine 


routine 


routine 


routine 


routine 
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for 


for 


for 


for 


for 


for 


for 


for 


for 


fixed-length 


variable-length 


variable-length 


spanned unblocked 


spanned blocked 


undef ined 


fixed-length 


fixed-length 


variable-length 


ISDZ3D - VSE Only 


ARISO23D is a Tape file access routine for variable-length 
blocked records. 


ARISD24D - VSE Only 


ARISD24D is a Tape file access routine for spanned unblocked 
records. 


ARISD25D ~ VSE Only 


ARISO250 is a Tape file access routine for spanned blocked 
records. 


ARISD2Z6D - VSE Only 


ARISO260 is a Tape file access routine for undefined 
records. 


ARISD30D ~ VSE Only 


ARISD30D is a SYSLST Write routine used for internal 
(ARISYSOD-generated) aessages and I/0 trace records only. 


ARYSDSID ~- VSE Only 
ARISD31D is a SYSO001 Workfile I/0 routine. 


ARISD32D - VSE Only 
ARISD32D is a SYS002 Workfile I/O routine. 


ARISD33D - VSE Only 
ARISD33D is a SYS003 HWorkfile I/O routine. 


ARISEDI - VSE Only 


ARISEDI breaks the catalog generation input record into 
tokens and places them in an array so the information may be 
processed by GENCAT. 
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ARISEGA 


ARISEGA defines additional DBSPACEs to the data base using 


as input control information read from SYSIPT (VSE) ox SYSIN 
(VAY. 


ARYSEGB 


ARISEGB modifies the SYSDBSPACES catalog as a result of an 
ADD OBSPACE command. It first issues a OBSI (ARIYM00) BEGIN 
WORK call to begin the LUW. Then internal procedure ARISYSS 
is called to open the SYSHOOT catalog. This is needed to 
get the RID (relation id) of the DBSPACE catalog so we may 
update the data base vith the new DBSPACE information. A 
DBSI (ARITYHOO) CNEXT command is issued to get the control 
information for each DBSPACE. If the return code from the 
CNEXT call is NFORNSEG(16) then the DBSPACE exists but has 
not been opened - these are the ones we sust add to the 
DBSPACE catalog. A DBSI (ARIYHOO) INSERT is done to update 
the catalog. Then a O8SI COMMIT WORK is issued. 


ARISERR 


ARISERR writes a GENCAT or ADD DBSPACE message to SYSLST 
(VSE) or SYSPRINT (VM). ARISERR builds the structures MSGID 
and BUFFER and invokes the nessage formatter for sessage 
retrieval and variable substitution. After the sessage is 
formatted, the system dependent routine is invoked to vrite 
the message. For multi-line messages, ARISERR loops 
printing each line of the nessage, 


ARISFDB 


ARISFDB calls the data hase generation read keyword routine 
(ARTSOBR) which returns a table of specified values for the 
keywords MAXEXTNTS; MAXDBSPC, and MAXPOOLS. 


ARISFIL 


ARISFIL sets up a row for each SYSOBSPACE in the data base 
ARISFIL then calls DBSI (ARIYNOO) to insert thea into the 

catalog SYSMBSPACE. ARISFIL fills the SYSOBSPACE catalog 

with the correct inforaation about each DBSPACE defined at 
catalog generation time. 
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ARISFN1 
ARISFM1 performs physical formatting of data base files. 


ARISFNZ 


ARISFM2 defines: DBSPACE(s} to SQL/DS by updating I/O 
component control blocks, 


ARISIIO 


ARISIIO computes the I/O table sizes fron specified raxiaun 
values contained in a table built by ARISDBR. 


ARISINI 


ARISINI handles the INITIALIZE DBSPACE command of catalog 
generation. It decodes the input card and then does an 
insert DBSI tARIYM00) CINSERT call to a DBSPACE control 
relation for this DBSPACE. 


ARISISBT 


See ARISISK under “ISQL Modules” on page 492. 


ARISISK 
Sea ARISISK under “ISQL Modules” on page 511. 


ARISIST 


ARISIST processes an INSERT command during catalog 
generation. The catalogs are upated vith the inforration 
provided on the input record via a DBSI (ARIYNOO) INSERT 
call. 


ARISISTZ 


As a result of an INSERT command, ARISIST2 handles updating 
specific catalogs during insert processing for catalog 
generation. Special processing must occur for certain 
insert statements of GENCAT. These special processes are: 
SYSCATALOG, SYSCOLUMNS, SYSINDEXES; or SYSLINKS. A separate 
routine handles the processing for each of the subject 
catalogs. 
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ARISLAY 


ARISLAY fills the SYSBOOT catalog with the row containing 
the catalog relation, index, and link IDs created during 
catalog generation. It uses the inforration set up in the 
SYS structure during GENCAT processing. 


ARISMAT 


ARISNAI is the main GENCAT acdule that reads the GENCAT 

_ control statenents from the Source Statement Library (VSE} 
‘ or from a CHS file (VM). It first obtains a data storage 
area for GENCAT processing. It calls DBSI (ARIYHOO) with a 
BEGIN WORK request to begin the LUM. It then reads each 
record and determines the function required, The 
appropriate GENCAT routine is called to process the control 
statenent. After each record is read and the catalogs are 
built; any user supplied records are read and processed. 
ARISLAY is then called to update the SYSBOOT catalog with 
the IDs of the catalogs. Then OBSI (ARIYNOO) is called 
again to end the LUW (COMMIT WORK), and the GENCAT storage 
is freed. 


ARISOCH 


ARISCCH provides the linkage between the VSE operator 
console and the SQL/DS operator comaand linkage nodule 
(ARIYM1LO} when the operator wants to enter a SQL/DS operator 
command. The nodule is entered when the system operator 
enters the VSE attention command MSG that notifies the the 
VSE attention routine that he wants to communicate with the 
SQL/0S partition. The operator agent structure is posted to 
‘wake up’ the operator agent causing anodule ARIYNIO to be 
dispatched, 


ARISPFN 


ARISPFM is the first routine called by ARIYTOO (INITRSS) for 
startup = C meaning DB GEN. This routine calls ARISFMI to 
format the directory, OBEXTENTs, and log{s). In addition, 

_ it reads the DBEXTENT/stoxrage pool and DBSPACE definition 

* control records from SYSIPT (VSE) or SYSIN (VM). Using this 
information it initializes the extent table, pool table and 
summary counters. It calls ARISFH2 passing the OBSPACE 
information read to build the SEGTABLE and SEG attribute 
table. 
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ARISREL 


ARISREL finds a relation pointer during catalog generation 
for a system catalog. The relation structure is part of 
SCGLOBNA (catalog generation global work structure), 


ARISSCE 


ARISSCE displays the contents of the data base control 
block. 


ARISSET 


ARISSET verifies the SET DEFAULT catalog generation connand;, 
ensuring the default value is a valid integer. Then ARISSET 
sets the default in the SYS structure that will later he 
inserted into the SYSBOOT catalog. 


ARISTIN 


For a functional description of ARISTIN see ARICTIM on page 
478 


ARISTLD 


ARISTLD uses SQL DROP to drop old HELP tables, HELP.SYSTEXTI 
and HELP.SYSTEXT2, if they exist. ARISTLD uses SQL CREATE 
te create new tables. It also creates indexes on these tuo 
tables. 


ARISUPD 


ARISUPD handles the UPDATE command during catalog 
generation. The information on the control record is used 
to update the appropriate catalog row in the data base. 


ARISYSD - vWi/SP Systen-Dependent Module 


Entry Points ARISYSD 
Function: ARISYSD returns a three-character value into a 
user-supplied area designating the operating 
system environment ('CMS' = VM/SP Operating 
System). 
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Entry Points 
Function: 
Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Foint: 
Functions 


Entry Point: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


ARISYSO1 

ARISYSOI 

ARISYSDI/ARISYSOL gets storage (conditionally) 
via CHS OMSFREE macro. 


ARISYSO2 
ARISYSO2 frees storage via CMS DHSFRET nacre. 


ARISYSO3 

ARISYSOS writes to the virtual machine operator 
console. The maxinum message length is 80 
bytes. 

ARISYSO4 


ARISYSD4 writes to the virtual rachine 

operator's console and waits for 4 reply. 
maxinurg aessage length is 60 bytes. The 
maximum reply message length is 66 bytes. 
Replies longer than 68 bytes vill be truncated. 


The 


ARTSYSD5 - None (See nodule ARISYSE) 


ARISY506 

ARISYSD6é (in nodule ARISYSO) perforas a ‘LOAD’ 
function in the VSE/Advanced Function 
environment. It will not be used in the Vi/SP 
environaent, If invoked, it returns a return 
tode 255 (function not supported) to the 
caller. 


ARISYSD7 

ARISYSO7 performs a systex-dependent abend and,» 
optionally, a dump to the virtual printer. The 
abend code is inserted into register 15. 


ARISYSD8 - None (See module ARISYSF) 


ARISYSDS 

ARISYSO9 perforas 4 systen-dependent load into, 
ox drop from, the area requested by the caller. 
The lead address» entry points and end address 

are returned to the caller when possible. The 

systen return code is returned to the caller in 
LOADRETC, 


ARISYSDA 
ARISYSDA perforas a dump to the virtual printer 
and returns control to the caller. 


ARISYSOB 

ARISYSOB . aot used in the VH/SP environment. 
& veturn code of 255 (function not supported) 
is passed to the caller. 


Entry Points 
Functions 


Entry Point: 
Function: 


Entry Points 
Functions 


Entry Point: 
Function: 


Entry Point: 
Entry Point: 


ARISYSOC 

ARISYSDC is not used in the VH/SP environment. 
A xeturn code of 255 (function not supported) 
is passed to the caller. 


ARISYSUE 

ARISYSOE provides the Vi user id. It also 
provides the ‘time zone‘ as a geographical 
position ralative to Greanvich Mean Tine, an 
two-byte binary value, indicating the 
difference in minutes between local tine and 
Greenvich Mean Tine. A negative value means 
‘west’, and a positive value means ‘east’. 


ARISYSOF 
ARISYSOF is NOPed. 
to the <aller. 


It returne a return code 6 


ARISYSOG 

ARISYSOG provides an unconditionsl get free 
storage function via CHS OMSFREE macro. If the 
storage cannot be obtained, an error zessage is 
issued to the virtual rachine console. Return 
is unde to the operating systen (CNS). 


ARISYSOH - None (See aodule ARISYSS) 


ARISYSDI (this is the sane entry point as 


ARISYSD1 - sea that description) 


Entry Point: 
Function: 


Entry Point; 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


ARISYSOS 

ARISYSOJ reads nessage replies and operator 
commands from the virtual machine operator 
console. Maxinua nessaga reply/operator 
connand is 130 bytes. 


ARISYSDK 

ARISYSDK provides s CMS abend exit capability» 
allowing programs to intercept abend situations 
before abend recovery begins. The exit is 
specified via the CHS ABNEXIT sacro. 


ARISYSD ~ VSE/Advanced Functions Systen-Dependent Module 


ARISYSO 

ARISYSD returns a three-character value into a 
user~supplied area designating the operating 
system environment ('DOS’ = VSE (DOS) Operating 
Systen}. 


ARISYSOL 
ARISYSO1 gets storage {conditionally} via VSE 
GETVIS macro. 


Entry Point: 


Entry Point: 


Entry Point: 


514 


ARISYSD2 
Function: ARISYSO2 frees storage via VSE FREEVIS aacro. 
ARISYSO3 

ARISYSD3 vrites to the operator. 
message le... . “9 bytes. 


Funetion: The naxinun 


Entry Point: ARISYSD4 
Function: ARISYSD4 writes to the operator and waits for a 
reply. The maximum message length is 60 bytes. 


However, the recommended aaximun size is 68 


bytes. 


ARISYSDS 
ARISYSOS performs general input/output 
functions to: 


Function: 


SYSIPT Sysool Disk sequential files 
SYSPCH sysoo2 Jape sequential files 
SYSLST SYSO03 


Source Statement Library (simulated SYSIPT input) 


Each I/O request is described by means of the File 
Descriptor Block (macre ARIGENIO). 


ARISYSD5 loads the generalized I/0 routine ARISDOOD into 
the GEYVIS area (if not already loaded) and provides a 
uoxk area of 4K bytes. The address of the work area is 
passed in Register 13. The work area used is requested 
onky for OPEN processing. It is kept until CLOSE 
processing is finished. The work area address is saved 
in the File Descriptor Block (field nane SYSDOWA). 


All necessary information is stored vithin the save area 
(part of file descriptor) provided by the caller. 
Therefore, it is essential for this program that all 
following requests after OPEN refer to the original File 
Descriptor Block (OPEN/GET/PUT/CLOSE requests). 


ARISYSO and ARISO00D use the save area. The save area 
contains the link address, the OTF address, the 
alternating I/O register (IOREG2), and counter and 
initialization information. 


The link to ARYS5D000 is established on an OPEN request 
and disconnected after CLOSE. The link address is saved 
in the save area together with the address of the vork 
area established via GETVIS during processing of the OPEN 
request. After a return from a CLOSE request, the vork 
area is freed. 


Entry Point: ARISYSO6 


Function: ARISYSO6 performs an operating system dependent 
lead (The VSE CDLOAD nacro loads the requested 
phase into the partition GETVIS area.) 
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Entry Point: 
Functions: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Function: 


Entry Point: 
Functions: 


Entry Points 
Functions 


Entry Points 
Functions: 


Entry Points 
Function: 


ARISYSD7 

ARISYSO7 provides for abnormal cancellation of 
a task and inserts the completion code into 
register 15. A partition duap is optionally 
provided. 


ARISYSDS 

ARISYSO6 provides read access to the paraneter 
library using ‘FINO' for the member entry and 
‘GET’ for reading 80 byte records. (The source 
statement library vill be accessed.) The 
caller supplies the sublibrary (with 'A‘ as 
default). 


ARISYSD9 

ARISYSO9 is not used in the VM/SP environnent. 
A return code of 255 (function not supported) 
is passed to the caller. 


ARISYSDA 
ARISYSDA performs s durgp and returns control to 
the calling function. 


ARISYSOB 

ARISYSDB establishes an ‘OPERATOR COMMUNICATION 
EXIT’, which is invoked vhen an operator 
console interrupt has been issued. It assumes 
that Register 10 is pointing to 'YRSSCVT' or 
(RDAREA). 


ARISYSOC 
ARISYSOC provides storage related information 
(partition start and end addresses). 


ARISYSDE 

ARISYSDE provides the ‘tine zone’ as a 
geographical position relative to Greenwich as 
a decimal value, indicating the difference in 
ninutes between local time and Greenvich mean 
time. The value given is a twvo-byte value. A 
negative value neans ‘west’, and a positive 
value means ‘east’. The zone value is set via 
the IPL SET command. 


ARTSYSOF 
ARISYSDF pages out a requested area of virtual 
storage. This code is NOP'ed currently. 
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Entry Point: ARISYSDG 
Function: ARISYSOG provides an unconditional GETVIS 
function. In case the request is not completed 
successfully, it issues an error message on the 
operator console and returns to the operating 
system via CANCEL. 


Entry Point: 
Function: 


ARTSYSOH 

ARISYSDH writes a message to the operator 
console, SYSLST, or both, depending on the 
information contained in ‘PUTSWIT'. This 
function communicates with the already existing 
entries ARISYSD3 and ARISYSDS and also returns 
the xeturn code given by these entries. 


Entry Point: 
Function: 


ARISYSOI 

ARISYSDI is a special entry point to satisfy 
storage requests originating from ARICWSG, 
ARIXEAB, and ARIXELX. All other requesters are 
Serviced by entry point ARISYSDL. The 
difference is that the sterage search by 
ARISYSDI begins at a special address contained 
in the DS2CVT pointer called OS2GETVP, which is 
set up by ARICIPL and ARICCRA. This method of 
search results in a performance enhancement due 
to reduced paging. 


Entry Point: ARISYSDJ 
ARISYSOJ is not used in the VS5E environment. A return 
code of 255 (function not supported) is passed 
to the caller. 


ARISYSOK 

ARISYSOK provides a VSE abend exit capability 
to sallow programs to intercept abend situations 
before abend recovery begins. The exit routine 
is specified via the STXIT AB macro. 


Entry Point: 
Functions 


ARISYSE - Vi Only 


ARISYSE is always invoked via entry point ARISYSD5 for 
sequential input/output functions including the system files 
USYSIN, SYSPRINT, SYSPUNCH), work files for PREP; and 
general tape and DASD (normally CMS) files. It processes 
OPEN calls (in or out), CLOSE calls, and GET and PUT calls. 
Status and cont:ol information about the request is passed 
to entry point ARISYSOS and to the caller via the File 
Descriptor Bloca (ARIFDESC, generated by the ARIGENIO 
macro). 


CHS/OS QSAM is used to access system files and general 
files. The CHS FS macros (FSCB, FSREAD, FSWRITE, etc.) are 
used to access PREP work files. For standard label tape 
files, ARISYSE provides support for aulti-volume files 
(using the CHS TEOVEXIT, RDTAPE, and TAPESL macros) since 
CHS/0S QSAM does not support aulti-volume tape files. 


The first OPEN call obtains automatic storage for the nodule 
for processing the specified file. The automatic storage is 
retained (unless the OPEN fails) until the file is closed. 
Unlike VSE/Advanced Functions ARISYSD5, ARISYSE does not 
load any auxiliary aodules to performs its function. 


ARISYSF - vi Gniy 


ARISYSF is aluvays invoked via entry point ARISYSD& to find 
and read a card image CMS file. In addition to invocation 
by various SQL/DS programs, this function is invoked by 
ARISYSE when a READ FILE statement is encountered on SYSIN 
processing. 


The 'FIND' call obtains autonatic storage for the nodule for 
processing the file. The autoratic storage is retained 
until EOF is encountered or until an error occurs. 


ARISYSG - vM only 


ARISYSG is always invoked via entry point ARISYSOH to 
display (for the DSC) a message or other line to the virtual 
machine terminal. Note that unlike the VSE/Advanced 
Functions ARISYSOH entry point, it never outputs to a print 
file. It calls entry point ARISYSD3 in module ARISYSD for 
the output display. 
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RDS MODULES 


RDS AUTHORITY 


ARYXACQ? - CONNECT 


ARIXAO1] checks the passvord by looking into the SYSUSERAUTH 
catalog. It then calls DBSS with SCHEDULE call and sets 
RDAUSER to the passed userid. ARIXAO sets RDASPEC from the 
SYSUSERAUTH catalog and turns on the RDASCHED bit. 


ARIXA02 


ARIXAO2 checks whether a person is authorized to perform a 
specific operation on an arbitrary relation. ARIXA02 also 
checks uhether a person is alloved to run a program. 


ARIXAOS 


ARIXA03 deletes the colusns from SYSCOLAUTH associated vith 
the target of a deleted TABAUTH row. 


ARIXAOG - DROP/REVOKE 


ARIXA04 is responsible for the deletion of rows from the 
tables: 

SYSTEM. SYSTABAUTH 

SYSTEM. SYSCOLAUTH 

SYSTEMN.SYSUSERAUTH 

SYSTEN.SYSPROGAUTH 


ARTXAOS - Grant Authority 


ARIXA06 is responsible for all entries in the following 
tables: 

SYSTEM. SYSTABAUTH 

SYSTEM. SYSCOLAUTH 

SYSTEM. SYSUSERAUTH 

SYSTEM. SYSPROGAUTH 
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bo 


IXAO? - GRANT Privilege 


ARIXAO?7 operates on the parse tree. Authorizations are 
checked by caliing ARIXA02. Object existence is checked in 
the catalogs. ARIXA06 is then called for each user in the 
usernode list. 


jo 


RIXAOB - REVOKE Authority 
ARIXA0S searches along a chain of grantor/grantee 
combinations. ARIXAOS initially calls ARIXAO08. ARIXA08 
calls itself if it finds a grantee that has granted his 
vights to somebody else - a grantee that has used a table in 
a program or a grantee who has defined a view. 


ARIXAO9 


ARIXAG9 is responsible for the revocation of rouw(s) 
corresponding to the GRANT command issued from the revoker 
to the revokee at an earlier time. Only this initial row is 
handled by ARIXAO9. ARIXAQS handles the remaining rows in 
the authorization table that may be affected by this REVOKE 
command, 


ARIXA10 


ARIXALO calculates the minimum time» when a specific grantee 
has received his authorization rights. 


RIXA1I 


(> 


ARIXA11 calculates the miniaus AUTH for a view. When a view 
is created or an update is made on a view AUTH, the ainimua 
AUTH on the view from all the underlying tables is used or 
granted. 
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RDS CODE GENERATOR MODULES 


ARIXCOT - SQL/0S Code Generator table that defines 
operator nodes in the ASL tree. It is used by ARIXC37 to 
determine which routine in ARIXC34 is to be called to 
process an operator in the optimized ASL tree. 


ARIXCRA 


ARIXCRA is a Code Generator routine to call the OBSS to 
perfora a sort. It also makes sure the TID, as well as the 
SCANID, is zeroed when we close the scan. 


ARIXCRB 


ARIXCRB is a Gode Generator routine that calls DBSS te 
acquire a temporary DBSPACE. 


ARIXCRC 


ARIXCRC is a Code Generator run-time routine to call the 
DBSS to initialize a temporary DBSPACE and to create a 
relation or list. 


ARIXCRD 


ARTXORD is a Code Generator run~time routine to delete rows 
with long Fields. 


The input variable YBASEPTR points to a YBASE, that 
describes a parent uhose children are to he deleted. This 
YBASE may be obtained in one of the folloving ways: 


i. A€ter an INSERT ~- the long-field children inserted 
first, hut the insertion of the parent failed (for 
example, due to unique key violation). All necessary 
information to find and delete the children may be found 
from this YBASE. 

2. Before a DELETE -- before deleting a row with long-field 
children, fetch that row and return data for at least the 
long fields. When that is done, you have all the 
information that is in the INSERT case. 

3. After an UPDATE -- if no long fields were updated, then 
no long-field code is invoked. If a long field vas 
updated, this update was accomplished by inserting the 
long fields first. Then update the parent row. If the 
update succeeds, delete the old long field and leave the 
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mew long field. If the update fails, leave the old 
fields and delete the new fields. Therefore. the update 
code aust have fetched the row to he updated (othervise, 
you lese the pointers to the long fields). In order to 
preserve this information across the UPDATE command; the 
update must be done through a separate YBASE. Therefore, 
after success or failure of the update, you are passed @ 
YBASE that points either to the old or nev TIDs. Ona 
success, we receive the YBASE for the fetch. On a 
failure; we receive the YBASE for the update. We do not 
need to know which is which. Either way, the euxiliary 
information hanging from the end of the YBASE, together 
with the data pointed to by the domain structure, tells 
us all you need to know. 


The algoritha: 


L. Build a YBASE2 using the SEGMENT / RID 7 LID information 
pointed to by the tail end of YBASE. This YBASE2 is used 
to open a scan on the children» one by one. 

2. For each long field in the LFINFO: 

A. Find the TID of the list head. LFCOLNR is used to 
index domains, whose FLDPTR points to the datum from 
the data base, which contains the desired TID. 

&. The datum also contains the null indicator (if any) 
and the length of the long field. If the long Field 
is null or is of zero length, then there is nothing to 
da -- advance to next long field. 

C, Install the TID in the YBASE2 and open @ scan. 

D. Delete the rou returned by the OPEN for NEXT). 

E. Subtract 4000 from the length of the long field. When 
that number goes zero or negative, we have deleted all 
the rows comprising the long field. Nou we can close 
the scan and advance to the next long field. This 
length-counting trick saves us the RSI call which 
would return not found. 

F. Otherwise, do a NEXT on the scan and loop by returning 
to (BD). 

3. We do nothing with the parent row -- that is the 
responsibility of the caller. Return to hin. 


ARIXCRE 


ARIXCRE is a Code Generator run-routine to bind an input 
variable to a floating-point slot. It performs the copy; 
taking care of the conversion from integer or halfword type 
if necessary. ARIXCRE updates the pointers in Registers (1) 
and (4). 
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ARIXCRE 


ARIXCRF is a Code Generator run-time routine to deternine 
whether a given string is “LIKE” a given pattern. The 
pattern may contain the characters "_" and" '" ("_" natches 
any single character, vhile " " matches an arbitrary string 
of zero or Rore characters). 


ARIXCRG 


ARIXCRG is a Code Generator run-routine that updates a row 
containing long fields being modified. (If the row contains 
long fields, but none of the long fields are sodified, then 
the normal update processing handles that case.) 


ARIXCRG is passed two pointers: 


NEXTPTR ~ Points to a YBASE that fetches the row to be 
updated. 


MODPTR - Points to a YBASE that performs the update. 


ARIXCRH 


ARIXCRH is a Code Generator run-time routine to bind an 
input variable to a decimal slot. It performs the copy,» 
taking care of the conversion from halfvord, integer, 
decimal, or float type if necessary. ARIXCRH updates the 
pointers in Registers (1) and (4). 


ARIXCRI 


ARIXCRI is the Code Generator run~time routine to convert a 
decinal number to a floating point nunber. 


ARIXCRI 
ARIXCRJ is a Code Generator run-time routine to convert a 
floating-point number to a decimal number. 


ARIXCRL 


ARIXCRL is a Code Generator run-time routine to determine 
whether a given string is ‘like a given pattern. The 
pattern may contain the characters "426D" and "426C" (in 
hexadecimal) ('4260" rnatches any single character, uhile 
"426C" matches an arbitrary string of zero or nore 
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characters}. This routine is similar to ARIXCRF, except 
that it only checks for tuo bytes at a tine. 


ARIXCRO 


ARIXCRO is a Code Generator run-time routine to close the 
currently open scan. 


ARIXCR1 


ARIXCRI is the Code Generator run-time routine to handle 
run-time errors. 


ARIXCRZ 


ARIXCR2 is the Code Generator run-time routine to put out 
data to the select list. ARIXCR2 returns the values in a 
select list to the user‘s data space. 


ARIXCR3S 


ARIXCR3 is the Code Generator run-time routine to insert a 
literal row with long fields. 


ARIXCRS 


ARIXCRS is the Code Generator run-time routine to find a 
cursor. 


ARIXCRS 


AREXCRS is the run-time routine to bind an input variable to 
an integer slot. It performs the copy,» taking care of the 
conversion from halfword, integer, decinal, or float type if 
necessary» and updates the pointers in Registers (1) and 
(4). 


ARIXCRE 


ARIXCR6 is the run-time routine to bind an input variable te 
a halfword slot. It perforus the copy, taking care of the 
conversion from halfword, integer, decimal, or float type if 
necessary. ARIXCR6 updates the pointers in Registers (1) 
and (4). 
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ARIXCR7 


ARIXCR7 is the run-time routine to bind an input variable to 
a fixed-length character, or fixed-length DBCS character 
slot. It performs the copy, taking care of the conversion 
from variable-length character type, if necessary. ARIXCR7 
updates the pointers in Registers (1) and (4). 


ARIXCRS 


ARIXCRS is the run-time routine to bind an input variable to 
a variable-length character, or variable-length DBCS 
character slot. It performs the copy, taking care of the 
conversion from fixed-length character type, if necessary. 
ARIXCRS updates the pointers in Registers (1) and (43. 


ARIXCO1 


ARIXCO] allocates space in BLK1O (data block 10) for the 
callec. It passes back the displacement (in INDX10) into 
the data block from uhich the space was allocated. 


ARIXCO2 


ARIXCO2 puts out code in Block 2 to perform arithmetic 
operations. The basic steps are: 


1. Build a node on the semantic stack that describes the 
result. 


2. If necessary; test whether either operand is null. Store 
a 0 or -1 in the NULLINFO slot of the result. 
3. Load the left-hand operand inte a register. This may 


involve noving it to the appropriate boundary and/or 
flipping the sign bit. 

4. If the operand cannot he performed on the right-hand 
operand as it exists in rmain storage, load it into a 
register. 

5. Perform the operation and store the result in the dynamic 
storage area. 


ARIXCOS 


ARIXCOS puts out code in Block 2 to bind input variables at 
OPEN. It finds the list of input variables. Then ARIXCO3 
puts out code that binds them at open time. 
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ARIXCOS 


ARIXCOS puts out code in Block 2 to perform compares. It: 
1. Generates the code for a comparison predicate. 

2. Handles the "BETWEEN" predicate. 

3. Handles the "IN" predicate. 

4%. Also tries to handle the "EXISTS" predicate. 


ARIXCO6 


ARIXCO6 puts out code to evaluate a described SET function. 
It takes a SET function node» pointed to by 
CGCHPSTK(STKPTR).CGCSNODE, generates code that computes the 
value of the SET function, and leaves on the semantic stack 
a pseudo-parse tree node describing the result, Its action 
is similar to that of ARIXC02. 


ARIXCO6 now computes the average and stores it. The average 
is stored on top of the sum. This is done so that the ASL 
tree for the HAVING clause can be created during 
optinization. 


ARIXCO7 


ARIXCO7 resolves undefined labels in Block 2. It resolves 
previously undefined symbols in the fragments that exist in 
the output code block. 


ARIXCOs 


ARIXCOS determines the displacement of a data slot's datas 
null indicator, and length field. 


ARTXC10 


ARIXC1G processes the GROUP BY command. It generates code 
for saving the data identifying a group (move from colunn 
into a slot, as indicated in the bind table). It also 
generates code for comparing group domains to identify a new 
group in the bind table. 
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ARIXC1V1 


ARIXC11 puts out code to load a register with the address of 
a block of data. 


ARIXCtS 


ARIXC13 is the SQL/DS Code Generator initialization routine. 
It: 


Ll. Allocates another data block. 

2. Runs down the pre-existing data blocks, counting how many 
there are. It fills in the NEXTSPACE PTROF, the last 
block with the address of the nevly allocated block. 


3. Fills in the nev data block. 

4. Retraces the chain of data blocks. 

5, Fixes up our neu block. 

6. Fixes up the block to receive our generated code. 
7, Initializes CODESTR to no error detected. 
ARIXC16 


ARIXC14 cleans up loose ends at the end of code generation. 


ARIXC15 


ARIXCi5 is the SQL/DS Code Generator routine that assists in 
using WHERE <expr-1> <= ANY SELECT expr-2> . 


<expr-2> is located by BQINDX. BQINDX is an index into the 
syntactic stack. At the location, we find a BQUERYNODE and 
its operand(s). <expr-1> is located directly. PLHS is a 
pointer to the parse tree node that describes the value of 
<expr-l>. 


if ve are in the case of a GROUP BY query, then ARIXC3S 
calls out a different fragment. ARIXC38 is also responsible 
for calling out AREXFOS in the usual (non-GROUP-BY) case. 
ARIXC16 

ARIX€16 is the SQL/DS Code Generator routine that puts out 


code to test the null byte of value. It uses the “IS(IS 
NOT) NULL™ predicate. 
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ARIXC17 


ARIXC17 is the SQL/DS Code Generator routine that puts out 
code to load a register with the address of a data slot. 


ARIXC18 


ARIXC18 is the SQL/DS Code Generator routine that noves the 
named fragrent of machine code into Block 2 where we are 
building a section. To fix it up» relocate internal 
pointers and take note of external references. 


ARIXCI9 


ARIXC19 is the SQL/DS Code Generator routine that allocates 
a new space block and relocation directory. This holds the 
compiled code for a compiler generated subroutine. 


ARTXC20 


ARIXC20 is the SQL/DS Code Generator routine that puts out 
code to load a block address into a register. Then ARIXC20 
ceturns a block-number/displacenent of data to the caller. 
It sets the block number and displacement into the block for 
the data associated with a parse tree entry. 


ARIXC21 


ARIXC21 is the SQL/DS Code Generator routine that puts out 
code to move data items to the user area. 


ARIXC22 

ARIXC22 is the SQL/DS Code Generator routine that puts out 
code to move a returned subquery to a slot in Block 1. This 
is where the subqueries are used as input values for an 
outer query. 


ARIXC2Z3 


ARIXC23 processes the BINDTABLE. Call this routine uhen 
data is to be raoved around. Follow the PTREEPI pointer to a 
BINOTABLE in the OF, Put out the code that perforras the 
actions indicated in the bind table. 
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ARIXC24@ 


ARIXC24 is the SGL/DS Code Generator routine that puts out 
code te call subroutines for subqueries. 


ARIXC2Z5 


ARIXC2S is the SQL/DS Code Generator routine that handles 
the processing of the binding operation for a re-open on the 
cursor situation. It re-opens the bind tables. 


ARIXC27 


ARIXC27 is the SQL/DS Code Generator routine that puts out 
code to initialize the subquery output slots to null. 


ARIXC28 


ARIXC2B puts out code te initialize for a SET function. 


ARIXC29 


ARIXC29 is the SQL/0S Code Generator routine that sets up 
tables and code blocks. The tables and code blocks place 
machine ¢ode into a new block for a subroutine. 


ARIXC3S0 


ARIXC30 is the SQL/DS Code Generator routine that puts out 
code to test if “end-of-group" vas encountered for the RHS 
of 2 Type-2 join. (It tests the "ADVANCE" bit.) 


ARIXC31 


ARIXC31 is the SQL/OS Code Generator routine that puts out 
code to test the relation of a RHS row to a LHS row. Then 
ARIXC31 takes appropriate action. It tests the end-of-group 
(for Method-2 joins}. JOINDESP points to a JOINDESCRIP, 
that leads us to tuo parse-tree nodes: 


1, A COLUMNHODE that describes the slot containing the 
value of the join column on the left-hand side. 

2. A COLUMNNODE describing a slot which contains the value 
of the join column in this row (the RHS}. 


Our job is to produce code that tests the relation of the 
RHS to the LHS. There are three possibilities: 
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1. The RHS is less than the LHS. Go back and fetch another. 

2. The RHS is equal to the LHS. We have @ winner: return to 
the caller after checking the WHERE clause. 

3. The RHS is greater than the LHS, Return “not found" to 
the caller. 


ARIXC32 


ARIXC32 is the SQL/DS Code Generator routine that puts out 
code to test for a new group. Then ARIXC32 takes 
appropriate action. It tests the new group (for Method-z 
joins). JOINDESP points to a JOINDESCRIP, that leads us to 
tuo parse-tree nodes: 


1. A LITNOUE describing a slot containing the value of the 
join column in the previous row 

2. A COLUMNNODE describing a slot containing the value of 
the join column in this row. 


Our job is to produce code that: 

@ Skips the test, if we are currently sitting on the 
first row. 

® Tests whether the scan has entered a new group (i-e.; 
whether {LITNODE )=( COLUMNNNODE)). 

© Sets Register (9) to 0, if the scan has entered a neu 
group. 

* Copies the first row value into the menory slot (the 
LITNODE), if the scan has entered a new group, or if 
you are pointing to the first row (i-e., if you are 
sitting on the first row of a nev group). 

® Sets Register (9) to Il» if it is still in the sane 
group. 


ARIXC33 
ARIXC33 is the SQL/DS Code Generator routine that extracts 
information about a passed parse tree node's data type: 
TYPE - Basic flavor (INTTYPE, HWTYPE, or CHARTYPE) 
NUL ~ 1 if its an N (null) type 
RS ~ 1 if its an RS type 
It returns the DATATYPE of the datum described by the parse 
tree node, plus certain data obtained from the type. 


ARTXC3S4 


ARIXC34 is the SGQL/DS Code Generator routine that puts out 
code to complement a nuxber. 
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ARIXC35 


ARIXC35 is the SQL/DS Code Generator routine that puts out 
code to fill a coluan with its nev value for the UPDATE 
function, 


ARIXC36 


ARIXC36 generates code to move a value from one slot in real 
storage (the source) to another slot in real storage (the 
target). <A parse tree describes the source and the target. 
It may be a veal node in the parse tree or a pseudo-node 
constructed solely for the benefit of this routine. 


ARIXC37 


ARIXC37 is the SQL/DS Code Generator main (control) routine. 
It steps through the optinized parse tree and builds the 
syntactic stack entries. Then the entries are passed to 
ARIXC38 to be processed. 


ARIXC38 


ARIXC38 is the SQL/DS Code Generator routine that controls 
the generation of access nodule code based upon the operator 
in the syntactic stack passed by ARIXC37. It creates access 
module code from optinized data. 


ARIXC39 


ARIXC39 is the SQL/DS Code Generator routine that resolves 
xeferences for branch instructions in generated code. It 

inserts into the CODEBLK the base and displacement portion 
of an instruction that references a synbol. 


ARIXC40 
ARTXC40 is the SQL/DS Code Generator routine that puts out a 


passed RR type instruction, It moves the RR instruction in 
INST into the next availaibe slot in CODEBLK. 


ARIXCG1 
ARIXC41 is the SQL/DS Code Generator routine that puts out 


the passed RX type instruction. It moves the RX instruction 
in INST into the next available slot in CODEBLK. 
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ARIXCG2 


ARIXC42 is the SQL/DS Code Generator routine that puts out 
the passed SI type instruction. It moves the SI instruction 
in last tuo bytes of HW1,; HW2 into an available CODESLK 
slot. 


ARIXCGS 


ARIXC43 is the SQL/DS Code Generator routine that puts out 
the passed SS type instruction. It moves the SS instruction 
contained in the three fulluord parareters into the open 
slot in the CODEBLK. 


ARIXCG5 


ARIXC4S is the SQL/DS Code Generator routine that sets up 
addressability to the length of a varying character string. 
P points to a parse tree node that describes a 
varying~-length string. R is the register that points to the 
block containing the length. LOISP is the (byte) 
displacement from the beginning of where the length is to be 
found. 


ARIXCG7 

ARIXCG7 is the SQL/DS Code Generator routine that converts a 
pointer in block-number/displacenent fora to a real address. 
ARIXCG8 

ARIXC48 is the SQL/DS Code Generator routine that converts 


block-nuaber and displacerent to a real storage address via 
the BLKADDA table. 


ARIXC4S 


ARIXC49 is the SQL/DS Code Generator routine that breaks a 
pointer in block number/displacenent form into tuo halfvord 
fields (BLKNR,DISP). Then it returns ther to the caller. 
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ARIXC51 


ARIXC5! is the SQL/DS Code Generator routine that extracts 
descriptive data on a LITNODE. It supplies ARIXCO3 with 
information about a LITNODE. 


ARIXC53 


ARIXC53 is the SQL/DS Code Generator routine that puts out 
code to convert a floating-point number from RSI format to 
standard 3/370 format. Then ARIXCS3 places the resulting 
number in the DSA. 


ARTXC54 


ARIXC5S is the SQL/DS Code Generator routine that puts out 


code to perform test and branch instructions. 


This code works vith LAB(25) and LAB(26) in ARIXC38. 


RDS EXECUTIVE MODULES 


ARIXEAB 


ARIXEAB allocates the OP, space blocks, and the CODE BLOCK. 
It allocates the relocation directory for the block if the 
caller requests it. 


ARIXKEAD 


ARIXEAD is the module called by ARIXERD to handle an EDSF 
(Extended Dynamic Statements Facility) PREPARE statement 
against a modifiable AUX. The functions performed vary 
Slightly depending on whether or not the EDSF PREPARE 
follows a CREATE PROGRAM statement in its Logical Unit of 
Work (LUM). 


When the EDSF PREPARE follows a CREATE PROGRAM statement» 
ARIXEAD initiates statement compilation and AUX section 
Storing Similar to ARIXEDS. The only difference is that 
each section's gencode or parse tree (in the case of 
interpretive sections) is kept around for the duration of 
the LUW in case it will be executed. 


When not follouing a CREATE PROGRAM, ARIXEAD has an 
additional funetion which applies specifically to the first 
EDSF PREPARE of the LUW. The referenced AUX nust be 

, Validity checked, loaded, and reprepped if necessary,» and 
have needed storage areas allocated. ARIXEAD calls ARIXEPP 
to perform statement conpilation. 


ARIXEPP returns to ARIXEAD without storing the AUX section. 

ARIXEAD determines where the AUX section and its SQL 

statement will be stored in the AUX, then calls ARIXESX4 to 
do the store. 


ARIXEAD then does address relocation in code blocks in case 
the section is executed during this LUW. 


There are tuo additional entry points in ARIXEAD. 


ARIXEAD! is called at LUW COMMIT time. ARIXEAD] calls 
ARIXESXS to update the AUX length row and the AUX SLT rous. 
ARIXA06 is called to degrade run authorization, if 
necessary. ARIXEPH is called to mark all occurrences of the 
updated AUX invalid in the AUX cache. Finally, all storage 
areas are freed to include the code blocks (or parse trees) 
left around for possible execution. 


ARIXEAD2 is called at LUW ROLLBACK time. 
same free storage functions as ARIXEAD!. 


It perforas the 
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ARIXEBR 


ARIXEBR is the linkage module between the RDS and an access 
nodule (AUX). ARIXERD calls ARIXEBR to give control to an 
access module (AUX). The AUX has already been loaded and 
resides in real storage. 


ARIXECK 


ARIXECK builds the SQLCA structure for DBSS errors. It is 
called whenever any RDS nodule has made a DBSI (ARIYMO0} 
call to OBSS and has been passed back an error by DBSS. 


ARIXECL 


ARIXECL closes a set of cursors. It follows a chain of 
control blocks anchored in the OF pointed to by OPLOCPTR. 

If the control bleck status is not closed, and the SCANOPEN 
bit in the status bits structure indicates that the RSI scan 
is still open» DBSS closes the scan. The control block 
status is set to "CLOSEDCODE’ in any event. 


ARIXECW 


ARIXECMW is called by ARIXECK or by any RDS nodule that 
detects om causes a COMMIT WORK, ROLLBACK WORK, or a LINK 
BREAK. ARIXECW cleans up transactions and certain control 
blocks that the ROS uses; such as PROGS (list of loaded 
access nodules), ACQUIRE blocks, and SORT blocks. 


ARIXEDB 


ARIXEDB is the RDS to DBSS linkage. It is called by many 
RDS modules whenever they wish to make a DBSI (ARIYMOO) call 
to DBSS. ARIXEDB locates the address of the DBSS (ARIYMOO) 
module. It sets Register 10 to point to YTABLE! and BALR to 
DBSI (ARIYMOO). 


ARIXEDC 
ARIXEDC is called by ARIXERR when ARIXERD discovers that the 
user issued a DESCRIBE call. This nodule copies the SQLDA 


fron the SPACEBLK into the users SQLDA space. If the actual 
SQLDA is larger than the spaces it only returns the actual 
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number of items. 


Otheruise, the entire SQLDA is copied to 
the user. 


ARIXEDP - Dynamic Parse, Optinize, and Code Generate 
This nodule is called from ARIXERD for three reasons: 


1. To handle a set-up call created to handle a "PREPARE" SQL 
statement. This module causes the SQL statement, that is 
sent over at run-time, to be processed through the 
Parser, Optinizer, and Code Generator. ARIXEDP causes a 
section of an access module to be produced in real 
storage but not stored in the data base. 

2. To handle indefinite sections produced by an "EXECUTE 
IMMEDIATE" SQL statenent. This nodule processes the SQL 
statement sent over at run-tine in the same aanner as for 
a set-up call above. Hovever, once processing is 
complete, the section is immediately given control and 
executed. 

3. To handle parsed sections produced at PREP tine. This 
occurs if a SQL statenent could only be parsed and 
further processing is delayed until run tine because a 
table or view did not yet exist or a user was not yet 
authorized. This nodule causes the statement to complete 
optimization and code generation and then executes the 
completed section. 


ARIXEDR 


ARIXEDR is the entry module for handling the deletion of an 
existing section in an access module. The section deleted 
is specified in the RDIIN field RDISECT# generated as the 
result if a DROP STATEMENT. ARIXEDR deletes the section and 
SQL statenent rows of the specified section in the access 
nodule, and marks the SLT entry for the section as reusable 
(meaning it may be used by @ subsequent add section request, 
that is, an extended PREPARE}. TID (tuple ID) information 
is stored in each SLT entry which ennbles ARIXEDR to perfora 
the row deletions. The TIDs of the first section and SQL 
statenent rows are stored in the SLT fields used for IVAR 
and OVAR pointers, respectively. These fields may be used 
since IVARs and OVARs are not permitted in SQL statenents 
prepared using extended PREPAREs. The row organization of 
an access module is: 


1. AUX length row 

2. SLT rows 

3. Section rous 

&. SQL statement rows. 


Deletion is done in the following nanner for both section 
row deletion and SQL statement row deletion: 
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1. A DBSS scan is opened to position on first row using 
supplied TID. 

2. Row is deleted using DBSS delete. 

3. DBSS NEXT is issued. 

4. If TIO of returned row is terminating TIO, or if end of 
file return code is received, go to Step 5. Else» row is 
deleted using DBSS delete. Then go back to Step 3 to get 
next rou, 

5. Close scan using DBSS close. 


Since AUX rows are stored using a unary link» row TIDs ray 
be used to position on a specific row. When deleting the 
last section, stop at the TID of the first SQL statement rov 
for section rows, and a DBSS EOF for SQL statenent rous. 

The TIDs originally stored in the SLT entry of the deleted 
section are replaced by the first section/statenent row TIDs 
of the next section. If section 2 were deleted its TIDs 
would be replaced by those of section 3. Updates to TIDS of 
any irnmediately preceding SLT entries narked as reusable 
must also be made. 


ARIXEDS 


ARIXEDS acts as the linkage between the Precompiler and 
SQL/DS. ARIXERD calls ARIXEDS whenever PREP issues one of 
its spacial SQL/0S calls - PREP INIT call, SQL call, LOOKUP 
call, and PREP FINISH call. 

* The PREPINIT call causes control blocks to be allocated 
and initialized. These control blocks sre used by 
other RDS nodules during the PREP process. Also; call 
ARIXESX] to initialize the access nodule. 

® The LOOKUP call causes a search of the SLT (Section 
Location Table) to see if a section of the access 
module was previously created. It is the section used 
by the SQL statement currently being processed by PREP. 

*® The SQL call causes a call toe ARIXEFP. 

© The PREP FINISH call basically frees all areas created 
by a PREP INIT call. It also calls a routine 
(ARIXESX3) that finalizes the access module and causes 
the access module to be stored in the data base. 

Modifications have been made that enable EDSF tExtended 
Dynanic Statements Facility) to handle CREATE PROGRAM calls» 
SETUP calls (extended PREPARE) and commit or rollback of a 
CREATE PROGRAH LUW. Output mailbox adjustments have also 
been rade. 


ARIXEER 


ARIXEER is called uhenever any RDS module encounters an 
error. It builds the SQLCA using the input parareters 
passed by the RDS nodule. 
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ARIXEFB 


ARIXEFB frees an OF; space block, or code block along vith 
their associated relocation directories. It frees either a 
single block or an entire chain of blocks. 


ARIXELK 


ARIXELK is the entry point to the RDS load module. It is 
called only once at SQL/DS startup time. ARIXELK finds the 
addresses of the key RDS modules. Then ARIXELK puts these 
addresses into the RDS CVT so SQL/DS control can use then 
later. 


ARTXELX Loads an access nodule from the data base into 
storage. ARIXERD calls ARIXELX when it finds that the load 
rodule is rot yet in storage. ARIXERD also calls ARIXELX if 
the load nodule was deleted froa storage since it was last 
used. 


Entry Point: ARIXELX1 
Function: ARIXERP calls ARIXELX1 to find SQL statements 
on the data base. 


Entry Point: ARIXELX2 
Function: ARIXELX2 is required for UPDATE LUM 
initialization. It enables the SLT to he 
loaded into the PSLT extendable blocks, the AUX 
sections te be loaded and to point to each 
section out of PSLTLOCP of its PSLT entry. 


When fetching the first rou of an AUX, the possibility that 
it might be a CREATE PROGRAM AUX and have a longer first row 
must be handled. The information in the first row aust be 
saved in the store load structure and the ROAREA. 


When loading the AUX SLT, new information for CREATE PROGRAM 
access modules must be transferred from the stored SLT te 
the AUX SLT. 


Entry Points ARIXELX3 
Function: ARIXELX3 is called by ARIXEAD at start of AUX 
update activity to see if the AUX exists, if it 
is modifiable, and if it needs reprepping. 
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ARIXEOC 


ARIXEOC provides the linkage between the RDS module that 
receives control when an operator command is received fron 
the CICS partition (ARIXERD) and the module that makes the 
call to the DBSI (DBSS linkage module ARIYNOO). It converts 
the RDIIN structure that contains the operator command to 
OBASE. OBASE is the linkage structure between RDS and DBSS. 


ARIXEPH 


ARIXEFH perforus the following operations om PROGS (list of 
loaded access modules): 


€ Moves all entries from RDAREA to the frea list, blank 
list, or axtension list 

® Invalidates/deletes all entries from PROGS for a 
specific program name 

© Moves entry from anywhere to the blank or extension 
list 

® Moves Isat entry from the free list to the blank or 
extension list 

® Moves all entries from the free list to the blank or 
extension List 

© Disconnects PROG from the user list directory for a 
specific PROG and removes user list if needed 

© Mowes invalid PROGS to blank ox extension list. 


ARIXEPP 


ARIXEPP acts as a router to the najor ROS components: 
Parser, Optimizer and Code Generator. It receives control 
from ARIXERD» allocates the IVNAMES, IVIND» OVNAHES and 
OVIND data areas, and calls ARIXPAL (Parser). Upen return 
from ARIXPAL with a good return code,» ARIXEPP allocates the 
NAMELIST data areas and builds them using the information 
passed back from ARIXPAL. It then calls ARIXOOP 
{Optinizer). If the Optimizer passes back a valid return 
code, ARIXEPP calls ARIXC37 (Code Generator). If everything 
is o.k.; it calls ARIXESX2 to store the section of the 
access module that was created. 


At appropriate points in the program, checks are rade to 
determine if an extended PREPARE is currently being handled 
(RDACPLUW is on}. An SQL statement cannot have input or 
output host variables; only question mark variables are 
allowed. All SELECTs are treated as cursor queries. For 
question mark variables, data type and length are obtained 
fxom an SQLDA, if present. The DESCRIBE argument (30) is 
set ON for calls to the optinizer for queries so that an 
SQLDA will be created in the space block. After storing a 
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section the chain of space blocks for a compile section of a 
modifiable AUX is not freed. 


ARIXERD 


ARIXERD is the topmost ncdule in the 805. It is the first 
nodule to ba called from the SQL/DS Dispatcher for all 
normal SQL/DS calls from a user. Its aain purpose is to act 
as a router betueen the call type in the RDIIN and the RDS 
module which handles the particular call type. It alse 
checks the users authorization, insures the user is properly 
scheduled; and causes the access nodule to be loaded during 
execution tine. ARIXERD maintains a list of access nodules 
that have been loaded and a list of userids authorized to 
use these access nodules. If the access nodule is on the 
list and the user is on the authorized list for the access 
nodule, no further checking is done. 


Additionally, EQSF can handle the extended SQL statenents 
which are CREATE PROGRAH, extended PREPARE, extended DECLARE 
CURSOR, extended OPEN, extended FETCH, extended CLOSE, 
extended DESCRIBE, and extended EXECUTE. These statements 
way be handled prior to, and/or after loading an AUX. Input 
mailbox handling has been modified to accommodate changes 
required for support of the extended statements. Code has 
been inserted to detect and handle commits and rollbacks of 
CREATE PROGRAM LUWs and LUWs that update an existing AUX 
(update LUW). In addition, code has been inserted to detect 
implicit rollbacks within one pass through RDS (between 
entry and exit of ARIXERD). 


A new entry point, ARIXERDI,» has been added to handle normal 
and abnormal application termination. For the norrzal 
termination case, entry is made if the application did not 
end the LUM by issuing a commit or rollback. 


ARIXERO 


SQL/DS control calls ARIXERO when SQL/DS is being brought 
up. ARIXERO reads the catalog addresses of all the systen 
catalogs. These addresses are located in the first relation 
of Segnent 1 of the data base. 


ARIXERP 


ARIXERD calls ARIXERP for REPREP if the access nodule for 
the program being executed is rnarked invalid. ARIXERP then 
calls ARIXELX] to retrieve the SQL statements from the data 
base where they were stored during PREP time. ARIXERP then 
calls ARIXEPP, that calls the Parser, Optimizer, and Code 
Generator. This causes a new section to be stored for each 
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SQL statenent. 
nodule. 


It ¢alls ARIXESX3 to finalize the naw access 


ARIXESP 


ARIXESP issues an ENDRSS DBSI (ARIYMO0) call to stop an 
agent. 


ARIXEST 


ARIXEST is called one tine for each agent created by SQL/0S 
Control. ARIXEST allocates RDS SQLCA and TBASE, and 


| initializes RDAREA. 


ARIXESX 


ARIXESX is the store access nodule routine. 


Entry Point: ARIXESXI1 
Functions ARIXESX] initializes the AUX. It is called 

when a program is first being prepped. 
ARIXESX1 issues a BEGIN TRANSACTION. that 
covers the entire PREP process. ARIXESX1 also 
causes any old access nodule by the same nane 
to be dropped. Then ARIXESX] allocates a new 
access nodule. 


Entry Point: ARIXESX2 
Function: ARIXESX2 adds section and SQL statenent rows to 
an AUX which is not nodifiable. 


Entry Point: ARIXESX3 
Function: ARIXESX3 finalizes an AUX which is not 

modifiable or finalizes a null rnodifiable AUX 
(contains no sections). The SLT rous if the 
AUX are added, then the AUX length row ‘first 
row) is updated to reflect the number 27 
sections in the AUX. An entry for this AUX is 
inserted into the SYSACCESS catalog. The AUX 
is then committed to the data base. Ho 
finalization occurs if an error was e> -cuntered 
during preprocessing; the prep LUW is rolled 
back. 


Entry Point: ARIXESX4 
Function: ARIXESX4 adds section and SQL statenxent rows to 
an AUX which is rodifiable. 


Entry Points ARIXESX5 
Functions ARIXESXS finalizes an AUX which is sodifiable. 
Existing AUX SLT rovs are updated or inserted, 
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as necessary. The AUX length row is updated. 
An entry is made for this AUX in the SYSACCESS 
catalog, if necessary. 


ARIXEUH 


ARXXEQU perforns the following operations on user list and 
user list directory: 


® Deletes user from aouser list for a specific progran 
* Destroys old user list and creates m new one, leaving 
count in user directory unchanged. 


ARIXETR 
ARIXETR is the RDS trace service routine. 


Entry Point: ARIXETR 
Function: ARIXETR causes trace point data to be collected 
and written to the SQL/DS trace output file. 
This function is invoked by the XTRACE macro 
with the LOCK option omitted. 


Entry Point: ARIXETRI 
Function: ARIXETRI causes trace point data to be 
collected and written to the SQL/DS trace 
output file. It also leaves the trace output 
file ‘locked’ (see below) so that the caller» 


itself, can create additional trace point date 
records and cause then to be written to the 
trace output file. This function is invoked by 
the XTRACE macro with the LOCK option 
specified. 


Entry Point: ARIXETR2 
Function: ARIXETR2 causes the SQL/DS trace cutput file to 
be ‘unlocked’. This function is invoked by the 
XTRACE macro with the UNLOCK option specified. 


Entry Point: ARIXETR3 
Funetion: ARIXETR3 causes caller-created trace point data 
records to be written to the trace output file. 
See entry point ARIXETR1 above. This function 
is invoked by a call with the addres: sf the 
record as the parameter. 


On norgsal entry; entry point ARIXETR and ARIXETRI: tasts are 
made te deternine if trace is: 

® Active at all 

® Active for the current user-id 

® Active for the invoking subcorponent or function 
If the trace is not active, return with no output. 


If a snap dump vas requested (by the TRACE command) for this 
trace point, the SQL/DS partition snap duap routine is 
called and the snap dump request is disabled (duap first 
tine only). 
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RDS CODE FRAGMENTS 


ARIXFan 


The ARIXFnn nodules are code fraqnents that ray be inserted into access nodule sections by the Code Generator, depending on 


which SQL functions are requested. 


ARIXFAO - Calls the run-tine routine ARIXCR3 to insert a 
literal row containing long fields. 


ARIXFTB - Contains the vector table for fragnents and 
run-tine routines. These fragnents sare used by the Code 
Generator when building an access nodule. 


ARIXFO1 ~ Does the initialization for the outer query 
subroutine. Set up so this section looks like compiled 
code from an RDS progran. 

ARIXFOZ - Tests for OPEN or a NEXT. 


ARIXFO3 ~ Does an OPEN. 


ARIXFOG4 - Issue the NEXT. 
ARIXFOS - Tests the row against the WHERE clause. If the 


row did not satisfy the WHERE clause, we go back to AGAIN 
to issue another NEXT. 


ARIXFO6 ~ Sets register 2 vith first PVAR in user's PVAR 
structure. This block of code precedes the outputting of 
values fron the select-list. It fills register 2 with 
the address of the first PVAR in the user's PVARS_STRUCT, 
and calls ARIXCR2. 


ARIXFO?7 ~ Returns control to the user. This is the last 
fragment. The Code Generator is all done and ready to 
return control to the user. Gives him a zero return coda 
if control flowed into here, and then uses the RDS 
standard return sequence. This fragnent also contains 
the error exit. 


ARIXFO8 - Checks the truth value for "FALSE or NULL". 
ARIXFO9 - Checks if the truth value was a “TRUE. 


ARIXFU1 - Exits for UPDATE, DELETE WHERE <predicate>. 
Calls run-tine routine ARIXCR1. 
j 


ARIXF12 - Obtains a userid. Finds the address of the 
userid slot in the RDAREA, and leaves that address in 
register 6, 

ARIXF13 - The entry for an inner-level query routine. 
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ARIXF16 - Returns “not found" to the caller innediately. 
This fragment is output in a “BINOTABLE” situntion (for 
example, for join). 


ARIXF15 - Uses ARIBOI6 to set the loop function. 
ARIXFI6 - Initializes the set function's INITBYTE. 


fragment is output after the processing of tha 
select-list of the query that includes set functions. 


This 


For each query involving set functions, there is a byte 
allocated in "BLOCK 10", our static CSECT data block, 
which indicates the status of the innediate environment: 
vhether the SETFNDATA slots have heen initialized, and 
whether a row has been fetched and accunulated. 


ARIXF17 - Fragsent for “OPEN” the cursor query with set 
function. 


ARIXF18 ~ Fragrent for "NEXT" on cursor query with set 
function. This fraguent is entered when we have a cursor 
guery involving a set function; and the user hes issued a 
$FETCH against the cursor. 


ARIXF1S ~ Exits from cursor query with set function. This 
is the last fraqnent to be output for a cursor query that 
Involves a set function. He flow into here when all of 
the rows have have been fetched, EOF has been reached, 
and the set function has been computed. Because 
everything is OK at this point, and ARIXEBR initialized 
the return code structure to “OK", we simply return to 
the user. 


WINDUP is another valid entry, which is reached vhen ve 
find the flag that indicates that we shovld return the 
“not found" condition to the the user. Close the scan 
(if it is open), and close the user's cursor. 


ERROR is entered in response to a severe error anyvhere 
in the section. 


2 RIXF20 - This fragnent issues the UPDATE command for a 
row identified by the “current of cursor” predicate. 
Control is returned to the caller if the UPDATE command 
succeeds} othervise, control is transferred to ARIXCRI. 
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ARIXF21 - Fragment for WHERE clause of "DELETE ... WHERE 


CURRENT OF CURSOR" 


ARIXF22 - Issues an RSI FETCH when everything is already 
knoun. 


ARIXF23 - Fragnent that noves the SCANID from one TBASE to 
another. 


ARIXF24 - The exit for select one row for a non-cursor 
SELECT. 


ARIXF25 - This fragment issues the RSI "CLOSE" command 
against the TBASE pointed to by the "NEXTPTR" of the 
control block. 


ARIXF26 - Tests the RSI return code. If the raturn code 
is not zero, this is an unexpected error and ARIXF26 
calls ARIXCR1 to handle it. 


ARIXF27 ~- Issues the RSI INSERT command to insert a 
literal rou. 


ARIXF28 - Fragment for "OPEN" and "NEXT" in support of 
INSERT from subquery and UPDATE ... WHERE ... and... 
DELETE ... WHERE. 


This fragment is to open a scan, and then return rous on 
demand. The difference betuveen ARIXF28 and a conbination 
of ARIXFO3 and ARIXFO04 is that the fragment does not 
return to the user after the open, but plunges right in 
with a fetch of the first row. 


ARIXF29 - Fragment for INSERT from subquery with 
clustering by default. This fragment issues the RSI 
INSERT for a row that has been returned fron a subquery. 
Control is returned to the caller only when the subquery 
reports an EOF condition. 


The ARIXF29 fragment is used, instead of ARIXF49, in the 
ease vhere there is no clustering image, and clustering 
is by defalt. The difference is that here ve leave the 
TID returned by the last insert as the candidate TID for 
the next. 


ARIXF3O - Fragment for DELETE ... WHERE. Control is 
returned to the caller only when the subquery reports an 
EQF condition. 

ARIXFS1 - Fragment for processing we're all done. 


ARIXFS2 - Calls ARIXCRH to bind a decimal number. 
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ARIXFSS - Calls ARIXCRI for decinal to floating-point 
conversion. 


conversion. 


SRIXMFS5S - Fragment to process a "NOT" node. register 9 
currently contains either the value "1''('TRUE"), 
"OVC'NULL™), or “-J'"("FALSE"). 


ARIXF36 - Fragaent to reset "NO ROWS" flag for set 
function. 


SARIXFS7 - Fragnent to set “have seen a row" flag. This 
fragaent is owtput after the processing of the 
select-list of a query that incldes set functions. 


ARIXFSS8 - Fragment to accuaulate the aininum varying 
length character string that has been seen. If the datum 
in hand is less than the current mininmua value, the datus 
becomes the new current mininaua. 


.RIXFS9 - Fragaent to accuaulate the aaxinun 
varying~length character string that has been seen. If 
the datum in hand is less than the current maxinunm value» 
the datum becomes the neu current maxinun. 


ARIXFGO - Fragrent to accumulate COUNT and SUM for 
integers. Called from ARIXC28. 


ARIXFG1 Fragment to compute average for SUM and COUNT. 

ARIXFG2 - Test bit 0 of SEYSTATE te see whether the set 
function ignored nulls; if it did, set the NULLSIG bit of 
RDSCODE. 


ARIXFGS - Set null indicator for AVG, MIN, MAX. 


ARYXFGG - Fragment to call run-time routine ARIXCRL which 
tests a string to determine whether it is a "LIKE" 
pattern for DBCS. 


ARIMFGS - Fragnent to output a character stxing of either 
fixed- or varying-length. It calls upon the run-time 
routine ARIXCR3 to actually do the transfer to the user's 
variable location. 


ARIXFG6 - Fragrent to call the run-time error routine 
ARIXCR1, Load register 0 with an error code. Load 
register 1 with additional information. Find the address 
of ARIXCR1 and branch to it. 

ARIXFG7 - Fragment for WHERE clause of “UPDATE ... WHERE 

CURRENT OF CURSOR". 
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ARIXF&8 - Issues the RSI UPDATE command for a rou that has 
been returned from a subquery. Control is returned to 
the caller only when the subquery reports an EOF 
condition. 


ARIXF49 - Issues the RSI INSERT command for a row that has 
been returned from a subquery. Control is returned to 
the caller only when the subquery reports an EOF 
condition. ARIXF49 is used vhen there is a clustering 
image. It differs from ARIXF29 in that the candidate TID 
is made zero so that clustering by image will take place. 


ARIXF50 - Binds an input variable to a fulluord slot. It 
calls the run-time routine ARIXCRS. 


ARIXF51 - Binds an input variable to a halfword slot. It 
calls the run-time routine ARIXCR6. 


ARIXF52 - Binds an input variable to a character slot. It 
calls the run-time routine ARIXCR7. 


ARIXF53 - Binds an input variable to a varying character 
slot It calls the rum-time routine ARIXCRS. 


ARIXF5% - Hoves TIO from one TBASE to another. 


ARIXF55 ~ Fragment for Stepl query -~ simple branch to 
AGAIN. 


ARIXF56 - Defines label "INITSTFN". 
ARIMPS? - Fragment to close scan(s) for non-cursor join. 


ARIXF58 - Re-initializes the SYR structure if it contains 
a “not found” code. It is invoked in cases where a 
subguery has reported "not found’ in beth the SYR 
structure and register 15, and wa don't really want to 
report "not found’ to the user. 


ARIXF59 - Calls the run-time routine ARIXCRB to get 
femporary storage. 


ARIXF60 - Sets up register 15 for OPEN check list 
procedure. 


ARIXF61 - Calis ARIXCRA to call DBSS te parform a sort. 
ARIXF62 - Fragment for a join: test call type. This is 
the first fragment after the prologue in a compiled 


subroutine, It decodes the command {a single characters 
pointed to by register 1, and branches accordingly. 
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ARIXF63 - Calls the run-time routine ARIMCRC, which calls 
the DBSS to initialize a temporary segment and to create 
a list or relation in it. 


ARIXF64 - Fragment to assist evaluation of <expr> in 
<subquery>. 


ARIXF65 - Fragnent to call a compiled subroutine to 
perform a join via method 1, 


ARIXF66 - Define the external label "GREXIT". 
ARIXF67 - Defines the label "INITSTFN" for “GROUP BY'* 


ARIXF68 - Uses macro ARIBO14 te issue the "NEXT" for 
"GROUP BY". 


ARIXF69 - Uses the macro ARIBOILS to issue the “OPEN” for 
the "GROUP BY”. 


ARIXF70 - This is the last fragment to be output for a 
"GROUP BY". We flou into here when all of the rous have 
been fetched (EOF has been reached). Because everything 
is OK at this point, and ARIXEBR initialized the return 
code structure to "OK", we simply return to the user, 


ARIXF71 - Uses aacro ARIBO16 to generate code for tha loop 
function with "GROUP BY". 


ARIXF72 - This fragment's sole job in life is to transfer 
to the Isabel "AGAIN." This is done uhen ve are 
processing an INSERTNODE that is not at the highest level 
(i.e., we are building a temporary relation), and we 
discover that the source value is NULL and tke 
corresponding column in the temporary relation does not 
persit nulls. 


ARIXF73 - This fragment follows the ARIXF29/ARIXFS9 
fragment. It branches back to get another group. This 
branch has been separated from ARIXF29/ARIXF49 hecause it 
is different for INSERT a GROUP BY. 


ARIXF7& - This fragment follous the ARIXF29/ARIXFS9 


fragment. It branches back to read another row. This 
pranch has been separated from ARIXF29/ARIXFS9? because it 
is different for INSERT from a GROUP BY. 


ARIXF75 - Fragment to advance (close, re-open] the 


PLACEHOLDER scan. 


ARIXF76 - Fragnent to return “not found" code to users 


both in SYR.RDSCODE and in register 15. 
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ARIXF?7 - Fragment that vill perform a "NEXT" on the 
actual scar. 


ARIXF78 - Fragaent that vill return "not found” if RHS > 
LHS join coluan. 


ARIXF79 - Initializes switch for Type 2 joins. 


ARIXF80 


Calis RHS to open, fetch, or advance. 


ARIXF81 - Test call type, entry via join Method-2. This 
is the first fragnent after the prologue in a join 
subroutine. There are five possible single-character 
command codes that register 1 may point to: O (OPEN), F 
(FETCH), C (CLOSE), R (REOPEN), and A (ADVANCE). 


ARIXFS82 - Open tuo scans on a relation that is on the 
right-hand side (lower level) of a Type-2 join. 


ARIXF8S5 - Fragment to do a ''NEXT" on the LHS relation in a 
Type-2 join. 


ARIXF8S - Loop for HAVING ... in INSERT. This fragnent 
follovs the conputation of HAVING. It branches back to 
get another group if the last one does not satisfy the 
HAVING clause. 


ARIXF85 ~- Loop back after HAVING computation. This 
fragnent follous the computation of HAVING. It branches 
back to get another group if the last one does not 
satisfy the HAVING clause. 


ARIXF86 - Call ARIXF28 for LHS of Type-2 join. Fragment 
opens a scan, and then returns rous on demand. The 
difference betveen ARIXF86 and a combination of ARIXFO3 
and ARIXF04 is that the fragnent does not return to the 
user after the open, but plunges right in with a fetch of 
the first rou. 


ARIXF87 - Sets loop function (uses macro ARIBOI6) for join 
Method-2. 


ARIXF88 ~ Sets loop function (issues racro ARIBO16) for 
join Hethod-2 with "GROUP BY". 


ARIXF89 - Initialize "USQFLAG” (for $SELECT), the halfword 
slot that we vill use to tell whether a 
select-vithout-cursor returned 0, 1, or more-than~-l row. 


ARIXF9O - Increment "USQFLAG". Add 1 to the slot that 
counts how many rows ve have seen (in the case of a 
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select-vithout-cursor), and to branch to the exit code if 
the result exceeds 1. 


ARIXF9S1 - Set to 1 the slot {"USQFLAG") that counts how 
Rany rous we have seen (in the case of 
select-without-cursor, and the query is a sub-query of an 
IS-IN or IS-NOT-IN predicate). When we reach ARIXF24, 
the slot will contain 0 if no rows have qualified, and 1 
if 2 or more have qualified. 


ARIXF92Z - Set NULL byte for MIN and MAX set functions. 


ARIXF93 - Gutput a floating-point number. It calls wpon 
the run-time routine ARIXCR2 to actually do the transfer 
to the user's variable location. 


ARIXF94 - Call the run-time routine ARIXCRE to bind an 
input variable to a floating-point slot. 


ARIXFS95 - Convert a fullvord integer to floating-point 
format. The integer to be converted is in GPR (0); the 
resulting floating-point equivalent is left in (XXX) and 
in FPR (03. 


ARIXF96 - Call the run-tine routine ARIXCRF» which tests a 
string to determine whether it is "LIKE a pattern. 


ARIXF97 - At Bind time, checks to be sure that the user 
has supplied exactly as many input program variables jin 
his PVARS_STRUCT as are needed - if not, generate an 
error code. 


ARIXF9S - We output this fragnent after testing the ISIN / 
ISNOTIN / EXIST part of the predicate. Reg (9) is the 
YRUE / FALSE indicator: 1 => TRUE» 0 => null, -1 => 
FALSE. If the row did not satisfy the WHERE clause, we 
go back toe TSTQUALF to get another row. We do not go 
back to AGAIN because we aay be in a join situation. 
AGAIN would get us another row from the left hand side, 
and if there is another row on the right hand side then 
ve need that one. 


ARIXFS9 ~ Turn on the “GROUPL" status bit in the control 
block for a scan. This bit is turned on to indicate that 
the DBSS scan needs to be opened; normally this is done 
by ARIXF17, but that fragment is produced only for cursor 
queries. For non-cursor queries, we call out this 
fragment before ARIXF1IS5 (or its Method-2 join cousin). 
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RDS INTERPRETER MODULES 


ARIXISH 


ARIXISH is called to calculate hash values for non-indexed 
columns during update statistics. 


ARIXXST 


ARIXIST collects statistics for non-indexed coluans. 


ARYXI0} 


ARIXIO] acquires DBSPACEs. The basic steps are: 

4. Check that the DBSPACE name does not already exist for 
user. 

2. Find a available DBSPACE in SYSDBSPACES. 

3. Do a CINSERT to initialize the DBSPACE. Get NHEADER, 
PCTFREE, PCTINAGE, and LOCKMODE from SEGSPECNODE. 

4. Set ouner = "PUBLIC ‘ for Type-l DBSPACEs. Set NRELS = 
0. Update SYSDBSPACEs. 


ARIXIOS 


ARIXCO3 changes LOCKHMODE and/or PCTFREE for specified 
DBSPACE. The basic steps are: 


1. Fetch from SYSOBSPACES for appropriate DBSPACE. 

2. Do a CFETCH to get SCR row. This is needed because you 
can only specify all fields on an update. Fix up the 
PCTFREE field or the ENTLOCK field. Do a CUPDATE. 

3. Update the PCTFREE and lock the fields in the 
SYSDBSPACES. 


ARIXI0G 


ARIXIO¢ inserts comments in SYSCATALOG or SYSCOLUMNS. The 
basic steps are: 


1. Fetch the comments from the appropriate catalog. 
2. Update the row. The old comment, if any,» is erased. 


Entry Point: ARIXI03 
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ARIXI06 


ARIXIO6 processes a CREATE INDEX. 


The basic steps are: 


1. Check if the index name exists for this user. 

2. Do a fetch from SYSCATALOG for the table. Pick up the 
SEGNO and RID. 

3. Buiid an ICT for the new index by scanning the coluan 
nodes. Also build parts of the row for SYSINDEXES. 

4. Finish building the row for SYSINDEXES. Then insert it 
as the tail child on INDXLINK. 

ARIXIO7 


ARIXIO7 creates a relation. 


The basic steps in creating a 


relation are: 


i. 
2. 


a 


4. 
5. 


Check if the table name exists for user. 

If the DBSPACE is specified, check that it exists. 
Othervise, get (first) existing Type-2 DBSPACE of the 
user. 

Insert the master control row (MCT) for the new relation. 
This involves scanning COL NODE LISR to get coluans 
lengths. During scan, build the structure COLUMNINFO 
that remembers if nulls are allowed and stores other 
iteas used later to build entries for SYSCOLUMNS. 
Increment NRELS in the SYSOSSPACES row by one and update. 
Create companion relation and unary link of long fields, 
Insert the entry for a relation in SYSCATALOS. 
Insert the entries for colusns in SYSCOLUMNS. 
then on COLLINK. 


Connect 


ARIXIO8 


ARIXIO8 creates a synonys. 


The basic steps in creating a 


SYNonym ares 


1. 


2. 


Deo a fetch fron SYSCATALOG for the synonym to insure it 
is not already in use as a table for view) nane. 
Insert the new synonym in SYSSYNONYHS. 


Entry Point: ARIXI03 


ARIXIOS 


ARIXIOS creates a vieu. 


The basic steps in creating 


idefining) a view are: 
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. Check if the table name exists fer user. 

Insert the entries for authorization. 

. Build rows for SYSVIEWS catalog. 

Insert the entry in SYSCATALOG for view. 

. Build and insert the entries in SYSCOLUMNS. 

Insert the entries in SYSUSAGE for dependencies. 

, Create and store AUX for the view. Use the store program 
that is used for regular access modules, 


. 


SEO UTS GI Po 


ARIXI10 


ARIXI10 is the top module for dropping (depending on value 
of DROPNODE) one of the following objects: index, table, 
view, DBSPACE, synonym, program, and AUX (access module). 
This module will call the appropriate module for the object 
to be dropped. 


Entry Point: ARIXI10 
Function: ARIXI10 is the main entry. 


Entry Point: ARIXI101 
Function: ARIXI101 is the entry to drop AUX. 


Entry Point: ARIXI102 
Function: ARIXI102 is the entry from the REVOKE routine. 
It drops or invalidates AUX or a vieu. 


ARIXTi2 


ARIXI12 executes COMMIT WORK. 


ARIXI13 


ARIXI13 alters a table. 
are: 


The basic steps to alter a table 


1. Do a fetch from SYSCATALOG for the table. Pick up the 
SEGNO and RID. Increment the NCOLS Field by one. 

2. Do a CFETCH for a MCT. Add the length for the new field 
and do a CUPDATE. Create the companion relation for long 
fields if needed. Update SYSCATALOG rou. 

3. Open the link scan on COLLINK using the row from (1) as 
the parent. Do a NEXT with a SARG of COLNO: number of 
fields previously in the table to position on the entry 
for the last field in SYSCOLUMNS. 

4. Build the new SYSCOLUMNS entry and insert it (also 
connect it to COLLINK). Grant update to userid if the 
catalog expanded. 
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ARIXZ14 

ARIXI14 is the top module for the Interpreter component. 
Depending on NODETYPE (operation), ARIXI14 calls 
corresponding module. 


ARIXI15 


ARIXILS locks the DBSPACE or a table. 
locking a DBSPACE or table are: 


The basic steps in 


1. Fetch id’s from SYSCATALOG or SYSDBSPACES. Make sure 


the table is not a vieu. 
2. Lock the call. 


ARIXI16 


ARIKI16 executes ROLLBACK WORK. 


ARIXIi8 


ARIXI18 scans SYSDROP and CDELETES all the entries. It also 


resets the RDADROP bit. 


ARTXI19 
ARIXI19 updates statistics. It first does a DBSS unload 


cycle on the given table. Then ARIXI19 does an additional 
unload cycle for each extra index on that table. 


ARTXI20 


ARIXI20 updates statistics for the RDS system tables. It 
also updates the clustering-related entries in the catalogs. 


ARIXI22 


ARIXI22 drops an index. 


ARIXI23 


ARIXI23 drops a table. 
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ARIXI24 
ARIXI24 drops a view, 


ARTXI25 


ARIXI25 drops the DBSPACE. 


ARIX1I26 


ARIXI26 drops a synonym. 


ARIXI27 


ARIXI27 executes a CDELETE for index. 
entry is made in SYSDROP, 


For other objects, an 


ARIXI2Z8 
ARIX{26 deletes all rows on link RBLID from SYSCATALOG to 
CATNAME. 
ARIXI29 
ARIXI29 scans SYSUSAGE for the base object using IMUSAGE. 


It deletes or invalidates all dependent objects except 
synonyms. 


RDS LINK MAP NODULES 


ARIXLNK 

ARIXLNK is the RDS link map module for both VSE and VM. 
ARIXLNK may be found in a dumps and shows the module name 
and corresponding link address of each RDS module. 

For VM only: ARIXLNK contains the first 200 RDS module 
names and Link addresses. The remaining entries are in 
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ARIXI30 


ARIXI30 drops all rows for the AUX, If AUXSTT1] is 'I'; then 
invalidate the AUX. If it is 'D' or 'K', then delete the 
AUX, For AUXSTTL = 'I' or 'K*, call AUTH BOX with code ‘Q' 
to indicate that RUNAUTH is not to be erased. 


ARIXI31 


ARIXI31 drops all SYSUSAGE rows where an argument is 
dependent. 


ARIXI32 


ARIXI32 removes all catalog rows for specified tables, 
except those in SYSACCESS and SYSSYNONYMS. It calis ARIXI26 
to execute it. 


ARIXISS 


ARIXI33 performs update statistics for a table or a DBSPACE, 
For a table; ARIXII9 is called once to update statistics for 
the table. For a DBSPACE, ARIXI19 is called to update 
statistics once for each table in the DBSPACE. 


ARIXLNI (255 is the maximum allowable number of VCONS in one 
text module). 


ARIXLN) (VM Only) 


ARIXLNI is part 2 of the ROS link map module, and contains 
entries after the first 200 that were found in ARIXLNK. 
ARIXLN] may be found in a dump, as can ARIXLNK. 
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RDS OPTIMIZER MODULES 


The Optimizer converts literals in SQL statements to 
decessary data type fer optimal path selection as vell as 
providing slots in which data will reside at run time. 


The macro ARIBRDS contains the format of the various data 
types. Optimizer module ARIXOTF handles actual data 
conversion and building of data slots in the space block. 


Certain peculiarities should be noted in the DB5S 
representation of certain data types. 


o Long VARCHAR ~ A long field resides in a row as a 6 oy 7 
byte field consisting of: 
- & bit null indicator if null-accepting 
- A halfword containing the length of the long field 
~ A TID (Row ID} of the First rou of the auxiliary 
relation which contains the data. Each row in the 
auxiliary relation consists of 16 fields of 250 bytes 
each. Therefore, one row may represent a maximum of 
$000 bytes of data. Rows are chained together on a 
unary link. 
® Half€words and Fullwords - The high order bit of the 
numeric xepresentation is inverted. For example, a HW 
value of one would be X'8001', and the HW value of 2 
negative one would he X'7FFF*. 


© Decimal - The length of a decimal field is (precision 7/7 2) 


+ 1. The high order Your bits contain a complement 
representation of the sign as it existed in 5/370 packed 
format. The remaining bytes are the actual number in 
packed format. A negative number is represented as the 
complement of its packed format. 

© Float - A positive float value is represented in its 
internal S/370 format with the high order bit set on. A 
negative floating number is stored as the complement of 
its $/370 format. 


Decimal Arithmetic Operation Formulas 


The following describes the formulas used in ARIXO0S and 
ARIXOEX to calculate the precision and scale of the result 
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Optimizer Data Conversion 


of a decimal arithmetic operation. 


list or 
1; then 
accord 
FEP2 of t 
(Notes 


If the arithmetic result of a select 
arithmetic expression is to be decin 
a Scale of the result is calculate 
Following formulas and placed in PTR 
fou Later use by the Code Generator. 


precision and scale of the left-hand side of 
overatox; (P',S') is the precision and scale 
2 ition and subtraction 
*xecision: 
MINC LS, MAXCP-S,P!'-S'YeMAXOS;S*) + 1 
Scale: 
MAXCS,S') 


»> Multiplication 
Precision: 
MIN( 15,P4+P'4+1) 


Scale: 


Division 
Precision: 


15-P+5-§' 


Sum of decimal expression (F,S} 
Precision: 
is 
Scale: 


8 


® Average of decimal expression (P,S} 
Precision: 


Licensed Material 


predicate 

the precision 
ng to the 

he ARITHNODE 
(P;S) is 

an arithmetic 
on the vight.} 
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Basic Optimizer Cost Formula 


The objective of the optimizer is to minimize the cost of 
accessing data to answer the SQL request. The cost is a 
combination of I/O cost plus CPU cost. 

Access Cost = I/O Cost + CPU Cost * Weight Factor 


I/0 Cost iss expressed as the expected number of page fetches 
required to handle the request. 
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CPU Cost is expressed as the number of calls to the DBSS 
that are required to handle the request. 


The Weight Factor relates the relative importance of I/0 

Cost to CPU Cost for the installation. A high Weight Factor 
says CPU is the critical resource. A low Weight Factor says 
I/O is the critical resource. The current Weight Factor used 
by the Optimizer is 1/3 (obtained from RDCDPATH * RDCRATIO). 
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Input to Optimizer: Path Selection/Cost Formulas from Catalegs 


Catalog 


SYSCATALOG 


SYSINDEXES 


SYSDBSPACES 


SYSCOLUMNS 


Catalog Column 
Name 


ROWCOUNT 
NPAGES 
PCTPAGES 
NCOLS 


INDEXTYPE 
CLUSTER 
FULLKEYCOUNT 
NLEAF 

NLEVELS 
FIRSTKEYCOUNT 
COLNUMBERS 


PCTINDX 
NPAGES/128 
NTABS 


COLCOUNT 
COLNO 
HIGH2KEY 
LOW2KEY 


Other assumptions: 


® For segment scan cost (SEGSNCST), assume Data from this 
table occupies 1/100 of pages in DBSPACE if statistics 


Optimizer Table 


Taken Fron 


TBACARD 

TBANPAGS 
TBAPCTPG 
CATNUNCL 


IDXUNQIN 
IDXCLIDX 
IDXFULKC 
IDXNLEAF 
IDXNLVLS 
IDXFSTKC 
IDXCLNOS 


TBAPCTIX 
TBANBLKS 
TBANRELS 


CATFLOCD 
CATCOLNO 
CATHIGH2 
CATLOW2 


Variable Name in 
ARIXOGC, if different 


ICARD 

L 

ICARD 
INDXCOLS 


don't exist (exclude Data from other tables, indexes, 
blocks, etc) 
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Default Value 


10 900 
CEIL (R720 + 1) 


© Assume multi-programming level of 3 for sharing the 
buffer pool. 
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Set-up Formulas for Optimizer Cost Calculations (in ARIXOGC) 


The following calculations are done as initialization and are used in the cost formulas listed below. 


Calculating the number of block pages for the DBSPACE not counting index blocks: 
RB = CEIL ( (100 - TBAPCTIX) * TBANBLKS) ) / 100 ) 


(TBANBLKS is the number of blocks pages for the entire DBSPACE = (total pages in DBSPACE)/128 ) 


Calculating the number of non-leaf pages (intermediate index pages): 


NONL = FLOOR L/200 


® Calculating the number of intermediate levels in an index between root and leaf pages: 


NLEVD = MAX (0,INDXLVLS - 2} 


Calculating the number of index block pages (block pages to describe the index pages): 


IE = (L + NONL) 7 128 


Calculating the number of data block pages if data is clustered: 


IDB = CEIL 7/126 


Calculating the number of data block pages for non-clustered data: 
NIDB = ICARD + CEIL (fpages (R/ICARD,IDB)) 


(the fpages function is described later) 
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Optimizer Cost Formulas Cin ARIXOGC> 


The following formulas are used by the Optimizer to estimate the I/0 
costs to scan a table using each type of access path. The resulting 
costs are added to the CPU cost and compared to find the cheapest 
overall path and the cheapest path that the retuxyns the ansver set in an 
order that matches an ORDER BY, GROUP BY, or join predicate. 


T * 100 (number of data pages for DBSPACE 
——— _ + RB + data block pages for DBSPACE) 
TBAPCTPG 


Clustered Index Scan of Whole Table (CLUSCOST ~ variable name in 
ARIXOGC ) 


L + NLEVD + IB + T + IDB (leaf + intermediate index levels 
+ index blocks + data pages 
+ data blocks} 


unclustered index path) 


Pages accessed if doesn't fit in buffer pool 
bi If fits in buffer pool 


NLEVO + pages (L + ICARD*¥fpages(R/ICARD,T);,L+7T) + bpages (IS8+NIDB;IB+I0B) 
i 2 a 


Number of pages accessed | If fits in buffer pool 
Block pages if doesn't 
1 Number of rous to fit in buffer pool 


be returned 
2 Total data pages 


(fpages, pages, bpages functions are described below) 
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Unique Index and Matching Predicate (BESTCOST) 


4 + NLEVD 
(leaf + data + 2 block pages + intermediate index pages) 


If all selected fields are in the index and no SARGs, then get data 
from index without reading data/data block: 2 + NLEVD 


Clustered Non-uniqgue Index Matching Predicate (ACPTHCST) 
CEIL (L¥FF) + CETL (TXFF) + CEIL (IOBXFF) + CEIL (CIB*FF) + NLEVD 
(leaf pages + data pages + block data pages + index block pages + 
intermediate index pages adjusted for selectivity (FF) of 
predicate(s) - see section on “Selectivity of Predicates") 
Non-clustered Index Matching Predicates {ACPTHCST) 


NLEVD + pages [CEIL(L¥FF) + CEIL(FF¥ICARD*fpages(R/ICARD,T)),CEIL(L¥FF + T)] 
+ bpages(CEILC(IB*FF) + CELLtFFRICARD*f pages(R/ICARD,IDB)), CEIL (IB¥FF) + IDB)) 


(intermediate index pages + data + index + data block + index block 
adjusted for buffer size and selectivity (FF)) 


Functions Used in Optimizer Formulas 


ages ~ Estimate number of data pages accessed, given the size of 
the buffer pool 


bpaqes - Estimate number of block (data block) pages accessed; given 
the size of block buffer pool 


fpaqes - Input: X = number of rous to be returned fron 
Y = total number of pages selected from 
Output: Expected number of pages accessed based on a normal 
distribution and probability formula 
YHCL-C IL-1 /Y )8#X) 


Sort Cost Formulas (ARIXOSS) 


Sorting may be done to produce a result for an ORDER BY ox GROUP BY, or 
to match a join predicate if no index is available, or if using the 
index is relatively expensive. The cost of sorting is calculated using 
the following formulas. 


Input 


NSORTIN - Number of items to be selected 
COSTIN - Cost of accessing input 
SRTDIRCT - ON if input is from a permanent table 
OFF if input must be put in an internal DBSPACE before use 


Calculations 


TEMPAGES = WNSORTIN/(4000/W)} 
TEMPAGES is the number of temporary pages required for Sort 
Wis the width of Sort records 


MRGPAGES = FOG OVEMRAGES IAS 


MRGPAGES is the number of times that the DBSS Sort algorithm 
must perform a merge operation (merge passes) 


SORTCOST = (4 + 2*MRGPASES)*TEMPAGES + COSTIN 
(for 1/70} 


This includes the cost of input scan assuming no temporaries are 
needed (COSTIN)», writing TEMPAGES of data to encode, reading from 
internal table and writing to output table to decode, a read and 
write for each merge pass» and a read from the output table to return 
data to the user. 


This assumes that the input is taken directly from a base table 
(SRTDIRCT=BITON). If not (taken from a temporary), we must add 
2*TEMPAGES to the I/O cost of sorting to account for another write 
and read of data. 


Adding in the cost of CPU time to do the encode and decode in the 
DBSS, we assume encode costs 200 instructions/field and decode is 100 
instructions/field. RDCRATIO is the ratio of instructions weighted 
against I/O cost. The formula is: 


SORTCOST = SORTCOST + RDCRATIO * (200 + 100) * NSORTIN * NFIELD 
(Total) (170) 


Total SORTCOST is returned to the caller in SORTOUT. TEMPAGES is 
returned in TEMPGOUT. 
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Selectivity of Predicates (Filter Factor Formula) = 
Calculated in ARIXODF) 


Predicates (WHERE-clause search conditions) are applied against a table 
to limit the number of rows returned. The Optimizer is interested in 
how many rovs will be returned (cardinality) in calculating alternative 
access path costs. The following formulas calculate a filter factor or 
selectivity factor, which estimates the proportion of rows that will 
satisfy each type of predicate. 


Filter factor (FF) for multi-column indexes with aqual predicates is 
1/IDXFULKC (done in ARIXOGC) 
* Column = Value form (JOB='CLERK' 3 
FF = 1/CATFLOCD Default ino stats) = 1/10 
{CATFLOCD is the number of unique values for the column) 
® Columni = Column2 forn CNAME=J0B 3 
1 
EE Default = 1/10 
MAX ( CATFLDCD(COL1,CATFLOCD(COL2)) 
(use the more selective column) 


® COLUMN [IN| NOT IN | =ANY | =ALL] [LIST | SUBQUERY] fora 
(for example, DNO IN (23,30,40} , ONO = ANY (SELECT ...) 


For LIST: 
Cd i ) 
FF = MIN ( - , LISTSIZE * ————— } 
(2 CATFLDCD ) 


where LISTSIZE is the number of items in the list. 
Default is 1/10 * LISTSIZE 


For SUBQUERY: 
GARESCAR 
Fr = —— Default is 1/10 
TOTSUBaC 


GARESCAR is the expected number of rows to be returned hy the subquery. 
TOTSUBGC is the total number of rows that exist for the subquery 
tables (default is 10 000) 


® RANGE form SAL [>,<,2yS] [COL | constant] 
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If form is COL OP literal, and the literal is not an IVAR (is a 


constant), and we have column statistics, a linear interpolation is done 


between the second highest and the second lowest key values for the 
column. Otherwise, the default filter factor of 1/3 is assumed. 


For > or 2 

(CATFLDCD - 3) * (CATHIGH2 - LITVALUE) + 2(CATHIGH2 ~ CATLOW2) 

FF = ————————-—--_—— 
CATFLDCD (CATHIGH2 - CATLOW2}) 


For < or ¢ 
Use FF = 1 + FF(> or 2) Default 1/3 

2 BETWEEN SAL BETWEEN x AND y 
If form is COL BETWEEN literal and literal, and literals are not 
IVARs,» and we have column statistics, do interpolation for BETWEEN 


range} if not, use default = 1/4. 


(CATFLOCD - 3) * CHIGHLITVALUE ~ LOWLITVALUE) 


FF = Default = 1/4 


CATFLOCD * (CATHIGH2 ~- CATLOW2) 
* OR of Two Basic Predicates For example, SAL < 30000 or SAL = 
50000 
Recursively calculate the filter factors of the left~hand and 
right-hand sides of the OR. The filter factor of the combination 
is: 
FF = LEFTFF + RIGHTFF - LEFYFF¥RIGHTFF 


(Sum of filter factors less the probability that both are true) 


® Other Types of Predicates 


Oefault filter factors are: 


Complex OR expression = 1/2 
> ANY,» < ANY, 2 ANY, £ ANY = 5/6 
> ALL, < ALL, 2 ALL, £ ALL = 1/6 
= ALL = 1/10 
c= ALL = 9/10 
® NOT (For example, NOT IN,» NOT BETWEEN; ~=) 


Use the complement of the FF for the positive case: 


FF = 1 - FF 
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ARIXOAF 


ARIXOAF allocates/frees common optimizer storage. 


ARIXOBY 


ARIXOBY increments the index of the next available word in 
the space block header. 


ARIXOB1 


ARIXOB1 is the BQUERY node processor, first pass. It calls 
ARIXOSL and ARIXOWL to collect names in the select list and 
where ‘tree. 


ARIXOBZ 


ARIXOB2 iterates through Query Array, calling ARIXOSL and 
ARIXOW2 (if there is a WHERE tree) to do type distribution 
and make entries into predicate array. 


ARIXOCA 


ARIXOCA looks up table information in SYSCATALOG and 
SYSDBSPACES for each table in the Table Array. ARIXOCA 
looks up all the index entries in SYSINDEXES for each table. 
It then places them into the Index Array. ARIXOCA calls 
ARIXOIU to make dependency entries into SYSUSAGE. 


ARTXOCK 


ARIXOCK looks up each column in SYSCOLUMNS and associates 
the columns with their tables. 


ARIXOCS 


ARTXOCS evaluates the costs of access paths calculated by 
ARIXOGC and fills in the costs of join possibilities, 


ARIXOCT 


ARIXOCT sets up a control block. The control block contains 
pointers to the DSSS interf.:ce stzuctures. The structures 
are used in the genera... code to perform DBSS SCAN or row 
operations against a table. 


ARIXOcU 


ARIXOCU is the cleanup routine. It frees CATCOL storage 
associated with each table. ARIXOCU then calls ARIXOAF to 
free the five arrays used by the optimizer: TBA, CLA» GAR> 
PDA, and IDX. 


ARIXOCY 
ARIXOCY copies source BINDTABLE into Op Tree. 


RIXODF 


ARIXODF calculates filter factor (selectivity factor) for 
each predicate in Predicate Array. The formulas used are 
described above on page 543 


AREXODM 


ARIXODM acquires the DOMAINS DBSS structure. The structure 
is used to describe the columns retrieved (on query) or 
submitted (update/insert/delete) in a OBSS operation on a 
table, 


IxXOD1 


ARIXOD] is called during optimizer processing of an EXPLAIN 
statenent. EXPLAIN can have any subset of the options 
reference, structure, cost, and plan, Tuples are inserted 
into the corresponding table(s) owned by the current user 
(REFERENCE TABLE, STRUCTURE_TABLE, COST_TABLE, or 
PLAN_TABLE}, 


ARIXODL checks for the existence of necessary tables, and 
performs EXPLAIN COST. ARIXODI calls ARIXODN2 to perform 
EXPLAIN REFERENCE, EXPLAIN STRUCTURE, ox EXPLAIN PLAN, if 
necessary. If a necessary table does not exist; an error 
condition (-204) is returned to the user, and no tuples are 
put in any table. 


ARIXOD2 


ARIXO02 is called during optimizer processing of an EXPLAIN 
statement by ARIXOD1 to perform EXPLAIN REFERENCE, EXPLAIN 
STRUCTURE, and EXPLAIN PLAN; if necessary. 


ARIXOEX 

WHERE or HAVING Expression Walkthrough, During Pass 1, 
ARIXOFC is called for each column found and places it in the 
Column Array. During Pass 2, each predicate is checked for 
a column, Also a type .. ‘®csion is done on literals. 


ARIXOFC 


ARIXOFC handles column array entries. 


ARIXOFE 

ARIXOFE is called on data definition statements ACQUIRE, 
ALTER DBSPACE, CREATE TABLE, CREATE INDEX, ALTER TABLE, 
DROP, COMMENT, DEFINE SYNONYM, RESTORE, and SAVE. It places 
creator id in the entity descriptor. 

ARIXOFF 

ARIXOFF fills in pointer values in the DBSS DOMAINS 


structure. The structure points to the I/O areas of the 
submitted columns. 


ARIXOFP 


ARIXOFP makes predicate entries into the Predicate Array. 


ARIXOFQ 


ARIXOFQ is called by ARIXOBL to make entries into the Query 
Array for each BQUERY node found in the Op Tree scan. 
ARIXOFR 

ARIXOFR creates a DBSS interface structure in SPACEBLK 
pointed to out of the control block. This structure is used 


in generated code to accompany OBSS calls to perform SCAN or 
ROW operations. 


ARIXOFT 


ARIXOFT makes Table Array entries. 
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ARIXOGA 


ARIXOGA is the ASL Generation Entry module. It interprets 
the chained miniplans output by ARIXOGP. ARIXOGA represents 
the miniplans as a modified Op Tree and DBSS operation 
interface structure. 


ARIXOGE 


ARIXOGB scans the Query Array entries for GROUPBY clauses 
and/or built-in functions (SETFN node). It changes GROUPBY 
columns in the select list to objects of the MIN builtin 
function, 


ARIXOGC 


ARIXOGC gets the cost of accessing this table using 
information from the system catalogs and a series of cost 
analysis formulas. (See the introduction to this section 
for the appropriate formula. } 


ARIXOGP 

ARIXOGP is the entry module for selection of the optimal 
access path. An access path is created for each entry in 
the Query Array. It processes the entries from bottom to 


top. An access path is selected by modules under ARIXOTS 
and the plan is translated to ASL by modules under ARIXOGA. 


ARIXOIN 


ARIXOIN handles INSERT SQL requests. 


ARIXOIU 


ARIXOIU enters usage information in SYSUSAGE. 


ARIXOLG 


ARIXOLC builds a LOCDESCRIP in the Op Tree. 


ARIXOLF 


ARIXOLF scans the Column Array for long fields. 
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ARIXOMA 
ARIXOMA acquires temporary DBSPACE in the ASL by creating an 


acquire node in the Op Tree and an acquire block in the 
space block. 


ARIXOMB 
ARIXOMB makes COL! OP COL2 appear as COLI OP LIT in 
predicates, 


ARIXOMD 
ARIXOND constructs a SQLDA for DESCRIBE in the space block. 


ARIXOMF 


ARIXOMF huilds a OBSS Interface structure that is used with 
a DBSS Fetch operator. 


ARIXOML 
ARIXOML generates a list in the ASL. This implies creating 


acquire temp, create temp, and insert ASL nodes in the Op 
Tree and the acquire block structure in the space block. 


ARIXONS 

ARIXOMS sets up the OBSS Scan Interface structure for the 
scan DBSS operations on a specific table. It initiates 
creation of any DOMAINS, KDOMAINS, or SARG structures that 
will be associated with the BASE structure. 

ARIXONV 


ARIXONV expands a SELECT +. 


REXON 
ARIXONW extends the size of the existing Op Tree. 


ARIXOOP 

ARIXOOP is the entry module for RDS Optimizer functions. It 
identifies the types of root nodes. ARIXOOP then decides 
what modules to call to handle the root functions. 
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ARIXGOS 


ARIXOOS is the select list expression tracer for passes | 
and 2 of the select List. 


ARIXOQ1 
ARIXOQ! is the first-Pass Query processor. 


IX0 


ARIX0Q2 is the Second-Pass Query processor. 


ARIXORM 
ARIXORN removes a sargable predicate from the Op Tree. 


ARIXOSC 
ARIXOSC scans the Table Array. It initiates check for 


SELECT authority on each table. If select authority exists, 
ARIXOSC calls ARIXA06 to make an entry in SYSTABAUTH. 


ARIXOSG 

ARIXOSG converts a sargable predicate into disjunctive 
normal form (ONF). 

ARIXOSL 


ARIXOSL is a procedure to process the SELECT list. 
called on two passes. 


It dis 


ARIXOSO 
ARIXOSO handles SQL SELECT UNION function. 


ARIXOSR 


ARIXOSR implements a SORT in the ASL by creating a SORT node 
in the Op Tree and producing a sort block in the space 
block. 
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ARIXOSS 


ARIXOOS computes the sort costs for weighing alternatives to 
handle ORDER BY, GROUP BY, or JOIN. 


ARIXOST 


ARIXOST processes the columns of the SET clause of an UPDATE 
SQL statement. 


ARIXOSU 


ARIXOSU examines each block's relocation directory. Then it 
changes the pointers, whose index location is the directory» 
to a block number offset format. 


ARIXOS1 
ARIXOS1 marks nodes reachable fron the specified node. It 
is an iterative procedure called from ARIXOSG. 


ARIXOS2 
ARIXOS2 removes the 'AND' descendent. It is an iterative 
procedure called from ARIXOSG. 


ARIXOS3 


ARIXOS3 copies a subtree from the WHERE tree into the Tree 
Array. It is an iterative procedure called from ARIXOSG. 


ARIXOSG 


ARIXOS4 is an iterative procedure in the search argument 
generation process. It copies a subtree starting at the 
input parameter OUTIND and connects it te the child or 
sibling passed in the OUTIND entry. This guards against the 
possibility that the internal procedure transform (in 
ARIXOSG) has left the subtree as the child of more than one 
parent node. 


ARIXOTE 
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ARIXOTF transforms literals to proper data type.For a 
literal string, ARIXOTF creates a slot in the space block to 
place the transformed result. 


ARIXOTS 


ARIXOTS generates the tree of possible access paths, uses 
ARIXOGC and ARIXOCS to calculate costs, and selects the best 
path for the query. 


ARIXOUS 


ARIXOUS checks for synonyms when no creator name is 
specified in an entity descriptor. 


RIXOVC 
ARIXOVC composes a view into the Op Tree. 


ARIXOVD 
ARIXOVOD handles the view definition statements. 


ARIXOVi 


ARIXOV1 copies the subtree into Op Tree as part of view 
composition. It is an iterative procedure called fron 
ARIXOVC, 


ARIXOWT 


ARIXOW] examines the WHERE predicates on the first pass. 


ARIXOWZ 


ARIXOW2 examines the WHERE predicate tree on the second 
pass. 


ARIXO1S 


ARIXOIS makes SARGs (DBSS search arguments) out of 
expressions that are in DNF (Disjunctive Normal Form). 
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RDS PARSER MODULES 


The Parser modules are ARIXPAL, ARIXPAZ,» and ARIXPA3. 


ARIXPAT 


ARIXPAT is the SQL/DS common patch area for the RDS 
conponent. 


ARIXPAO 


ARIXPAO uses ARIBPRD to map production numbers to production 
names. ARIXPAO also uses ARIBPDI macros to generate Parser 
semantic routine linkage to call the proper entry points in 
the semantic routines contained in modules ARIXPA2 and 
ARTXPA3. The ARIBPD2 macro is used to generate entry point 
tables, The proper entry points in ARIXPA2 or ARIXPA3 are 
called based upon the above resolution. 


ARIXPA) 


ARIXPAL is the Parser main line module and scanner. The 
main line is driven by the parse tables (ARIBPAN). ARIXPAI 
calls ARIXPA4 to get addressability to the parse tables. 
Parse tables are based on BNF-defined tokens. When the 
equivalent of a BNF line is isolated by the searcher; the 
corresponding semantic routine is invoked through ARIXPAQ to 
process those tokens. Semantic routines are identified by 
entry points contained in modules ARIXPA0, ARIXPA2, and 
ARIXPA3. ARIXPAO also contains distributive code (through 
ARIBPD! and ARIBPD2 macros) to route processing to the 
semantic routine entry points. The four status names for 
main line functions are GET status, LA status, BUMP status, 
and SEMANT status. The status indicator is used as an index 
into the parse tables which are themselves tables containing 
numbers used to control the logic flow in the Parser. The 
parse tables are generated off-line from BNF statements. 


ARIXPAZ 
ARIXPA2 and ARIXPAS contain the Parser semantic routines. 


Each time ARIXPA2 is invoked a single semantic routine 
{called a production) is executed. 
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ARIXPAS 


ARIXPA2 and ARIXPA3 contain the Parser semantic routines. 
Each time ARIXPA2 is invoked a single semantic routine 
(called a production) is executed. 


ARIXPAS 


ARIXPA& contains parse tables that drive the Parser. When 
called by ARIXPA1, it returns a pointer that establishes 
addressability to these tables. 
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MISCELLANEOUS RDS ROUTINES 


ARIXSCF 


ARIXSCF converts a fullword binary value to its character 
(EBCDIC) representation. It is for use only in the SQL/DS 
partition. The resultant character string is sixteen bytes 
long and padded on the left with character zeros. If the 
value was negative, a minus sign is placed in the first byte 
of the string. 


ARIXSCH 


ARIXSCH converts a halfword binary value to its character 
(EBCDIC) representation. It is for use only in the SQL/DS 
partition. The resultant character string is eight 
characters long, padded on the left by character zeros. If 
the input value was negative, the first character is a minus 
sign. 


ARIXSCN 


ARIXSCN handles concatenation. The input parameter is a 
pointer to a structure that contains a list of pointers to 
the character variables to be concatenated. This structure 
also contains the lengths of the character variables and a 
pointer to the target string. There is also a pointer to a 
field where the length of the resulting target is placed if 
the address contained therein is not null. 


ARTXSCP 

ARIXSCP converts a pointer from hexadecimal to its character 
(EBCDIC) representation. It is for use only in the SQL/DS 
partition. The resultant string is eight bytes long. 
ARIXSDB 

ARIXSDB is the top module to convert a halfword into 


character form. All leading zeroes are substituted by 
blanks. 
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ARIXSDT 


ARIXSDOT calculates the date (the DOS/VSE date in the 
Supervisor Communication Area must be in the forn 
mm/dd/yy"). 


ARIXSLN 


ARIXSLN looks for the last nonblank position in a particular 
character string to determine the length of the character 
string. 


ARIXSRT 


ARIXSRT performs a ROLLBACK WORK and frees allocated 
storage. You reach this point because an error occurred 
after systen changes were made. If an automatic RESTORE has 
not been done and a fatal DBSS error has not occurred, this 
codé restores to save point 0. If this fails, put the 
current SYR.CODE at the end of SYR.MESSAGE and set SYR.CODE 
to fatal error (-902). 


ARIXSTM 


ARIXSTM calculates time of the day. 


ARIXSUT 


ARIXSUT returns a guaranteed unique character string of 12 
characters (A-Z, 1-9). ARIXSUT first performs a System/370 
“STORE CLOCK" instruction. It then turns off the high-order 
bit, thus giving a 63-bit integer. This integer is 
interpreted in base 35, with the base-35 digits being A-Z 
and 1-9. Therefore, successive calls to ARIXSUT return a 
strictly monotone increasing sequence of 12-byte character 
strings. 
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RDS TRACE DESCRIPTOR MODULES 


ARIXTRO 


ARIXTRO is the trace point descriptor nodule for the RDS 
Executive component. It contains the trace point 
descriptors for all trace points in modules of the RDS 
Executives component. The trace point numbers are in the 
range 4000 through 4079. See "Trace Points" in Section 6» 
Diagnostic Aids. 


ARIXTRi 


ARIXTR1 is the trace point descriptor module for the Parser 
and Optimizer components. It contains the trace point 
descriptors for all the trace points contained in modules of 
the Parser and Optimizer components of RDS and for Working 
Storage (analysis - modules ARICWSG and ARICWSF). The trace 
point descriptors in this nodule have trace point numbers in 
the range 4400 through 4935. See ‘Trace Points" in Section 
6, Diagnostic Aids. 


ARIXTRZ 


This module is Part 1 of the trace point descriptor modules 
for the Interpreter component. It contains trace point 
descriptors for trace points contained in modules of the RDS 
Interpreter component. All trace point descriptors in this 
nodule have trace point numbers in the range 5800 through 
5944. See "Trace Points’ in Section 6, Diagnostic Aids. 


ARIXTRS 


This module is Part 2 of the trace point descriptor nodules 
for the Interpreter component. It contains trace point 
descriptors for trace points contained in modules of the RDS 
Interpreter component. All trace point descriptors in this 


module have trace point numbers in the range 5945 through 
6099. See "Trace Points" in Section 6, Diagnostic Aids. 


ARIXTRS 


ARIXTR4 is the trace point descriptor module for the 
authorization component. It is also the trace point 
descriptor module for the interpreter and authorizaton 
subroutines. All trace point descriptors in ARIXTR4 have 
trace point numbers in the range 6150 through 6410. See 
“Trace Points” in Section 6, "Diagnostic Aids“. Section 6 
also contains Security/Audit trace points. 


ARIXTRS 


ARIXTRS is the trace point descriptor module for the code 
generator component. It contains the trace point 
descriptors for all trace points in modules of the RDS Code 
Generator component. It also contains trace point 
descriptors for Service Temporary trace points for all RDS 
nodules. ALL RDS Code Generator trace point descriptors in 
this nodule have trace point numbers in the range 5290 
through 5278. All Service Temporary trace point descriptors 
in this module (for all RDS modules) have trace points in 
the range 9900 through 9999, 


ARIXTRS 


ARIXTR6 is Part 3 of the trace point descriptor module for 
the interpreter component. It contains trace point 
descriptors for trace points contained in modules of the 
interpreter RDS component. All trace point descriptors in 
this module have trace point numbers in the range 6500 
through 6599. 
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DBSS MODULES 
DBSS DATA CONTROL 


ARTYCO0O 


ARIYCOO is the DOBSS module that fetches the next control row 
from a control relation. The control relation is a set of 
the entire MCR1 or subsets of ICR, LCR, PLCR. The control 
relation and the row being accessed are identified by the 
qualf segment, relation-id, image-id, and link-id. 


ARTYCO1 


ARIYCOL is the DBSS fetch control row routine. The control 
relation and the row being accessed are identified by the 
qualf segment, relation-id, image-id, and link-id. 


ARTYCO2Z 


ARIYCO2 is a DBSS nodule that inserts control rows. 


ARIYCO3 


Entry Point: ARIYCO3 
Function: ARIYCO3 is the control row creater., ARIYC03 
searches the block enties for a header page 
that has enough space to accommodate the row 
length. If there is not enough contiguous free 
space, ARIYD14 eliminates the holes and updates 
the page header. 


Entry Point: ARIYCO31 
Function: ARIYCO31 updates the pointer, free space, and 
the slot in a header page. 
ARTYCOS 
ARIYCOS5 inserts a new Link control row in accordance with 


the information the caller supplies. 


ARIYCO6 


ARIYCO6 moves the submitted return code to CRCODE in CBASE. 
ARTYC06 also unfixes all directory block and page buffers 
and releases all short locks. 
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ARLYCO7 


ARIYCO7 is the DBSS/DC initializer. 
the beginning of wll data control calls, 
following: 

® Checks for boundary alignment 

® Checks that BEGIN WORK was issued 

® Acauvires SI-lock 
Initializes a number of YTABLE1 variables 


ARIYCO7 is called at 
ARIYCO7 does the 


ARIYCOS 


Entry Point: ARIYC08& 

Function: ARIYC08 traces for level 2 a data control call 
on DBSS entry. ARIYCO8 displays the base 
control information and auxiliary structures. 
The auxiliary structures are SCR, MCR, ICR, 
LCR,» PLCR. See ‘Control Header Information’ in 
Section 5 for details or the auxiliary 
structures. 


Entry Point: ARIYCO08)] 
Function: ARIYCO81 is a secondary entry point to trace 
for level 2 a data control call on DBSS exit. 
ARIYCO81 displays information from the same 
structures used above. 


ARTYCOS 
ARIYCO9 is the header page formatter. It formats the page 


as a header page and updates the related entry in the 
directory block. 


ARTYC1O0 


ARIYC1O updates the contrel rows according to the 
information supplied by the RDS caller. 


ARTYC1i 


ARIYC1L deletes a control rou. 
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ARTYCI3S 


ARIYC13 deletes a link control row (LCR or PLCR) of a unary 
or binary link. 


ARLYC1G 
ARIYC14 deletes an index control row (ICR). 


ARIYC15 


ARIYCIS returns space occupied by a header rov. 


ARIYC18 


ARIYC16& inserts the DBSPACE headex row (SCR) in re-do and 
deletes the row in un-do. 

ARTYCi9 

ARIYC19 inserts a table control row (MCR1) in re-do and 


deletes the row in un-do or backup. 


ARTYC2Z0 


ARIYC20 inserts an inage control row in re-do and deletes 
the row in un-do ox backup. 


ARTYC2) 


ARIYC21 inserts child and parent link control rows (LCRs and 
PLCRs) in re-do, It deletes the rows in un-do and hackup. 


ARTYC22 


ARIYC22 updates the control rows in re-do, un-do, and 
backup. 


ARLYC25 
ARIYC23 deletes the DBSPACE header row (SCR) in re-do. 


ARIYC24 


ARIYC24 deletes a table control row (MCR) and domain row 
{DCR) in re-do. 


ARIYC25 


ARIYC25 deletes an index control row (ICR) in re-do and 
inserts an index control rov in un-do or backup. 


ARIYC26 


ARIYC26 deletes child link (LCR) and parent link (PLCR) 
record rous in re-do. 


ARIYC27 


ARLIYC27 is: the trace point descriptor module for the Data 
Control component. It contains all trace point descriptors 
for all trace points contained in nodules of the Data 
Control component. The trace point numbers are in the range 
1200 through 1499. 
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DBSS DATA MANIPULATION 


ARXYDOO 


ARIYDOO performs the DBSI call to close a scan identified by 
the submitted SCANID. The SCB (scan control block) is 
invalidated (marked closed) and made available for reuse 
within the agent scan area. Scan holds automatically 
maintained by the DBSS are released. 


ARTYDO1 

ARIYDO] performs the DBSI call to connect a child row Tl 
before or after another row T2 in a link. 

ARIYDO2 

ARIYDO2 performs the DBSI call to delete a row from a table 
and (optionally) disconnect it fron the link. 

ARIYDOS 


ARTYDO3 performs the DBSSI call te disconnect a child row 
fron a link. 


ARIYDOG 
ARTYDO04 performs the DBSI call to fetch a row from a table. 


ARIYDOS 


ARTYDO5 performs the DBSI call to: 
© Insert a row in a table and (optionally) connect it in 
a link. 
@ Insert a row at the end of a list. 


ARTYDO6 
ARTYDO06 performs the DBSI call to get the next row. GET 


NEXT is the DBSY call to search and retrieve a row from a 
table or a sequential list using an opened scan. 
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ARTYDOs 


ARIYDO& perforns the DBSI call to open a scan on an index or 
a link of a table or on a table or a sequential list. Open 
scan also returns the domains of the row on which the opened 
scan is positioned as specified in the DBSI caller DOMAINS 
structure. 


ARYYDO9 


ARIYOO9 performs the DBSI calh to retrieve a parent row of a 
submitted child row in a specified binary link. 


ARIYDi0 


ARIYD1O performs the DBSI call to update the domains of a 
row of a table. 


ARIYD11 


ARIYDII is executed at the end of a DBSI call that has to 
back up. It assumes that all wpdates from the call have 
been restored (undone). It unfixes all buffers and releases 
all the short Iocks, ARIYDL1 then tests the lock flags and 
does one of the following: 


Ll. Indicates that the DBSY) call should be xvetried. 

2. Indicates that the DBSI call should not be retried. (It 
also noves the DBSS return code, that caused the DBSI 
call failure, to the caller parameter field RECODE.} 

3. Calls the LUN backup (ROLLBACK) routine to rollback the 
LUN. Then it moves the DBSS return code, that caused the 
LUW ROLLBACK, to the caller. 


ARIYDIS 


ARITYD1S checks the addressing boundaries of DOMAINS and of 
requested data fields. It returns in NDOM the number of 
domains effectively requested by the user (entries with 
FACLTH > 0). ARIYDOI3 is used for row fetch type DM calls 
(FETCH ROW, GET NEXT, GET PARENT, OPEN SCAN}. 


Licensed Material - Property of IBM 


| 
| 


ARTYD1S 


ARTYDI4 compacts an entity page by eliminating holes and 
updating the paga header, If TIO lecks are outstanding, it 
checks whether the locked holes are still held by an active 
LUM. «6 ff the locked holes are not held, ARTYD14 then 
recevers their space. 


ARTYD15 


ARTYDIS connects child row 
link identified by LIC. 


Tl before or after row T2 in the 
Tl is identified by fields: 
SEGMENT, RID, and TID in BASE. T2 is identified by fields: 
PSEGNENT, PRIO; and PTID or by SCANID in BASE. ARIYOIS 
updates the prefixes in entity space of T2 and TO. T0 is 
the other rau Tl is heing connected to. ARIYDI5 also flags 


physically dirty link SCBe whose current TIDs are Tl's left 
or vrignt tuvins. Et changes te 'ON' Ti the state of @ sean 
hates 

1. Is on link LID, and 

2a. Is 'BEFORE' T2 and QUALF = 'B'. or 

eb. Is ‘BEFORE’ Tl or ‘EOF’ 12 and QUALF = ‘A’, 


ARIYDLS also writes the Link prefix part of the log-record 
(present in LCONNECT and LINSERT) that is passed as input ir 
LOGB. 


ARITYD16 


ARIYDI6 checks whether the pages whose number is passed in 
INPAGE; was damaged. 
Return code = 0 if page was damaged 
Return code = -] if I/O error eccurred in accessing the 
list ef damaged pages 
Return code = 1 if the page was not damaged. 


ARIYD17 


ARTYDL? deletes base rows and possibly overflow roug given 
by ETIO(2:2)} and EPPTR( 1,2) in YTABLEL. ALL needed Locks 
are acquired. The created holes are marked as locked if TID 
locks are being used. It updates the rau header and VPTRMAP 


éniry. A4RTYOL7 also updates the page header and the page 
map block free space entry for the page(s). 
ARTYD1s 


ARIYDL8 disconnects the child row T 
in YLINKREC. 


from the link described 
The child row T is identified by SEGMENT and 


Licensed Material ~- Property of IBM 


TID. The link is identified by SEGMENT and LIO. ARIYO1S 
updates the prefixes in entity space of the vous connected 
te T. It also physically dirties all the link SCBs 
referring toe these rous. ARIYOL8 changes the state of the 


SCBs on link LIQ that refer to T. It then physically and 
logically dirties these SCBs. In LOGE, ARIYDIL& also 
completes tha data referring te ihe discannection of row T 
from link LID. It then moves the OBSPACE, table-10, and TID 
of the parent of row T to PSEGMENT, PRIDB, PTIO (fields in 
BASE} 

ARTYD19 

ARTYD19 formats a page as a free entity page. Then ARTYDI9 
updates the related page map entry in the directory block. 
ARTYD20 

ARIYO20 searches a page for a row belenging to the current 


table, The search hegqins with the row “Paentif ied by INTIO. 
If search arguments are wsed and the DBST call is SORT or 
GEY NEXT, then the arguments are checked. When Search 
arguments are used, searching continues until there is a 
match or until there are no mora rows on the page. 


REYD23 


ARIYD23 vetrleves.a row and its page land directory block if 
applicable} for read or write. 


ARTYO23 
For a header row (read only). 


Entry Point: 
Functions 


ARTYD231 
For a base entity row. 


Entry Point: 
Functions 


Entxy Point: ARIYD232 
Function: For an overflow entity row. 

ARTYD26 

ARTY026 fetches for read or write a header; hase, or 

overflow row and its page (and its directory bleck}. Input 

is an internally generated TIO, read/write code, and row 

type. It returns the requested page d row polnter in 

Register 2 and Register 3. TID validity is not checked. 
Program Organization 
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is an increase in the link prefix size. 


ARTYD27 


ARIYD27 builds an index key from the key information 
submitted by a DBSI caller. It checks the acceptability of 
the submitted NKEYDOM, KDOMAINS, and key-domain values, 
Then ARIYD27 assembles IKEY from them. IKEY is a YTABLEI 
substructure that describes a submitted index key to the 
DBSS Index Component. 


ARIYB28 


ARIYD28 builds an index key from a stored row using the 
index control record and the domain control record. The 
index key is assembled in IKEY. IKEY is a YTABLE] 
substructure that describes a submitted index key to the 
Index Conponent. 


RIYD29 


ARTYD29 builds an index key from the domain information 
submitted by the DBSI caller. The index key is assembled in 
IKEY. IKEY is a YTABLE! substructure that describes a 
submitted index key to the DBSS Index Component. 


ARITYD30 


ARIYD30 builds an index key from the DBSI caller submitted 
domains and the stored row using the index control record 
and the domain control record. The index key is assembled 
in IKEY. IKEY is a YTABLE1 substructure that describes a 
submitted index key to the DBSS Index Component. 


ARTYD32 


ARIYD32 obtains the MCR (master control record) and the 
table lock for the table whose RID is specified by parameter 
INRID. Note: The table carn be a sequential list. 


ARIYD33 


ARTYD33 obtains space for a data row that has to be moved. 
The row is noved because an update is not in place or there 
When the update is 
not in place, ARIYD33: 
® Moves the row prefix to the newly allocated row. 
® Moves the DBSI caller replaced fields (DOMAINS input) 
to the newly allocated row. 
® Moves the unupdated fields from the old row to the 
newly allocated row. 
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© Logs the row update. 


When there is an increase in the link prefix size, ARIYD33 
copies the old row to the newly allocated row. Then it 
increases the link prefix to the maximum size recorded in 
the table MCR (master control record). ARIYD33 then pads 
the added prefix area with binary zeros. 


RIYD34 


ARLYO3G allocates a new SCB (scan control block) in the 
agent scan table. A set of map entries at the end of the 
scan table point to each allocated SCB in the table. The 
Map entry ordinal becomes the scan-id. The scan-id is 
stored in the allocated SCB whose address is returned. 


ARTYDS8 


ARTYD38 obtains DBSPACE attributes, a required DBSPACE lock, 
and the DBSPACE header record (SCR) for an input DBSPACE. 
ARTYO38 also updates the DBSPACE data in YTABLE]. ARIYD38 
can be invoked for a public, private, or an internal 
DBSPACE. 


ARIYD3S9 


ARIYD39 obtains a TID and an entity page close to TPAGE 
where a new row of length ELTH can be inserted into a table. 
ARYYD39 is called in INSERT to obtain a base TID (TIDTYPE = 
1}. ARIYO39 is called in UPDATE, CONNECT, INSERT (LID # 0) 
to obtain an overflow TID (TIDTYPE = 2). 

The selected page and TID are locked if page and/or TID 
locking are required. The selected page is not updated 
(other than possible page compacting) except where a nev 
VPTRMAP slot is needed for the selected TID (the VPTRMAP 
Slot is set to 0). 

When searching for a page to select for the new row, the 
DBSPACE free space percentage is used to select the page. 
This is used so the insert will not exceed the free space 
percentage limit. 


ARTYDGO 


ARTYD4O0 accepts a DBSI caller provided TID» a read/write 
code, and a TID type (type of header row or base entity row) 
as input. ARIYDGO returns the corresponding page and row 
pointers in Register 2 and Register 3. It also saves the 
fixed buffer pointers in YTABLE1. TID validity is checked. 
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ARIYD41 


ARIYD41 obtains a user or system share mode lock on a row or 
a page. 


Entry Points ARIYD41 
Function: ARIYD41 obtains a user share mode lock on a row 
(or its page) if the DBSPACE and table lock 
states are less than share mode. 


Entry Point: ARIYD411 
Functions ARIYD411 obtains a system share mode lock on a 
rou (or its page) if required. 


ARTYD43 


ARIYD43 copies BASE (0BSI call linkage parameter block) into 
YTABLE1, It also checks that a BEGIN WORK (LUW) was issued. 
ARTYD43 acquires a OB8SI-lock, initializes a number of 
YTABLE1 variables, and clears the general feedback fields in 
BASE. It is called at the beginning of all data 
manipulation calls. 


ARTYD44 


ARTYO44 updates the scan table caused by a CDELETE; a 
CINSERT;, or the release of an internal DBSPACE. ARIYD44 can 
he called in 6 circumstances: 


1. Deletion of a DBSPACE (caused by CDELETE of an SCR}. All 
scans open on objects in the DBSPACE are closed. All 
scans for links having a child and/or a parent in DBSPACE 
are closed. All link scans are physically dirtied. 

- Deletion of a table (caused by CDELETE of an MCR), All 
the scans open on objects in the table are closed. All 
scans for links having the table as a parent or a child 
are closed. All the link scans are physically dirtied. 

3. Deletion of a link (caused by a CDELETE of a link). All 

the link scans for that link are closed, All link scans 
are physically dirtied. 

&. Deletion of an index (caused by a CDELETE of an ICR). 

All the index scans on that index sre closed, 

5. Insertion of a link (caused by a CINSERT of a link}. All 

the link scans are physically dirtied. 

6. Release of an internal DBSPACE. 


tT 


ARIYDS5 


ARIYD4S checks that all DBSI caller requested domains are 
included in the domains of the current index. ARIYD45 then 


moves the requested domains fron the index key to the DBSI 
caller. 


ARIYDG6 


ARIYD46 validates the DBSI caller submitted key domains 
information and assembles (in IKEY in YTABLE1) the index key 
value to be submitted to the Index component. ARIYD46 
computes the lock requirements for the index conponent from 
the DBSPACE, table; and gross lock requirement lock states. 
ARIYD46 also retrieves the TID of the row that matches the 
assembled index key and the DBSI caller submitted ICOMP 
value from the Index component. 


ARIYD47 


ARIYD47 acquires the page and TID locks for an entity row 
INTID in state INSTATE for a duration DURCODES in YTABLE1. 


R LT} 


ARIYD4S is called by CDELETE (control row delete) to perform 
one of the following operations: 
© Drop all the rows of a table from a DBSPACE entity 
space. 
® Erase (and compress) the child and/or parent TID 
pointers of the link prefix from the child and/or 
parent rows in the link that is heing dropped. 


ARIYDG9 


ARIYD¢9 moves the requested row field values (domains! from 
the stored row to DM caller DOMAINS parameter structure. If 
a domain is longer than the caller provided field for the 
domain, then the domain is moved in but it is truncated. If 
a requested field is not stored in the row, then a null 
character string is returned to the caller. The caller 
specifies which domains are to be retrieved. 


ARTYD50 


ARTYD50 searches the rows in the present OBSPACE looking for 
a row belonging to the current table. If search arguments 
(DM call structure SARGS) are present, they become criteria 
in selecting the row- The search is forwards starting with 
the row after the one identified by the input parameter 
INTID. 


ARIYD52 


If the input parameter INCODE is: 
'H’ - ARIYD52 unfixes the DBSPACE header directory and 
page buffers. 
‘E’ = ARIYD52 unfixes the entity page buffers and their 
directory buffers. 


ARXYYDS53 
ARIYD53 


ARIYD53 unfixes the DBSPACE header directory 
and page buffers. 


Entry Point: 
Function: 


ARIYD531 
ARIYD531 unfixes the entity page huffers and 
their directory buffers. 


Entry Point: 
Function: 


ARTYD55 


ARIYD5S performs the cleanup functions for OM and Sort 
operations. 


ARTYD55 

ARTYDS55 unfixes the DBSPACE header directory 
and page buffers and performs the functions 
listed under entry point ARIYD551. 


Entry Point: 
Function: 


Entry Point: ARIYD551 
Function: ARIYD551 
® Unfixes the entity page buffers and their directory 
buffers. 
® Unfixes the first index page buffer and its 
directory buffer. 
© Releases all short term locks acquired during 
execution of the DM or Sort DBSI cali. 
® Moves YTABLEL copy of the DBSI caller str:.cture BASE 
to the caller copy of BASE if the operation is not 
SORT and the DBSS return code is ok or is a warning. 
© Stores the DBSS return code in the DBSY caller 
structure BASE (field URCODE) if the operation is 
not SORT. 


ARIYD57 


ARIYO57 checks the validity of the DBSI caller search 
arguments (SARGS structure). ARIYD57 checks for: 

© Number of search arguments specified. 

* Valid domain number in each search argument. 

® Valid domain length in each search argument. 
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® Valid domain comparison operator in each search 
argunent. 

® Valid Boolean operator in each search argument except 
the last one. 


ARTYD58 


ARIYD58& checks whether the submitted ‘search clause' is 
satisfied by the row pointed to by Register 3. The ‘search 
clause’ refers to those search arguments specified in the 
structure SARGS. The specified search arguments are 
compared to the corresponding domains in the row. 


ARIYD5$ 


ARIYDS9 checks for data manipulation calls that a SCB (scan 
control block), identified by SCANID from BASE, is legal and 
in ‘on’ state (SCB must be open, ‘on’, and not list type). 
If it is open and ‘'on', the DBSPACE ID and table ID are 
moved to the copy of BASE in YTABLE1. If the SCB is not 
list type, the row ID is moved to the copy of BASE in 
YTABLEL. The SCB pointer is also inserted into the copy of 
BASE in YTABLEL. If the SCB is flagged dirty, a warning 
return code is given. 


ARIYDB60 


ARIYD66 checks for data manipulation link calls that a SCB 
(scan control biock), identified by SCANIO in YTABLEI, is 
legal and ‘on’ for a row in a table (SCB must be open,» in 
‘on’ state, not be list type). If check succeeds, the row 
still exists. It then moves the DBSPACE I0, table ID, and 
row IG from the SCB into YTABLEL. The SCB pointer is also 
inserted into YTABLE!. If the SCB is flagged ‘dirty', a 
warning return code is given. 


ARIYD61 

ARIYD61 compacts the scan table hy eliminating holes (closed 
SCBs} and updating the scan table header. The scan table is 
located in the 'SCANS' area pointed to by YTISCANP in 


YTABLEI. The format of the scan table (SCANS) is similar to 
a data page. It contains a: 
Header ~ Used when allocating new entries or 


maintaining the scan table. 

Space for SCBs. 

Map Entries - Located at the end of the scan table. A 
set of pointers to the SCBs within the scan 
table. The ordinal of the map entry 
corresponds to the SCANID. 
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ARTYD62 


ARIYD62 fetches a row fron the data base for data 
manipulation ‘read only’ calls with lock protocol specified 
in the LOCKMODE parameter. Pointers to the retrieved page 
and row are returned in Register 2 and Register 3, If the 
base row is a pointer row, the overflow rou is retrieved and 
returned to the caller. The lock protocol is analysed. 

Then the proper locks are requested so that the row can he 
fetched, 


ARTYD63 


ARIYO63 updates the free-space entry in the directory block 
corresponding to the page pointed to by PAGEPTR. 


ARIYD64 


ARIYD64 fetches a row from the data base for data 
manipulation UPDATE ox DELETE calls. The current lock state 
is analyzed to determine if any locking is required for the 
update om delete. If yes» the proper entity locks are 
requested. 


ARIYD65 


ARIYD65 connects row T in REDO or disconnects row T in UNDO 
and ROLLBACK using the logged information. 


ARIYD66 


ARIYD66 rve-deletes row T for REDO (recovers delete 
operation). If the DELETE was with DISCONNECT, ARIYD66 
re-disconnects any parent and twin links. ARIYD66 inserts 
row T for ROLLBACK and UNDO (recovers delete operation). If 
DELETE was with DISCONNECT, ARIYD66 connects row T to any 
parent and twin links. 


ARTYD67 


ARTYD67 disconnects row T in REDO or reconnects row T in 
UNDO and ROLLBACK using the legged information. {Recovers 
disconnect operation. ) 


ARIYD68 


ARTYD68 re-inserts row T for REDO (recovers insert 
operation). If INSERT was with CONNECT, ARIYD68 re-connects 
any parent and twin links. ARIYD68& deletes row T for 
ROLLBACK and UNDO (recovers insert operation). Tf INSERT 
was with CONNECT, ARTYO68 disconnects row T from any parent 
and twin links. 


ARTYD69 


Tf REDG> ARITYD69 updates the data row using the logved 
information. If UNOQO or ROLLBACK, ARIYD6? 'un-updates' the 
data row using the logged information. Any indexes affected 
by the update/wun-update are updated to reflect the 
update/un-update. (Recovers update row cperation. } 


ARIYD70 


ARIYD70 is used in REDO, UNDO, and ROLLBACK. It compacts a 
page pointed to by PAGEPT. When ARIYO70 is called (in 
ROLLBACK) with the TID locks heing used (EPAGELKU = 'P'), it 
recovers holes that are unlocked or not held by any active 
LUW. Also, ARIYD70 recovers exactly one locked hole of 
length LTH and slot-fD IDN in the page. It does not recover 
the hole if LTH is not equal to the hole length. If after 
compacting, contiguous free space is less than LTH, 
compacting is done again recovering all locked holes. When 
called with EPAGELKU # 'P', it recovers all the holes. In 
addition to holes, surplus VPTRMAP entries are converted to 
free space. 


YD7 


ARIYD71 connects or disconnects a row from parent and/or 
twin links during REDO, UNDO, or ROLLBACK of INSERT or 
CONNECT data row operation (i.e. when called hy ARTYDOS for 
an INSERT UNDO or REDO or by ARIYD65 for a CONNECT UNDO or 
REDO) by updating the link prefixes of the parent and twin 
rows connected (DISCONNECT) or to be connected (CONNECT) to 
row T. 


ARIYD72 


ARTYD72 disconnects or connects a row T From parent and/or 
twin links during REDO or UNDO/ROLLBACK of DELETE or 
DISCONNECT data row cperation (i.e. when called by ARIYD66 
For a DELETEU (DELETE UNDO) or DELETE REDO or when called by 
ARLYD67 for a DISCONNU (DISCONNECT UNDO) or DISCONNECT 
REOO). This is done by updating the link prefixes of the 


parent and tuin rows disconnected (CONNECT) or to be 
disconnected (DISCONNECT) from row T. 


ARIYD73 


ARIYD73 changes the size of a link-prefix of a row for 
ARTYD68 for an INSERTU (INSERT UNDO/REDO) or for ARIYD6S for 
a CONNECTU (CONNECT UNDO/REDO) call. In REDO, the link 
prefix is expanded and padded with O's. In UNDO/ROLLBACK, 
the link-prefix is shrunk. 


ARTYD74 


ARIYD74 initializes YTABLEIU in recovery calls. It acquires 
a backup lock if any request for a page lock is anticipated. 
If any index has to be updated, it retrieves SCR, MCR, and 
OCR rows and stores pointers (and rows for SCR and MCR) in 
YTABLE!. 


ARIYD75 


ARIYD75 inserts or deletes all key entries in all indexes 
that are tied to a data row being inserted or deleted as a 
result of recovery REDO, UNDO, or ROLLBACK. The caller 
identifies the row and whether deleting or inserting. 


ARIYD76 


ARIYD76 unfixes the last entity page and block buffers (if 
they exist) for recovery. 


ARIYD77 


ARIYD77 retrieves and partially updates the non-index page 
to be updated during recovery operations. At entry, the I0 
of the row to be processed in the page is supplied in INTID. 
INLTH describes the nature of the required operation: 

INLTH # 2 causes the row to he deleted. A complete page 
and block update is then performed. 

INLTH # 1 causes the row to be shortened. All page and 
block processing is done with the exception of entering 
the TID-PTR in the new pointer rou. 

INLTH = 0 causes the page to be prepared for update. No 
page or block processing is done. 

INLTH > 0 causes the page to be prepared for insert. All 
page and block processing is done with the exception of 
the actual insertion of the rou. 
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ARIYDS6 


ARIYD80 is the trace point descriptor module for the Data 
Manipulation component. It contains all trace point 
descriptors for all trace points contained in modules of the 
Data Manipulation OBSS component. All trace point 
descriptors in this module have trace point numbers in the 
range 1500 through 1999. 


ARTYD3 4 


ARIYD81L provides Level 2 tracing for Data Manipulaticn and 
Lock component DBSi cails for OBSS entry and exit. ARIYDE61 
is the entry point to trace a Data Manipulation call for 
DBSS entry. It displays the BASE control information and, 
depending on the call; DOMAINS, KDOMAINS, and SARGS. 
ARTYDSIL is & secondary entry point to trace a Data 
Manipulation call for DBSS exit, It displays the BASE 
control information and, depending on the call, DOMAINS. 
ARTYD812 and ARIYD813 are secondary entry points to trace 
Lock and Uniock for DBSS entry and exit. They display 
LBASE. 


ARLYD87 


Entry Point: 
Function: 


ARIYDS7 
ARIYD87 writes the scan table to the system log 
(if LOGMODE is yes, otherwise it does nothing). 


ARIYD871 
ARIYO8&71 computes the length of the scan-area 
and returns it in the LENG parameter. 


Entry Point: 
Functions 


ARTYD872 

ARTYD872 copies scans from the log into the 
scan table (restores the scan table from the 
log}. 


Entry Points 
Function: 
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DBSS TRACE/MISCELLANEOUS SERVICES 


ARIYEO} 
ARTYEO! is the trace DBSS opcode entry and exit module. 


Entry Point: ARIYEO) 
Function: Use ARIYEO] when ARIYMO0O is called (DBSS opcode 
call) and DBSS entry tracing is active for the 
agent structure. 


Entry Point: ARIYEOi2 
Function: Use ARTYEQ11 when ARTYMOO is returning (DBS5 
opcode call completion) and DBSS exit tracing 
is active for the agent structure. 


For DBSS entry: 
°* If the entry trace level is 2 and there is a DBSS entry 
trace routine for the opcode, ARIYEO] is called to 
provide trace output. 
® If the entry trace level is 1 or there is no DBSS entry 
trace routine for the opcode, this module executes a 
trace point that displays: 
- BDBSS ENTRY: 
- L_OPCODE = ‘'opcode~name’ 


For DBSS exit: 

e If the exit trace level is 2 and there is a DBSS exit 
trace routine for the opcode, ARIYEO] is called to 
provide trace output. 

* If the exit trace level is 1 or there is no DBSS exit 
trace routine for the opcode, this module executes a 
trace point that displays: 

~ DBSS EXiT: 
- L_OPCODE = ‘opcode-name* 
~ RETCODE = Return code value 


ARTYEO2 


ARIYEO2 accepts as input a character string message and 0 to 
n variables that are to he formatted and displayed to the 
local/renote operator ox display device, ARIYEQ2 is invoked 
by the SHOW or YSHOW macro. 


ARTYEO4 


ARITYEOS scans a 80 character texminal or card input line 
looking for non-blank character strings. For each string» 
up to eight characters are placed into a token array (first 
string in first array element, second string in second array 
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element, etc.). The number of strings found is counted and 
returned. The token array is initialized to all blanks. 
Encountering a string longer than eight characters causes 
processing to terminate. It terminates vith the first eight 
characters of the long string in the token array as the last 
token and an error return code. Paranetex NTOKENS 
identifies the token array entry in error. 


ARIYEOS 


ARITYEOS converts an input character string of length n into 
its hex representation (an output character string of length 
2n). 


ARIYEO6 


ARIYEO6 converts a hex character string of length zero to 
eight (terminated by a blank character if less than 8) to a 
pointer(32) binary value. 


ARIYEO7 


ARIYEO7 converts a fixed(31) signed binary integer to an 
unpacked zoned decimal string. The first byte is blank if 
the number is positive. The first byte contains a minus 
sign if the number is negative. Leading zeros are not 
qenerated. The length of the string (including sign byte? 
i. xveturned. 


ARTYEOS 


ARIYEOS converts an unsigned, unpacked decimal character 
string to a fullword binary integer. The decimal string can 
be zero to eight charcters long. if less than eight 
characters long, the string must be terminated by a blank 
character. 


ARTYEOS 


ARIYEO9 converts a decimal character string to a binary 
halfword. The character string can optionally have a plus 
©. a minus sign as a prefix (default is plus if omitted). It 
alxo has zero to six (seven if sign omitted) decimal digits 
terainated by a blank character. 
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ARTYE10 


ARIYE10 converts a fixed(15) signed binary integer to an 
unpacked zoned decimal string. The first byte is blank if 
the number is positive. The first byte contains a minus 
Sign if the number is negative. Leading zeros are not 
generated. The length of the string (including sign byte) is 
returned. 


ARTYE11 


ARIYEL! converts a hex character string of length zero to 
eight (terminated by a blank character if less than eight) 
te a fixed(16) binary value. 


ARIYE13 


ARIYE13 is the DBSS/DSC line display routine module. It 
displays a line of data (or a SQL/DS message}. 


ARIYE13 

ARIYE13 displays a line of data that is not a 
SQL/DS nessage, for example, SQL/DS command 
output. A flag (DSCOMODE}) in the DSCAREA table 
of SQL/DS directs the module to display the 
line locally or to send the line to the ISQL 
linkage for display on the ISQL terminal (this 
is for support of SQL/DS commands entered from 
IsQqL). 


Entry Point: 
Function: 


ARIYE131 

ARIYE131 is used exclusively by the BDBSS/DSC 
mesSage processor for displaying SQL/DS 
messages. As with the main entry point above, 
output lines are directed to either local 
output or to ISQL for ISQL terminal output. 
The logic is such, however, that during SQL/DS 
operator command processing, only messages 
originating from the operator command linkage 
and processing modules go to the ISQL linkage. 
All others go to local output. 


Entry Point: 
Function: 


SQL/0S has an initialization parameter DSPLYDEV that directs 
all output Lines routed to this module to be displayed on 
either the system print file or the operator's console or to 
both, A routing flay in the DS2CVT indicates whether the 
line display is to be controlled by the DSPLYDEV parameter 
value. If the flag is on, the line and the routing code is 
passed to module entry ARISYSDH for display on the specified 
output device(s)/file(s), This routing function is active 
only during SQL/DS initialization and termination. Thus it 
does not conflict with FSQL routing since SQL/DS operator 
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commands cannot be entered during initialization or 
termination. When the DSPLYDEV routing function is not 
active, lecal output is routed to the operator display 
module (ARIYMS50). 


Note: In VM, the DSPLYDEV parameter is ignored, causing this 
output to be displayed only on the virtual machine 
console. 


ARIYE?4 


ARTYE14 is the DBSS trace services routine. 


ARTYE14 

ARIYEL4 causes trace point data to be collected 
and vritten to the SQL/DS trace output file. 
This function is invoked by the TRACE macro 
with the LOCK option omitted. 


Entry Point: 
Function: 


ARTYE141 

ARIYEI41 causes trace point data to be 
collected and written to the SQL/DS trace 
output file. It also leaves the trace output 
file ‘locked’ (see below} so that the caller, 
itself, can create additional trace point data 
records and cause them to be written to the 
trace output file. This function is invoked by 
the TRACE macro with the LOCK option specified. 


Entry Point: 
Function: 


ARTYE142 

ARIYE142 causes the trace output file to be 
‘unlocked’. This function is invoked via the 
TRACE macro with the UNLOCK option specified. 


Entry Point: 
Function: 


ARTYE143 

ARIYE143 causes caller-created trace point data 
records to be written to the trace output file. 
See entry point ARIYE141 above. This function 
is invoked via a call with the address of the 
record as the parameter. 


Entry Point: 
Functions: 


On normal entry, entry point ARIYE14 and ARIYE141, tests are 
made to determine if trace is: 

® Active at all 

® Active for the current user~-ID 

® Active for the invoking subcomponent or function 
If trace is not active, return with no output. 


A test is made to determine if a snap dump vas requested 
(via the TRACE command) for this trace point. If it was, 
the SQL/DS partition ox virtual machine snap dump routine is 
called and the snap dump request is disabled (dump first 
time only}. 
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ARIYE1S 


ARIYEI5 is the 0B5S trace point descriptor nodule for the 
DBSS ENTRY and DBSS EXIT trace points. It contains the 
trace point descriptors for nodules ARIYMO0O0 (DBSS module 
called by RDS), ARIYEO] (module called by ARIYMO0 when DBSS 
ENTRY or DBSS EXIT tracing is active), and all nodules 
called by module ARIYEO] (for level two tracing) to create 
opcode specific trace output for DBSS ENTRY and DBSS EXIT 
tracing. 


All trace point descriptors in this module have trace point 
numbers in the range 0000 through 0299, 

@ DBSS ENTRY trace points are 0000 through 0149 

® DBSS EXIT trace points are O150 through 0299 


ARTYE16 


ARTYE16 converts a fixed(31) signed binary integer to a 
printable hexadecinal. string. leading zeros are not 
generated (thus a binary one produces a one byte string with 
the character one). If the binary input is zero» the output 
is a one byte string with the character zero. 


ARIYES7 


ARTYE37 processes the SHOW SYSTEM operator command. It 
displays the date and time. Then it invokes other show 
nodules to obtain their show output as follows: 

SHOW DBEXTENT Module 

SHOW LOG Module 

SHOW ACTIVE Module 

SHOW LOCK Module 
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BBSS STORAGE AND 170 


ARITYI00 
ARLYIOO acquires an internal DBSPACE (type 5). 


Entry Point: ARIYIOOL 
Function: ARIYIOO] is used by the Sort component. 


ARIYIO02 

ARIYO0Z releases an internal DBSPACE, that is, 
it empties it, closes it, unallocates it, 
releases the lock and invalidates scans in it. 


Entxy Point: 
Function: 


ARIYIOOS 
ARIYICO3 is used by the Sort component. 


Entry Point: 
Function: 


ARTY1004 
ARTYIOO4 is used by the Transaction (work) 
component. 


Entry Point: 
Functions 


ARTYIO?T - VSE System-Dependent Module 


ARTYIOL is considered as part of the SHOW module set, thus 
message IDs have net been added. The contents of the ACB & 
RPL are displayed on the system console. If any errors 
occur from the SHOWCB or TESTCB VSAM macros, then the SQL/DS 
termination routine (ARIYMNO2) is called. 


ARTYIO2 


ARIYIO2 displays the number of HEADER, DATA, and INDEX pages 
that are defined and are occupied for a given DBSPACE. It 
also displays the percent of free space of the occupied 
pages (SHOW DBSPACE operator command). 


ARIYIO3 


ARIYIO3 traces DBSPACE operation DBSI (ARIYMO00) calls before 
entry and after exit and returns the opcode, DBSPACE number 
and return code. 


ARIYIOG 


ARIYIOS links to supporting routines for the SHOW DBEXTENT; 
SHOW DBCONFIG, SHOW DBSPACE, and SHOW BUFFERS operator 
commands. 
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|] ARTYTOS 


ARIYIOS is called to free all temporary DBSPACEs acquired by 
the LUN. Then» ARIYIOS5 reads each log record of the LUW, 
Its process depends on the record type as follous: 

° If the record represents an update to the data base 
ARIYLO? is) called. Based on the type of update, 
ARIYLO7? calls the appropriate DBSS module to undo the 
update to the data base. 

© If the record is a Prepare-to-Commit type there is no 
process because the data base was not updated when the 
Prepare~to-Commit record was written 

® If the record is a begin work or a save work, ARIYT26 
is called to free all locks up to the save point, to 
reset the USERPROB flags in the TPMAP (if the undo 
process is complete), to reset the scans and to 
deternine if the undo process should continue. 

e¢ If the record is a begin work type, ARIYT20 is called 
to reset the USERPROB flags in TPMAP, to free all locks 
of the LUM, to write the abort log record for the LUW, 
and to clear work information in YTABLE] and the TPMAP 
entry. 


After the undo process completes; ARIYTI9 calls ARIYT22 to 
clear the USERPROB flags and get the reason for the undo. 
Then, ARIYT19 clears some fields in the TPNAP entry and 
YTABLE1, forces a checkpoint if the LUW was aborted because 
of log full,» and returns to the caller with the reason that 
the undo took place. 


ARTYIO6 


ARIYIO6 communicates with ARIYIO7 for reading and writing a 
specific block from ox to the directory, ARIYI06 is used to 
access all system blocks and page map table blocks for 
DBSPACEs. 


ARIYIO7 


| ARIYIO7 is the I/O routine for all data base activity to 
directory, log(s), or DBEXTENTs. 


the 


ARIYIOS 


ARITYIO9 displays information about the occupied page and 
directory block buffers (SHOW BUFFERS operator command). 
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ARIYI10 


ARIYI10 empties DBSPACE by releasing all its pages (for DROP 
DBSPACE}, 


ARTYI12 


ARTYI12 finds the first one bit in a string of bits pointed 
to by Register 1 whose length is in Register 2. A mask 
contained in Register 0 is applied to the first byte of the 
string so those bits are not included in the scan. Returned 
to the caller is the address of the byte containing a one 
bit, or zero if no bits are found; in Register 1; the index 
of the first one bit in the string hase zero in Register 15; 
and a mask for clearing the one bit in the byte referenced 
by Register 1 in Register C. 


ARTYIN3 
ARIYI13 initializes YTABLES with device constants. 


ARIYTi6 


Entry Point: ARIYI14 
Function: ARIYI14 gets a page map table block from the 
directory. Then ARIYI14 puts the table block 
into storage. 


ARTYT14) 

ARIYII4 gets a page map table block from the 
directory. Then ARIYI14 puts the table into 
storage (used inside the I/O component) with a 
DBSPACE number specified. 


Entry Point: 
Function: 


ARITYI142 

ARIYI142 records the modification of a 
directory block that is already in the buffer 
at BPTR. 


Entry Point: 
Function: 


ARIYI15 


ARIYII5 displays information pertaining to storage pools for 
which is hacked by OBEXTENTs (for SHOW DBEXTENT and SHOM 
SYSTEM operator commands). 
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AREYII7 


ARIYII7 lecates a free page or directery block buffer by 
scanning the buffer controls from the most recently used to 
the end of the buffer chain, testing the fix count for zero. 
When one is found it is made the most recently used, the 
address of the buffer is placed in Register 2, and the fix 
count is set to one. 


ARTYI19 


ARIYII9 gats a page into real storage for access. 


ARTYI20 


ARIYI20 allocates a page slot from the storage pool to which 
the DBSPACE belongs. 


ARTYI21 


ARIYI21 initializes the buffers and tables needed hy the 
DBSS Storage (I/0) component. 


ARTYI2Z22 - VM System-Dependent Module 


ARIYI22 allocates all the VMCBLOCKs (device and agents) for 
the DBEXTENTs, log(s) and directory. It also allocates the 
VMNCBLOCKs {device and agents), and the VMQ for the vector 
table. The directory is opened in this routine. ARIYI22 
calls ARIYI23 (VM) to open all the other data base files 


| (DBEXTENTs, log(s)). 


ARITYI2Z2 - VSE System-Dependent Module 

ARTYI22 generates the ACBs and RPLs for the DBEXTENTs; 
log(s) and directory. The directory is open in this 
routine. 

ARIYI235 - vm System-Dependent Module 

ARIYI23 opens ail the DBEXTENTS and logs. 

ARIYI23 - VSE Systen-Dependent Module 

ARIYI23 generates the ACB (on first call - function code = 
A) and the RPL for the DBEXTENTs and the log(s}. For 
subsequent calls (FUNCTION code = Rf) just the RPL is 


generated for the agant structure being created. 
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ARIYI26 


ARTYI24 retrieves pointers to the last system checkpoint 
from the master record for the Log component. 


ARIYI26 


ARIYI26 makes DBSPACES available for processing. This 
routine is called Yor the purpose of opening all synchrenous 
OBSPACEs at initiaiization; or opening all synchronous 
DBSPACES after a rollback in nolog mode,» or opening 
temporary OBSPACE after it has been emptied. 


ARTYI293 


ARIYI29 is the logical page access module. 


ARIYIS) 


ARIYI31 is a procedure to read/write storage management 
control blocks (from/to the directory file). 


ARTYI311 
ARIYI311 reads the data base control block. 


Entry Point; 
Function: 


ARTYI312 
ARIYI312 reads and writes master record. 


Entry Point: 
Function: 


ARIYI313 
ARIYI313 reads or vrites the copy of YTABLE2 
indicated by byte YT2BYTE. 


Entry Point: 
Function: 


ARIYI314¢ 

ARTYI314 reads or writes block alternation 
vector from block pointed to by BLKALT in the 
master record. 


Entry Point: 
Function: 


Entry Point: ARIYI315 
Function: ARITYI315 reads or vrites a summary bit map fron 
block indicated by MBYTE in the master record. 
ARYYI36 


ARIYI36 is involved during system checkpoint. 


ARTYI36 
ARIYI36 is for saving asynchronous DBSPACEs> 
which are not supported by the RDS, 


Entry Point: 
Function: 


Entry Point: ARIYI361 
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Function: ARIYI361 is for closing asynchronous DBSPACEs, 


which are not supported by the RDS. 


ARTY1I362 
ARIYI362 is 
processing > 
DBSPACEs. 


Entry Point: 
Function; invoked by empty DBSPACE 


COMMIT to release temporary 


ARTYI363 
ARIYI363 is 
processing» 
DBSPACEs. 


ry Point: 
Function: invoked by empty DBSPACE 


ABORT WORK to release temporary 


ARIYI364% 
ARTYI364 is invoked by empty DBSPACE 
processing, SORT to release temporary DBSPACEs. 


Entry Points 
Functions 


ARIYI365 

ARTYI365 is called by system checkpoint. 
Checkpoint occurs but, DBSPACEs are still open 
when complete. 


Entry Point: 
Function: 


ARIYI366 
ARIYI366 is called by system checkpoint. 
DBSPACEs are closed after completion. 


Entry Point: 
Function: 


ARIYIG1 


ARIYIS¢] obtains the DBSPACE lock for the DBSPACE specified 
in the input parameter INSEGM if input parameter K is 
non-zero, If input parameter K is zero, then the DBSI latch 
is obtained by calling ARIYKO8 (RSSENTER) and INSEGM is 
ignored. 


ARTYI42 


ARIYIG2 fetches the attribute 
input paramter SN and returns 
parameter B. 


for the specified OBSPACE in 
the byte value in input 


ARTYI623 
ARIYI421 veturns 
DBSPACE obtained 
parameter NPG. 


Entry Points 
Function: the number of pages in the 


from the SEGTABLE in input 


ARIYI4G22 

ARTYIG22 returns the number of pages and the 
storage pool number form the SEGTABLE in input 
parameter pool. 


Entry Point: 
Function: 


Entry Point: ARLYI423 


Licensed Material - Property of 


IBM 


Function: ARIYI423 is a special antry point for the log 
component which returns the number of pages in 
the log dataset in the input parameter NPG. 


ARIYIGS5 


ARIYIGS unchains the specified buffer (input paraneter 
PTRBUFC) from the HASH table (input parameter THASHP). 


ARITYIG6 


ARIYI46 decrements the fix count in the buffer contents 
entry associated with the buffer pointed to by input 
parameter P. 


ARIYIG7 


ARTYIS7 is called during SQL/0S SQLEND/SHUTDOWN process or 
during abnormal termination, to close the directory, logis), 
and all DBEXTENTs files. 


ARIYIG8 


ARIVI48 is a special routine for the log component to 
communicate with the I/O component for the purpose of 
writing a page of log data to the log data set. 


ARIYIG3 


ARIYI469 reads a log page specified by input parameter PAGENO 
into a buffer pointed to by input parameter BUFFADDR. 


ARTYI50 - VSE System-Dependent Module 


ARIYI50 is provided to VSAM to give control to after the 
EXCP for the I/0 operation has been issued and before the 
wait for I/O completion. ARIYI50 tests to see if the 1/0 
has completed and if not, puts the SQL/DS task ( AGENT} in an 
I/O wait condition. When the I/O completes, control is 
given to this routine who returns control back to VSAM. 


ARTYI51 


ARIYI51 is called at initialization and after every 
checkpoint to see if any storage pool has less free pages 
than the cushion. The cushion = the total number of pages 
in the pool * YSOSLEV / 100. 


ARTYI52 


ARITYI52 is the trace point descriptor module for the Storage 
(1/0) component. It contains all trace point descriptors 
for all trace points contained in modules of the DSSS 
Storage (1/0) component. This module contains all static 
data declares required to describe and process trace points 
in the range 2000 through 2299. 
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DBSS LOCK 


RIYKOO 
ARIYKOO releases access to the designated lock (gate). If 
the gate is held in medium duration, then the count is 


decremented and the gate is not released unless the nev 
count is zero. Long locks are not released by this module. 


ARIYKO1 


ARIYKO1 €YLOCK) is the DBSI call to lock a DBSPACE, table, 
or @& row. 


ARTYKO2 


ARIYKO2 releases a designated named lock owned by the 
caller. 


ARTYKO3 


ARIYKO3 determines if the named gate is held by anyone. 


ARTYKO4 


ARIYK04 waits for access to X~-LATCH. 


ARIYKOS5 


ARTYKO5 releases access to X-LATCH and post all waiters for 
Et, 


ARTYKO6 


ARTYK06 waits for access to a S~LATCH mode in either *S* for 
share or 'X' for exclusive. 


ARTYKO? 


ARIYKO7 gives up access to a S-LATCH and if a S-LATCH is now 
free, ARIYKO7 posts all waiting requestors. 
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ARTYKOS 


ARTYKOS raises the DBSS wait flag and calls ARIYK18 which 
causes a wait, if the identified agent is stopped (that is, 
its RSSSTOP (in TPMAP entry) bit is on). Corresponding post 
will be done by ARIYK11. ARIYKOS turns on INRSS (in TPMAP 
entry), the bit in the STATE byte of this LUW which 
indicates that this LUW is inside the DBSS. 


ARIYKOS 


ARIYKO9 marks the identified agent as not inside the DBSS 
and posts any agent which is waiting to stop the identified 
agent. 


ARIYK10 


ARIYK1O is called only by ARIYLO8& the Checkpoint Routine. 
Its purpose is to cause all agents to leave the DBSS. Priorx 
to this call to ARIYK10, ARIYLO8 called ARIYKOS which turned 
on the INRSS bit in the state byte of ARIYLO8. 


ARIYK11 


ARIYK11 turns off the stopped flag and resets the Stopper ID 
of all LUWs except the callex; so that they can continue 
executing the DBSS. Posts any agent whose LUW is in a DBSI 
wait. 


ARIYK12 


ARIYK1Z looks for a deadlock cycle and chooses a victim in 
each one that is found. Cycles are detected by a recursive 
search of the lockwait graph. 


ARIYKi8 


ARIYK18 waits to be posted and returns immediately if post 
waiting. ARIYKI8& then sets LUW's state bit according to 
WAITTYPE and calls ARICOWT, Dispatcher Wait Routine. ARIYK18& 
clears WAITTYPE from the LUN's state bit. 
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ARIYK13 
ARTYKI9 is the Lock Manager Post routine. 


ARTYK21 


ARIYK21 resets a lock; clears LRBKEEP bit, sets LRB duration 
to long, and changes modes: (SIX | S | X) to S and IX | IS 
to IS; unless it is a lock for a temporary DBSPACE. 


ARIYK22 


ARIYK22 is called when the agent or SQL/DS has run out of 
lock request blocks (LRBs). An attempt is made to salvage 
and to consolidate LRBs owned by the caller by finding the 
DBSPACE containing the most locks. Then» the DBSPACE is 
acquired in a mode which covers all these locks and 
subsidiary locks are released. Then; the lock cache in 
YTABLE! is edited and if the requested lock is not 
subsidiary to the DBSPACE, it requests the lock that caused 
all the trouble. The return code is positive and gives the 
granted mode or is negative and caller should back up. 


ARITYK25 

ARIYK23 requests that the named gate be kept beyond LUW 
commit and sets the keep bit on in the requestor's LRB for 
this lock. 

ART YK26 


ARIYK24 sets the keep bit on all locks of a caller. ARIYK24 
is used to keep all locks beyond LUW commit. 


ARTYK25 

ARTYK25 clears the keep bit on any locks and unlocks any 
unkept locks except the 0B lock. ARIYK25 then sets duration 
of kept locks to long and downgrades mode of kept locks X | 


SIX | S to S and IX | IS to IS. ARIYK25 does not downgrade 
DBLOCK or temporary DBSPACE locks. 


ARIYK26 


ARIYK26 sets the keep bit on all locks of temporary DBSPACEs 
held by the user. 
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ARIYK27 


ARIYK27 clears the keep bit on any locks. ARIYK27 is used to 
back out of a commit call and it undoes any ARIYK29 or 
ARIYK23 calls. 


ARIYK28 
ARIYK28 is the DBSI call to release a lock on a row. 


ARIYK37 


ARIYK37 displays lock status at the request of the SHOW LOCK 
command, 


ARIYK38 


ARIYK38 retrieves the DBSPACE header of INSEG and copies it 
inte YTABLE1. ARIYK38 releases all acquired buffers. 


ARTYKS9 


ARIYK39 loops through all child links and locks the DBSPACE 
where parent is a different DBSPACE. 


ARIYKS0 


ARTYK40 obtains the DBSPACE attributes, lock» and header 
page for the input OBSPACE., If the header page is fetched, 
update the DBSPACE data in YTABLEL. 


ARIYKS1 


ARIYK41 requests access to a named gate in the designated 
mode for the specified duration. Control specifies whether 
or not the requestor wants to wait for the request to be 
granted or to cancel the request if the request must wait. 


ARTYK42 
ARIYK42 is used for initialization for Lock component. 


Program Organization 


569 


ARTYK43 


ARIYK43 is the trace point descriptor module for the Lock 
component. It contains all trace point descriptors for all 


| DBSS/DSC LINK MAP MODULES 


ARITYLNK 


ARIYLNK is the DBSS/DSC link map module for both VSE and VN. 
ARIYLNK may be found in a dump» and shows the module nane 
and corresponding link address of each DBSS/DSC module. 


For VM only: ARIYLNK contains the first 200 DBSS/DSC module 
names and link addresses. The remaining entries are in 
ARTYLN1 (255 is the maximum allowable number of VCONS in one 
text module). 


the trace points contained in modules in the Lock DBSS 
component. All trace point descriptors in this nodule have 
trace point numbers in the range 600 through 799. 


ARIYLN1 (VM Only) 


ARIYLN] is part 2 of the DBSS/DSC link map module, and 
contains entries after the first 200 that were found in 
ARIYLNK. ARIYLN1 may be found in a dump, as can ARIYLNK. 
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DBSS LOG/RECOVERY 


ARIYLOO 


ARIYLOO initializes the log. 
initialization: 
Parameter COLDFLAG 


There are three types of 
‘C' ~ Cold start the data base 


= 'L' - Cold start the log only 
= 'W' ~ Warmstart the log 


ARIYLO1 


ARTYLOL starts a new log record of the specified length and 
type. (Calied via YSTARTLE macro. } 


ARLYLOZ 


ARIYLOZ writes data into the current log record. 
via YWRITELG macro.} 


{Called 


ARIYLOS 


ARIYLO3 terminates the vriting of a log record with or 
without flushing the current page. (Called via YENOWRIT 
macro.) 


ARTYLOS 


ARIYLO4 begins the reading of a log record that hegins at 
segment address SADDR. It returns the header of the record 
in LHBUFF and the (ahsolute) segment address of the previous 
record in PREDADDR. (If the record is of type BEGIN_LUW, 
PREDADOR will be meaningless.) (Called via YSTARTRD macro.) 


ARIYLOS 


ARIYLO5 reads the specified number of bytes from the current 
log record. (Called via YREADLOG macro.) 


ARIYLO6 


ARIYLO6 moves the log cursor delta bytes forward or 
backward, It also fixes the resulting log page in the page 
buffer. (Called via YMOVECUR nacro.} 
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ARIYLO7 


ARIYLO7 is the linkage between the work management and 
recovery subsystems and the various component data hase 
update recovery modules. 


ARIYLO& 


ARIYLO6 performs a system checkpoint. This causes the 
OBSS-consistent state of all public and private DBSPACEs and 
the log to be saved, facilitating later recovery. If an 
archive is required, module ARIYL23 is called (reason = 
‘B'). 


Valid reasons are: 
‘I' - Log just initialized 
'R' ~ System just recovered 
'C* = Periodic or shutdown system checkpoint begin taken 
"B' - Archive of the data base started 
"A' - Archive of data base completed 


ARTYLOS 


ARIYLO9 is the SQL/DS system checkpoint routine. A test is 
nade to determine if a checkpoint (or checkpoint and 
archive) is required. If a checkpoint is required, ARIYLOS 
is called. The test is then repeated, and now a checkpoint 
is not required. If a checkpoint is not required, ARIYKI6 
is called to cause a SQL/DS wait of type 'CHECKPOINT'. If 
it is a termination checkpoint or archive ARICTRM is called 
to and SQL/DS. 


ARTYL10 
ARIYL1O advances to the next log record during sequential 
READ SCAN. It returns the starting address in the log and 
header of this record. 

YL 
ARIYL11 fills the page, beyond the end of the log, with 


zeros. ARIYLI1 is used by ARIYLI3 to erase fractional log 
records at restart. 
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ARIYL12 


ARIYL12 updates a fullvord in a log record. 
does not have to he on a fullword boundary. 


The fullvord 


ARIYL1S 


ARIYL13 recovers SQL/DS from a system crash which did not 
involve nedia failure. It scans the log determining which 
logical units of work nust be undone or redone. Then; those 
LUWs are undone or redone. Finally, agents which were 
prepared for commit or rollback when the crash occurred» are 
recreated. 


ARIYL146 


ARIYL14 changes the log in some way, for example, adda 
secondary log File, remove a secondary log file, or replace 
a log file with a new log file. The log file is always 
completely reformatted. 


RIYL15 


ARIYLI5 displays the status of the log (for SHOW LOG and 
SHOW SYSTEM comnands). 


ARIYL19 


ARIYL19 checks that the specified log pages are the same for 
the primary and secondary log (if no secondary, then 
xeturn). If the pages are not the same, then scan the 
entire log, bringing each pair of pages into agreement. 


ARIYL21 


ARIYL21 controls the restoring of the block disk (directory) 
from the archive tape(s). 


ARIYL22 


ARIYL22 controls the restoring of the data disks (DBEXTENTs} 
from the archive tape(s). 


ARTYL2Z3 


ARIYL23 controls the archiving process. It is called by 
ARTYLO8& whenever an archive checkpoint (B type) has been 
requested and taken. The archive writing takes place as a 
function of the checkpoint agent, that is, this program runs 
under the checkpoint agent. This is possible since all 
checkpointing will be inhibited during the writing of an 
archive tape, thus ensuring the consistency of the archived 
data base. ARIVL23 is called after other logical units of 
vork have been allowed to run. That is, ARIYKO9 and ARTYK11 
have heen called by ARIYLOS. 


ARTYL26 


ARIYL24 causes ARIYLO8 to be activated, requesting a 'B' 
checkpoint and in turn the activation of ARIYL23 (pexform 
archive). 


RIYL2 


ARIYL25 is the trace point descriptor nodule for the 
Log/Recovery component. It contains all trace point 
descriptors for all trace points contained in modules of the 
Log/Recovery DBSS component. All trace point descriptors in 
this module have trace point numbers in the range 300 
through 599, 
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DBSS/DSC MESSAGE HANDLING, OPERATOR SERVICES, AND MISCELLANEOUS 


ARTYMOO 


ARIYMOO is the NBSS entry point for executing DBSS operation 
codes. It determines what module entry point should he 
called to axecute the operation code. Then ARIYMOO calls 
that entry point, passing the pointer te the operation 
parameter structure. On entry and on exit, tests are nade 
for DBSS ENTRY and DBSS EXIT tracing. If that trace 
function is actives it makes a call to perform the trace 
function. Also, on entry and exit, a test is made to 
determine if the current DBSS legical unit of work has been 
flagged for asynchronous termination. If so, calls are nade 
to DBSS routines to rollback the logical unit of work and to 
obtain the cause (for return code), Also the operation code 
execution is bypassed. 


For each operation code call, a test is made to determine if 
a logical unit of work needs to be created for the operation 
(and possible subsequent operations). If so» a call is made 
to the DBSS BEGIN WORK function limplicit begin work). 


ARTYMO1 


ARIYMO1 is invoked by ARICIP2 (via the SQL/DS Dispatcher) to 
complete the SQL/DS initialization process, 


In multiple user mode, ARIYNO!] establishes operator 
communications (via STXIT OC) in the VSE environment, and 
issues the "Ready for Operator Communications" message in 
the VM environment. In both environments it also issues the 
"SQL/DS Initialization Complete” message. 


In single user node; only the initialization complete 
message is issued. ARIYMOl then calls the SQL/DS operator 
command processor entry module ARIYM10, ARIYMIO in turn 
calls the SQL/DS Dispatcher to wait on the operator agent. 
(In single user node this is a ‘permanent’ wait condition 
for the operator agent. } 


ARIYMOZ 


ARIYMO2 is the SQL/DS system error routine. ARIYMOZ 
terminates SQL/DS with a call to ARICABE. It prints a 
character string that identifies the caller and the calling 
point (ARIxxxx nn). The caller is the module name 
CARIxxxx). The calling point is a decimal value (nn). If 
the calling component is terminating due to a limit error 
problem (for example, a storage request cannot be satisfied 
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due to insufficient storage), it sets the limit error 
indicatox (DSCLIMER). This indicator causes ARIYN02 to set 
the “pass the limit error™ return code to the S@L/DS 
termination routine (ARICTRM). <A hardware error is treated 
in the same manner as a limit error. All other errors are 
treated as severe SQL/DS errors. This type of arror 
condition causes a call to the SQL/DS abend handler routine 
C(ARICABE). The error is treated as a condition similar to a 
program check condition. However, it sets the DSCTRACK flag 
(DSCTRSER) to indicate that the SQL/DS abend handler was 
called by this routine and to cause it to skip the 
displaying of information such as the abnormal termination 
coda and the PSH, ARIYMO2 initializes the SQL/DS abend 
savearea prior to calling the SQL/DS abend handler routine. 
It places the registers of the calling routine into the 
abend savearea and the PSW that points to the BALR 
instruction of the calling routine. The ahend save area 
information is moved into a mapping of the CMS ahend save 
avea. ARIYMO2 sets register 0 (abend code) to 0. For VSE> 
the pointer to the SQL/DS abend save area is set in register 
1. For VM, the pointer to the mapping of the CMS abend save 
area is set in register 1. The SQL/DS abend handler is 
called, simulating the Linkage similar to the operating 
system calling the SQL/DS abend handler, for hoth VSE and 
vit. 
| Note: As this is a terminal error condition and only 
nessages and dump data is displayed, all calle to the 
SQL/DS dispatcher are suppressed. Therefore, the 
‘DS2WTOWT’ bit is turned off to tell the operator 
communication routine not toe call the SQL/D5S 
Dispatcher Wait routine. 


ARIYMNOS 


ARIYMO3 tests whether a given string is ‘like’ a given 
pattern. The string to be compared to the pattern; and its 
length, are supplied as parameters | and 2. The pattern, 
and its length: are supplied as parameters 3 and 4. The 
string is ‘like’ the pattern if the characters of the 
pattern can be placed in correspondence with the characters 
of tha string. A‘ ‘ character in the pattern may 
correspond to an arbitrary sequence of 0 or more characters. 
A ‘_* character in the pattern may correspond to any single 
arbitrary character. 


ARIYMOS 
ARIYMOG is invoked to: 
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1. Mrite a DBSS, DSC, or RDS nessage to the operator (VSE 
system operator or virtual machine terminal operator, or 
ISQL}) and optionally read a reply (both VSE and VM) 
and/or write the message to the system print file (VSE 
only] or 

2. Write a resource manager message to the VSE system 
operator or virtual machine terminal and optionally read 
a reply. 


ARIYMOG invokes the nessage formatter for message retrieval 
and variable substitution. For multi-line messages, ARIYM04 
loops displaying each line of the message. 


ARIYMOS 


ARIYMO5 is the nessage formatter module. It is invoked to 
retrieve « message (or line of a multi-line message) and to 
substitute any caller provided message variables into the 
message for line}. Using the caller provided message number 
or SQL code, the message index or SQL index table is 
searched to locate the address of the message module 
containing the message. It is the twin module of ARIMFNT 
and ARIIFOR (used in load modules; other than ISQL, which 
have stack storage). See ARIMFMT for more detailed 
description. 


ARTYM10 


ARIYMLO is the DBSS operator command linkage. In 
multiple-user mode SQL/DS: 


ARIYM10 provides the linkage to the SQL/DS operator command 
processing routines from either the ISQL or system operator 
consoles. The system or ISQL operator is notified of the 
success or failure of the command processing. 


In single-user mode SQL/DS: 

ARIYM10 places the operator agent structure in permanent 
SQL/DS dispatcher wait state at the completion of SQL/DS 
initialization. 


Entry Point: ARIYM10 
Function: In muitiple-user mode, ARIYM10 processes SQL/DS 
operator commands from the system operator 
console. 
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Entry Point: ARIYM101 
Functions In nultiple-user mode, ARIYM101 processes 
SQL/DS operator commands from ISQL terminal 
users. 


ARIYM?1 


ARIYML1 provides the linkage between the DBSS operatox 
command linkage (DOCI) module (ARIYM10) and the SQL/DS 
operator command processing modules. Alsos the shounane 
{operand one) of SHOW commands is validated. 


ARTYMS50 


ARIYMS50 writes a display line to the system operator console 
(VSE) or to the virtual machine terminal. 


ARITYM51 


ARIYM51 writes a message to the system operator console 
(VSE) or to the virtual machine terminal and reads an 
operator reply. The reply buffer is cleared to blanks 
before the I/O. The buffer is also translated to upper case 
after the I/0 (folding lower case alphabetics to upper 
case}. 


ARTYNS2 


ARIYMS2 obtains the date and time in printable format. The 
date and time are obtained from the operating system 
superviser. The date is in either mm-dd-yy or dd-nm-yy 
format (VSE), or mm-dd-yy format only (VM). The time is in 
hhimm:ss format (the VSE ZONE JCS adjusts time to local tine 
as displaced from Greenwich Mean Time). 


ARIYPAT 


ARIYPAT provides a common patch area for DBSS and DSC 
modules residing in the SQL/DS partition. 
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DBSS SORT 


ARIYSTP 


ARTYSTP is the DBSS trace point descriptor module for the 
Sort component. It contains all trace point descriptors for 
all trace points contained in modules of the OBSS Sort 
component. The trace point numbers are in the range 2300 
through 2353. 


ARTY500 


ARIYSOO sorts a set of rows from a table or a sequential 
list using an opened scan to identify the rows. 


Entry Point; ARIYSO0) 
Function: ARIYS001 sorts index pages using log 
information as opposed to sort base structure 
during backup. 


Entry Point: ARIYS002 
Function: ARIYSO002 is used to do an internal sort call 
for index creation. 


ARIYS01 


ARIYSO1 checks whether the submitted search clause is 
satisfied by the row pointed to by Register 3, 


ARIYSO2 


ARIYSO2 inserts a row T in re-do or deletes a row T in un-do 
and backup using logged information. ARIYSO2 reads the 
logged data and advances the log cursor for an amount equal 
to LOGL. 


ARTYSO3 

ARIYSO3 obtains, in TLTH, the length of the cow to be 
inserted. It also checks submitted domain lengths, 
acceptability of NREQDOM, and total rou length. 

ARTYS04 

ARIYSO4 moves the user row (domains) to an output list page. 


It also updates the page header and completes the row with 
undefined fields, if MREQDOM < YDEGREE. 
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ARTY505 


ARIYSO5 moves requested field values and lengths from a row 
in entity space to the user domains. 


ARTYS08 


ARTYSO8 repeats a complete sort in re-do and empties a 
DBSPACE in un-do or backup using logged information. 
ARIYSOS veads the logged data and advances the log cursor 
for an amount equal to LOGL. 


ARIYSO9 


ARTYSO9S fills a sequential list with rows which are stored 
in an internal storage area. 


ARTYS10 


ARIYS10 fills an intermediate page with encoded rows which 
are stored in an internal storage area. 


ARTYS1i 


ARIYS11 writes the header page for a DBSPACE containing = 
sequential list. 


ARIYS12Z 


ARIYS12 assembles a sort key in IKEY using fields from a 
stored row (list or table row} pointed at entry by TUPLEPTR. 


Entry Point: ARIYS121 
Function: ARIYS121 assembles a sort key in IKEY using 
fields from a stored row {list) pointed at 
entry by TUPLEPTR. 


ARTYS14 


ARIYSI4 encodes a row, according to the sort specifications: 
into an internal structure using fields from a stored row 
pointed at entry by TUPLEPTR. 
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Entry Point: ARIYS141 
Function: ARIYS141 is used with an optimized index. 


Entry Point: ARIYS142 
Function: ARIYS142 is used with a list scan. 


ARIYS17 


ARIYS17 decodes the single domains stored in IKEYO and 
encodes them again in IKEY according to the sequence and 
order specification of SORTSPEC. The last field of the sort 
key is not encoded if variable. 


Entry Point: ARIYS17 
Function: ARIYS17 allows SORT the ability to use 
information in an index page without needing to 
go to the data page. All the fields needed by 
the sort are in the index key. 


ARIYS18 

ARIYS18 sorts the random ordered variable length rows using 
the vector TOSORT. The rows are stored contiguously in an 
internal DBSPACE page. 

ARIYS19 

ARTYS19 sorts the random ordered fixed length rows using the 
vector TOSORT. The rows are stored contiguously in an 
internal DBSPACE page. 

ARTYS20 

ARIYS20 merges a number of strings (NSTRINGS) stored in a 
temporary DBSPACE (INTSEGM). 

ARTYS21 

ARIYS21 decodes and reorders a row from its internal 


representation for the sort to its final format for the 
sequential list. 
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ARIYS22 


ARIYS22 writes the header to a filled output page, unfixes 
this page and gets a new output page if the current output 
string creation continues. It calls the unfix of the output 
directory block buffer only at string end and the transition 
to a new directory block. The second acquired temporary 
DBSPACE (if any) is released. 


ARIYS23 


ARIYS23 copies a total string of an intermediate input 
DBSPACE into a sequence of pages of an intermediate output 
DBSPACE fetching page by page. The page header description 
is changed and the unfixing of pages and directory blocks is 
handled by this module. 


ARTYS24 


ARIYS24 achieves the input loop of the sort by means of a 
scan, fills the qualified rows into a internal DBSPACE page, 
sorts that page indirectly and stores the sorted rows into 
pages (strings) of an intermediate DBSPACE. 


Entry Point: ARTYS2¢ 
Function: ARIYS24 is used as an entry for link or index 
scan (index and data pages touched). 


Entry Point: ARIYS241 
Function: ARTYS241 is used as an entry for the optimized 
index case {only index pages touched). 


Entry Point: ARIYS242 
Function: ARIYS242 is used as an entry for a table scan. 


Entry Point: ARIYS243 

Function: ARIYS243 is used as an entry for a list scan. 
ARIYS25 
ARTYS25 traces a SORT call on DBSS entry. It displays the 
hase control information and (depending on the call) SARGS, 
KDOMAINS, SORTLIST and SORTSPEC. 
Entry Point: ARIYS251 


Functions ARIYS251 traces a sort call on DBSS exit. It 
displays the base control information. 
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DBSS WORK 


ARIYTOO 


ARIYTOO is called by DSC at SQL/DS initialization time. It 
initializes the DBSS subcomponents: work, lock, counter, 
storage and log. Also, ARIYTOO allocates a TPNAP entry for 
the initialization (operator) agent by calling ARIYTOS. If 
trace was specified, ARIYTOO initializes the trace 
subcomponent of DSC by calling ARICTRI. If the data base is 
to be restored from an archive, the module ARIYL22 is 


called. If DBEXTENTs are to he added to the data base, 
ARISDSK is called. If DBSPACEs are to be added» ARISEGA is 
called. 

ARIYTOT 


ARIYTOL is the router for the SQL/DS SHOW operator commands. 
It routes as follows: for SHOW LOG, call ARIYL15; for SHOW 
SYSTEM, call ARIYE37; for SHOW ACTIVE, call ARIYTI23 for 
SHOW LOCK, call ARIYK37; and for SHOW other, display message 
ARIO671. 


ARIYTO2 

ARIYTOZ is called by ARIYTOO, and sets the entire TPMAP to 
binary 0. 

ARIYTOS 

ARIYTOS is called when an agent is built. It assigns a 
TPMAP entry for the agents. Additionally it sets: the index 
of the entry (WHOAMI) in YTABLEL, the pointer to the entry 
(WHOAMIP) in YTABLE1L, and the PROCIO of the entry is set to 
point to DSCAREA. 

ARTYTO6 


ARIYT06 is called by RDS when an application specifies 


RELEASE as part of EXEC SQL COMMIT WORK or EXEC SQL ROLLBACK. 


WORK. It is also called by DSC after an agent is reset 
because of termination. ARIYTO06 is a no-op if the agent is 
still in LUN. Otherwise, ARIYTO6 resets the TPMAP entry of 
the agent and releases overflow working storage by calling 
ARICHFR. 
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ARIYTOS 


ARIYTO8 provides level 2 trace output for DBSS Entry and 
DBSS Exit tracing of vork (LUN) component DBSS operation 
codes (and the process operator command DBSS operation 
code). 


ARIYTO9 


ARIYTO9 begins a new logical unit of work for an agent. 

This consists of: assigning a new LUW identifier from NEXTID 
of the YRSSCVT, initializing new LUW data inte the TPMAP 
entry and YTABLE1:; and writing the Begin Work log record. 


ARIYT10 


ARIYT10 establishes a save point for an LUW. (In general, 
rollback work undoes all updates for a LUW up to the begin 
work log record. When a save point is established, after 
some updates: rollback work could he requested to undo work 
up to the save point.) The save work linkage is not used. 
There is no SQL external to establish save points. 


ARIYT12 


ARIYT12 processes the SHOW ACTIVE command. See the SQL/DS 
Operations, listed in Preface, for a description of the 
command. 


ARIYTI4 


ARIYT14 is the commit work process nodule. 


ARYTYTI5 


ARTYTI5 is: called when OSC or DOBSS asynchronously detects 
that a rollhack or commit should occur. If ARIYTI5 detects 
that the agent is still in DBSS (RSSFLAG = ‘Y') the call is 
a no-op. Otherwise: 
® The EQSF (Extended Dynamic Statements Facility) 
termination support is invoked to allow proper 
termination of an access module (AUX) build or update. 
ARIYT22 
~ ARIYT22 is called to determine if a rollhack should 
occur. The return code from ARIYT22 indicates 
whether a rollback or commit should be done. 
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- ARIXERD] (secondary entry point in ARIXERD) is called 
with an indicator as to whether a rollback or commit 
should be performed for the AUX build or update. The 
return code from ARIXERD! indicates the following: 

QO = terminaticn of the AUX was successful for no AUX 
to terminate). 
4 - termination of the AUX failed, but the rollback 
was done. 
8 - termination of the AUX failed, and a rollback 
should be done. In this case, ARIYT23 is invoked to 
ensure the rollback flags are set properly. 
® Set RSSFLAG = 'Y' at the beginning of the process and 
to 'N' at the end of the process. 
© If USERPROB has SYSBACK = Set (1) or USERBACK = Set (1?) 
achieve rollback by calling ARIYT19. Set SYSBACK or 
USERBACK to KO (2} so that ARIYT22 will be able to 
return the reason for the rollback. Return 
© If TPMFORS is on and if the LUW is in work, achieve 
commit by calling ARIYT14. Reset TPMFORS and return. 


ARIYTI6 


ARIYTI6 is called when a LUW needs to be aborted because of 
an operator request or the log is full. The process is as 
follous: 

e If the unit is already being rolled back the call is a 
no-op. (Thiss prevents recursion of the message 
ART2301I.) Otherwise..... 

® Schedule the rollback or commit by calling ARIYT23. 

® If the agent is connected (linked) to an application 
and there is no request to break the connection, set 
DCERESET = '1'B and TPMREMDC = '1'B. ODCERESET tells 
DSC that the agent reset should only include LUM abort 
and storage reset. TPMREMDC tells the work component 
to not "remember" (not clear out) the DBSSCODE which is 
the reason for the abort. This is saved so that the 
next SQL call from the application could return the 
appropriate SQL code. 

If the reguest includes a request to break the 
connection, set DCERESET = '0'B and DCEFORCE = ‘1'B. 
DCEFORCE tells the DSC component to disconnect and 
reconnect the communications link for an indoubt LUW. 

® Set DCELKTRM = '1'B to tell the SQL/DS dispatcher to 
reset the agent after it detects that the scheduled 
abort has completed. 

© If the agent is waiting on communications or a lock, 
the wait is cleared. 

® Display message ARI230I. 
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ARIYTi7 


ARIYT17 processes DBSI requests to ROLLBACK WORK for a LUW. 
It uses ARIYT23 to establish the reason for the rollback 
(user request) and to establish the save point. ARIYT17 uses 
ARIYTI9 to undo the updates for the LUN. 


ARIYT18 


ARIYT18 verifies the validity of the input parameters and 
schedules the rollback or commit of a logical unit of work 
by calling the abort routine, ARIYT16. ARIYTIS passes the 
following data to ARIYT16: 

® TYPE which indicates whether or not the link should he 

disconnected from the application after rollback. 

© Binary agent identifier 

® Reason for the abort = ‘OPERATOR REQUEST' 

© The abort direction {COMMIT or ROLLBACK). 


ARIYTIS 


ARIYT1L9 undoes the updates to the data base of a LUN. It is 
called primariiy by ARIYT17 as a result of an application’s 
ROLLBACK WORK request. Additionally, it is called by 
various SG@L/DS modules when an LUW must be rolled back 
because of operator request or because of system problems. 


ARIYTZ0 


ARIYT20 resets the USERPROB in the TPMAP entry of the LUN, 
frees all locks, uses the log component to ailocate and 
write an abort type log record, and clears work component 
information in the TPMAP entry and YTABLEL. ARTYT20 is 
called as part of the un-do work process. 


ARIYT21 


ARTYT21 is called as part of the un-do work process vhen a 
save point or begin work record is reached. Its primary 
function is te determine if the un-do process needs to 
continue. It does this by comparing the save point number 
in the log record with RESTORTO value in TPMAP. In general, 
the RESTORTO value is 0 indicating that the undo process 
should continue until the begin work log record. The 
RESTORTO value will remain 0 unless ARIYTI0 was invoked. 
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ARIYT2Z 


ARIYT22 is called to determine if a rollback should occur, 
and (if a rollback just completed) to giva the reason for 
the rollback. ARIYT22 processes the UNDOFLAGS of the TPMAP 
entry as follous: 
® Set SIPROB to 0. This is because all conditions of 
SIPROB are detected and cleared as part of the DBSI 
call. 
® Process the asynchronous data of USERPROB as follows: 
~ If flags are CLEAR (0); return with return code = 0. 
- If any one flag is SET (1), return with return code = 
“1. This tells the caller to start or continue a 
rollback process. 
~ If any one flag is KO (2), set Flag to CLEAR (0) and 
return the reason for the rollback. 


ARTYT23 


ARTYT23 sets the flags so that rollback or commit will occur 
at the appropriate time. The process is a no-op if the 
agent is not in LUW. For the COMMIT request the process is: 
® If LUW is already being rolled back, the call is a 
No-op. 
® If the agent belongs to a subsystem (SQL/DS online 
support) process the request as a ROLLBACK. 
* If the agent is currently processing a request for the 
application, process the request as a rollback. 
® Otherwise, set TPMFORS = '1'B; and return. Setting the 
flag will cause the next call to ARIYT15 to cause the 
LUM to be COMMITed. 


ARIYTZ6 


ARIYT26 gets recovery information, as defined by the control 
block RMRE, for the SQL/DS online support. 
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ARIYT27 


ARIYT27 has the function of logging enough LUW information 
so that; in the evert of a system or subsystem failure, the 
agent may be rebuilt at recovery time, The agent is rebuilt 
in a state that is prepared for a connit or rollback request 
which could be entered with the FORCE operator command, 


ARIYT28 


ARTYT28 is called via the DBSI after ROS establishes a new 
userid for an application. It saves the new userid in 
YTPMAP and DSCAREA. Additionally, if the userid has 
schedule authority, the TPMAP entry for the agent is marked 
as “belonging to a subsystem". This prevents the DISABLE 
option of the FORCE operator command, 


ARIYT29 


ARTYT29 is called by the warm start recovery process 
(ARIYL13) after all active LUWs that are not 
Prepared-to-Commit have been redone (COMMIT) or undone 
(ROLLBACK) by SQL/DS recovery. LUWs that are 
Prepared-to-Commit are coordinated by a subsystem such as 
CICS/DOS/VS. That means that SQL/DS may not determine their 
ending status (COMMIT or ROLLBACK). To SQL/DS, that status 
is said to be "indoubt." 


Fox each LUW that SQL/DS is indouht about» an indoubt agent 
structure is built by ARIYT29. The agent structure is built 
fron information on the log and reflects the LUW in much 
the same way as a general agent structure did prior to 
SQL/DS termination, The indoubt agent structure represents 
the LUN until the coordinating subsystem or the SQL/DS 
operator requests a COMMIT WORK or ROLLBACK. 
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DBSS INDEX 


ARIYXTP 


ARIYXTP is the SQL/DS trace point descriptor module for the 
Index component. It contains the trace point descriptors 
for all trace points in modules of the SQL/DS Index 
component. The trace point numbers are in the range 2600 
through 2660. 

ARTYX00 

ARIYXO00 allocates space for a new SCB in the Scan Table, and 


chains it off the old SCB specified in caller parameter 
SCBPT. 


ARTYXO] 


ARIYXG1 deletes a key/TID pair from the index. 


ARTYX02 


ARTYX02 drops an index by freeing its DBSPACE pages. 


ARTYX03 

ARIYXO03 updates the index SCBs which are affected by the 
deletion of the key, TID pair in IKEY and ITIO. 
ARTYX046 

ARIYX04 Fills the index pages described by the Index Control 
Record CICR). 

ARIYXO5 

ARTYM0S is called only when doing ‘next row’ processing 
inside the DBSS via an index scan. 

ARTYXOG6 

ARIYX06 decodes a string from the format that the Sort 


component prefers to the format that the Index component 
prefers. 
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ARITYXO7 


ARIYXO? finds an unallocated index page, allocates it, gets 
it in the buffer, returns its page number in NPAGE, and its 
page and directory block pointers in Register 2 and BLKPTR. 


ARIYXO8 


ARIYX08 fills in some information into the header of an 
index page. 


ARIYXO9 


After an index being created is filled, ARIYX09 reflects the 
last key in the index leaf page onto the next level of an 
index non-leaf page. To accomplish this, ARIYX09 inserts 
the appropriate key/TID pair(s) into the index non-leaf page 
indicated in the input parameter level. 


ARTYX10 


ARTYX10 cleans up the non-leaf pages of the index just 
created ky ARIYX02 and ARIYX09. 


ARIYX14 


ARIYX11 Finds an unallocated index pages allocates it,» locks 
it exclusive short, gets it in the buffer, and returns its 
page number in NPAGE and the buffer pointers in Register 2 
and BLKPTR. 


ARTYX12Z 


ARIYX12 finds the next key/TID pair in the index. The 
eurrent key/TID pair is in IKEYO and ITID; version number is 
in VNUMN in YTABLE1, and physical information (page, offset} 
is also in YTABLE]. If it is not already in the buffer; the 
page under the cursor is brought in. If ARIYX12 advances to 
a new key value, the variable NEWKEY is set to one. 


Entry Point: ARIYX121 
Function: ARIYX12i finds the next pair in the index. It 
assumes the caller has put the page in the 
burfer and validated the physical information. 


Licensed Material - Property of IBM 


ARIYX16 
ARIYX14 inserts data inte an index leaf page, at GOODPTR. 


ARIYX15 


ARIYX15 inserts a (key: son? pair into an index non-leaf 
page. 


ARIYX16 


ARIYX16 updates the index SCBs which are affected by the 
insertion of the kay/TID pair in IKEY and ITID. 


ARTYX17 


ARIYX17 maps the key supplied in LKEY into a gate name; and 
inserts it into YTABLE1, so that key value locking can he 
used. 


ARTYX18 


ARIYX18 inserts a key into an index. 


ARIYX13 


ARIYX19 allows more room in the SCB by allocating a larger 
SCB. ARIYX19 repositions the scan under the SCBPTR so as to 
be longer. 


ARLYX20 


ARIYX20 returns the next key/TID pair in sequence. 


ARTYX21 


ARLYX21 returns a key/TIO pair that is either the first pair 
or is related to the input key. 


Licensed Material - Property of IBM 


ARIYX22 


ARIYX22 updates the Scan Control Block (SCB) table se that 
SCBs which have been adjusted hy a preceding insert or 
delete (via ARIYX03 and ARIYX16) are properly updated. 
ARIYX22 frees the new SCB which is chained off the old one, 
and is used only for backup. 


ARTYX23 


ARIYX23 creates a neu Scan Control Block (SCB) or updates an 
old one. If the callnane in YTABLE! is 'OPEN' then ARIYX23 
allocates a new SCB and sets it to a vaiue established by a 
previous call to ARIYX21 (with SAVECODE = 'S'). If the 
callname is 'NEXT’ then ARIYX23 updates an existing SCB 
{specified in ISCANID) From a temporary cursor which was 
established by a previcus call to ARTYX2¢. 


ARTYX24 


ARIYX24 searches a leaf page of an index if the keys are 
fixed in length. 


ARTYX25 


ARTYX25 searches a nonleaf page of an index if the keys are 
fixed in length. 


ARIYX26 


ARTYX26 searches a leaf page of an index if the keys are 
Variable in length. 


ARIYX27 


ARIYX27 searches a nonleaf page of an index if the keys are 
variable in length. 


ARTYX28 


ARIYX2& updates the SCB table so that any SCBs uhich have 
heen adjusted by a praceding insert or delete (via ARIYX03 
and ARIYX16) are properly updated. ARIYX26 replaces the old 
$CB with the new SCB chained off the old one» thus 
completing a normal DBSI call. 
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ARITYX29 


ARIYX29 takes care of inserting a key/TID pair into an index 
in the special case that the current page (whose ID is 
PAGEID, pointed at by Register 2, BLKPTR) is too full. 
ARIYX29 obtains a free page from the DBSPACE and moves some 
of the key/TID pairs from the current page onto the new 
page. The parent page nust be modified: one key must be 
inserted. This of course may cause another split. To avoid 
un-doing modifications when backup is signalled, ARIYX29 
places the necessary exclusive short locks on the index 
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before nodifying any page. 


GOCDPTR points at the place 


where the submitted key/TID pair is to be inserted. No 
pages are fixed when ARIYX29 returns. 


ARIYX30 


ARYYX30 finds the next larger key value to the one found 
under PAIRPTR in the page in the buffer pointed to by 


Register 2. 
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DBSS UPDATE STATISTICS/COUNTER COMMAND 


ARIYZTP 


ARIYZTP is the DBSS trace point descriptor nodule for the 
DBSS Update Statistics component. It contains the trace 
point descriptors for all trace points contained in modules 
of the Update Statistics DBSS component. It also contains 
trace point descriptors for Service Temporary trace point 
for all DBSS/DSC modules. The trace point numbers for DBSS 
Update Statistics are in the range 2900 through 2942. The 
trace point numbers for Service Temporary trace point are in 
the range of 9900 through 9999, 


ARTYZO0O 
ARIYZOO sets up the Update Statistics routines-~ 


ARIYZ01 


ARIYZO1 checks that BEGIN WORK was issued, checks the 
addressing boundaries of the user LDBASE structure, checks 
that attention flag was not set, and initializes a number of 
YTABLE1 variables. 


ARIYZO02 


ARIYZO2 creates TREESPEC and LINKINFO structures. 


ARIYZOS 


ARIYZO03 checks that the specified table (RID) is valid) that 
is, it has been defined in DBSS's catalog; the ordering path 
to it is valid, and it is the child relation of the given 
access path. It sets values of TEMPCPRE, TEMPPPRE, 
PARNTSEG, PARNTREL and TEMPAREA. 


ARTYZ0G 


ARTYZ0¢ obtains the DBSPACE attributes and header pages for 
an input DBSPACE INSEGM and updates the OBSPACE data in 
YTABLEL. It is designed for multi-DBSPACE processing in the 
LOAD/UNLOAD facilities. 


ARIYZ05 


ARIYZO5 creates the SEGMDESC structure. 


ARIYZ06 


ARIYZ06 updates the internal statistical tables naintained 
by the LOAD/UNLOAD facilities. 


Entry Point: ARIYZ061 
Function: ARIYZ061 initializes internal statistics 
related tables. 


Entry Point: ARIYZ062 
Function: ARIYZ062 Updates etatistics from a row in the 
DBSPACE scan of data pages (MODEFLAG = ‘U') 
during ‘STARTUS' call. 


Entry Point: ARTYZ063 
Function: ARIYZ063 conpletes internal statistics tables. 


ARIYZ10 


ARIYZ10 unfixes all directory block and page buffers and 
moves the submitted return code INCODE to LDRCODE in user 
LDBASE structure if it is not ILLEGALP. It also ABENDs 
SQL/DS if there is an I/O error. 


ARTYZ11 


ARIYZ11 does a DBSPACE scan for every DBSPACE in which there 
are tables for which statistics are to he gathered, setting 
up ORPHTID. 


ARIYZ15 


ARIYZI5 is the OBSI call nodule to complete an UPDATE 
STATISTICS. ARIYZ15 finishes statistics collection 
processed by ARIYZ06, collects index statistics if 
requested, returns statistics to RDS; releases internal 
storage used by UPDATE STATISTICS, and turns off the Update 
statistics mode bit in YTABLE1. 


ARIYZ16 


ARTYZ16 scans the pages of an index, collects statistics, 
and stores them in TREESPEC. 


ARIYZ19 


ARIYZ19 displays DBSS counters for the COUNTER operator 
command. 


ARTYZ20 


ARIYZ20 resets DBSS counter(s) to zero for the RESET 
operator command. 


ARTYZ23 


ARTYZ23 initializes SQL/DS systen counters (see the COUNTER 
operator command) and resets them to zero. 
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ARITYZ25 
ARIYZ25 displays the TREESPEC for update statistics trace. 


ARIYZ26 


ARIYZ26 displays the SEGMDESC for update statistics trace. 


ARITYZ27 


ARIYZ27 displays statistics gathered after exit from an 
UPDATE STATISTICS cali. 
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SECTION 4: DIRECTORY 


This section is divided into two parts. The second part, the Module Directory, contains a list of 
| the nodules, the phase(s) (VSE) or load module(s) (VM) in 
The first part, Link Edit Book Directory, contains a list of whick the module is included, and page number(s) on which 
the SQL/DS components by Link Edit Book names, the Link 860k the module is discussed. 
_ Names under which they can be found, and the phase names 
i {(VSE} or load module names (VM) in these Link Books. 


Link Edit Book for Component Link Book Phase Name(s) 


DBSS / DSC ARTSLKDOD ARISQLDS ARICMOD 


ARISDOOD ARISDO1D ARISDI0D ARISD11D ARISDi20 
ARISDL3D ARISDIGD ARISDI5D ARISD16D ARISD20D 
ARISD21D ARISO22D ARISD23D ARISD24D ARISD25D0 
ARISO26D ARISD30D ARISD31D ARISD32D ARISD33B 


ARIXROS 


ARIGCAT 


ARISLKED 


VSE Dependent Functions 


ARISLKRD 


GENCAT ARISLKGD 


ARIPRPA 


ARIPRPC 


Assembler PREP ARISLKAD 


ARISLKCD 


COBOL PREP 


ARIPRPP 


ARIPRPF 
ARIDBS 
ARISEGB 


ARIRBARM 


ARISLKPD 


PL/I PREP 


ARISLKTD 


FORTRAN PREP 


DBS Utility ARISLKUD 


ADDSEG (Add DBSPACE} ARTSLKSD 


Batch Resource Manager ARISLKBD 


ARISLKZB ARIOOLRM 


Online Resource Manager 


ARISLKYD ARIRCONT 


Online Resource Manager Control 
(ENABLE/DISABLE CICS Resource Manager } 


Trace Formatter ARISLKFD ARIMTRA 
ISQL Mainline Transaction ARISLKID ARITSGL 
(without Extract) 
ISQL Mainline Transaction ARISLKKD ARIIEXT 
AXTILKED 


(uith Extract} 


ARISLKJD ARIITRM 
AXTILKUD AXTUGET 


ITRM Terminal Transaction 


Extract Utility Progran 


AXTILKMD AXTUMON 


AXTUCBA 


Extract Utility Monitor 


Extract Utility Control Block 


SQL/DS Copyright None $$$COSQL 
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Link Edit Book for Component Link Book Load Module Name(s) 


a 
sue | ns 
a 


ADDSEG (Add DBSPACE) ARISLKSC ARISEGB 
VM Resource Manayer ARISLKVC ARIRVNRM 


Trace Formatter ARISLKFC ARIMNTRA 
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NODULE DIRECTORY 


In the following list, you will see some of the module names 
or entry point names followed by "(VSE)" or "(VM)". This 
indicates that the particular name applies only to 
VSE/Advanced Function or to VM/SP; respectively. 


In Phase(s) (VSE)7Z In Phase(s) (VSE)/ 
Nodule Load Mod(s) (VM) Page Reference Module Load Mod(s) (VM) Page Reference 
ARICABE(C ARISQLDS 213, 472 ARICPRM ARISQLDS 120 - 127, 477 
ARICABE(5 ARISQLDS 213, 47 ARICRST ARISQLDS 477 
ARICCLA(C ARISQLDS 175, 472 | ARICSHO(C ARTSQLDS 139, 477 
_ ARICCLACD ARISQLDS 174, 472 ARICSHT ARISQLDS 209, 478 
ARICCOM(C ARISQLDS, ARIXRDS, 472, 201 | ARICSPM(C ARISQLDS 182, 478 
ARIRVMRM ARICSPM(D ARISQLDS 181, 478 
ARICCOM(D ARISQLDS, 197, 472 ARICSTK ARISQLDS 137, 478 
ARIRBARM(VSE }> ARICTIM ARIRCONT, ARISQLDS 478 
ARIXRDS, ARIOOLRM(VSE), | ARIXRDS 
ARIRCONT(VSE), ARICTKN ARISQLDS, ARIRCONT 128, 478 
ARIRVMRM ARICTRC ARISQLDS 189, 478 
ARICCRA(C ARISQLDS 129, 473 ARICTRI ARISQLDS 188, 47 
ARICCRA(D ARISQLDS 129, 473 ARICTRN ARISQLOS 2lls 479 
ARICDMP ARISQLDS 2215) 473 ARICWAT ARIXRDS 176, 479 
ARICDPT ARISQLDS 173, 473 ARICWFR ARISQLDS 137, 479 
ARICDSP(C ARISQLDS 169, 473 ARICWSF ARISQLDS, ARIXRDS 136, 479 
ARICDSP(D ARISQLDS 165, 473 ARICWSG ARISQLDS;,; ARIXRDS 136, 479 
ARICDWT ARISQLDS 173, 474 ARICWSI ARTSQLDS, ARIXRDS 136, 479 
ARICENA(C ARISQLDS 133, 474 ARIDALC ARIDBS 481 
ARICENA(G ARISQLDS 133, 474 ARIDALI ARIDBS 481 
ARICFSE ARTSQLDS, ARIRBARM, 138, 474 ARIDALT ARIDBS 481 
ARIXRDS, ARIOCOLRM, ARIDBS ARIDBS 4555 481 
ARIRCONT, ARIISQL ARIDCFI ARIDBS 481 
ARIRVMRM ARIDCIB ARIDBS 481 
ARICGSE ARISQLDS, ARIRBARM, 137, 474 ARIDCSP ARIDBS 458, 481 
ARIXRDS, ARIOOLRM, ARIDCTB ARIDBS 481i 
ARIRCONT, ARIISQL ARIDDFI ARIDBS 461 
| ARIRVMRM ARIDDLO ARIDBS 459, 481 
ARICIMB ARIRBARM, ARIOOLRM, 474 | ARIDDUL ARIDBS 456, 482 
ARIRCONT, ARIRVMRM ARIDEXI ARTOBS 482 
ARICINT(C ARISQLDS 195 ARIOMGE ARIDBS 482 
ARICIP! ARISQLDS ll2, 475 ARIDREL ARIOBS 462, 482 
ARICIP2 ARISQLDS 118, 475 ARIDSEL ARIDBS 464, 482 
ARICMMB ARIRBARM, ARIOOLRM, 475 ARIDOSFA ARIDBS 482 
ARIRCONT, ARIRVMRM ARIDSQLA ARIDBS 466, 482 
ARICMOD ARICMOD 135, 475 ARIDSSB ARIDBS 482 
ARICMUD(C ARIXRDS 180; 476 ARIDUCP ARIDBS 482 
ARICMUD(D ARIXRDS 178, 476 ARIDUNL ARIDBS 460, 482 
ARICOMB ARIXRDS 476 ARIDUSQ ARIOBS 465, 483 
ARICPDM ARISQLDS 223, 476 ARIFDMY ARINTRA 
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ARTIBIN 
ARLICAN 
ARTICICD 
ARLTICI20 
ARITICHD 
ARTICNV 
ARIIDBS 
ARIIDGY 
ARIIERS 
ARITEXT 
ARTIFCC 
ARTIFCL 
ARIIFCS 
ARTIFET 
ARIIFMC 
ARTIFNT 
ARIIFOL 
ARTIFOR 
ARIIFULD 
ARIIHDR 
ARTIHLD 
ARTIHLP 
ARIIIGN 
ARIILST 
ARTIMAP 
ARTINSG 
ARTINITC 
ARIINME 
ARTINSG 
ARTIOCT 
ARIIOVD 
ARTIPAT 
ARIIPATD 
ARIIPFKD 
ARIIPQL 
ARIIPQY 
ARIIPRF 
ARIIPRTC 
ARIIPRTD 
ARIIPSQ 
ARIIGRY 
ARTIREAC 
ARTIREC 
ARIIRETD 
ARTIRNM 
ARTIRPT 
ARIIRUN 
ARTIRWI 
ARIISCC 
ARIISCMD: 
ARIISET 
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In Phase(s)(VSE)/ 
Load Mod(s) (VM) 


ARIIEXT; 
ARIIEXT, 
ARIITRM 
ARTIEXT, 
ARIIEXT, 
ARIIEXT>s 
ARIIEXT, 
ARTIEXT, 
ARIIEXT;: 
ARIISQL 
ARIIEXT>» 
ARIIEXT: 
ARIIEXT, 
ARIIEXT>» 
ARIIEXT> 
ARIIEXT> 
ARIIEXT» 
ARIIEXT, 
ARIITRM 
ARIIEXT; 
ARTIEXT» 
ARIIEXT; 
ARIIEXT, 
ARIIEXT, 
ARIIEXT» 
ARIIEXT,» 
ARIIEXT, 
ARIIEXT, 
ARIIEXT; 
ARIIEXT» 
ARIIEXT, 
ARIIEXT, 
ARTITRN 
ARIITRN 
ARIIEXT » 
ARIIEXT, 
ARTIIEXT> 
ARIIEXT; 
ARTIEXTs 
ARIIEXT> 
ARIIEXT, 
ARIIEXT; 
ARIIEXT, 
ARIITRM 
ARIIEXT; 
ARTIEXT» 
ARIIEXT; 
ARIIEXT; 
ARIIEXTs 
ARTITRM 
ARIIEXT, 


ARTISQL 
ARTISQL 


ARTISQL 
ARIISQL 
ARIISQL 
ARTISQL 
ARTISQL 
ARLISQL 


ARIISQL 
ARIISQL 
ARTISQL 
ARIISQL 
ARITISQL 
ARTIS@L 
ARIISGL 
ARTISQL 


ARIISQL 
ARTISQL 
ARTISQL 
ARIISQL 
ARTISQL 
ARTISQL 
ARTISQL 
ARIISQL 
ARIISQL 
ARTISQL 
ARTISQL 
ARTISQL 
ARTISQL 


ARTISQL 
ARTISQL 
ARIISQL 
ARIISQL 
ARIISQL 
ARTISQL 
ARTISQL 
ARTISQL 
ARIISQL 


ARTISQL 
ARIISQL 
ARTISQL 
ARIISGL 
ARIISQL 


ARTISQL 
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ARIISNG 
ARIIEXT 
ARIISTK 
ARIISTR 
ARTISTX 


ARIIST2 
ARIIST3 
ARIIST40 
ARIISUB 
ARIISYSC 
ARIITIOC 
ARIITKN 
ARIITRC 
ARIITRMD 
ARTIVFY(C 
ARTIVFY(D 
ARIIVLD 
ARIIWATD 
ARIIWRTD 
ARTIXITD 
ARIMBIN 


ARIMCID 
ARIMDEC 


ARIMOFP 
ARIMFLP 
ARINFMT 


ARIMHEX 


ARIMPRT 
ARIMPTT 
ARIMPT2 
ARIMPT2 
ARIMPT3. 
ARIMPT4 
ARIMPTS. 
ARIMSCF 
ARIMSCH 
ARIMSMF 


In Phase(s) (YVSE)/ 
Load Mod{s) (VM) 


ARTIEXT> 
ARIISAL, 
ARIIEXT; 
ARIIEXT, 
ARIIEXT, 
ARTITRM 
ARTIEXT> 
ARIZEXT» 
ARIITRM 
ARIIEXT> 
ARIIEXT> 
ARTIEXT>» 
ARIIEXT> 
ARIIEXT» 
ARTITRM 
ARTIEXT; 
ARIITRM 
ARTISQL 
ARIITRM 
ARIITRM 
ARIITRH 
ARTISQL> 
ARIPRPC; 
ARIPRPP; 
ARIOBS 
ARIXRDS, 
ARIISQL, 
ARIPRPC; 
ARIPRPP, 


ARIISQL 
ARTISQL 
ARTISQL 
ARTISQL 
ARIISQL 


ARIISGL 
ARTISQL 


ARIISQL 
ARTISQL 
ARIISGL 
ARTISQL 
ARITSQL 


ARTISQL 


ARIPRPA» 
ARIPRPF, 
ARIGCAT, 


ARIOOLRM 
ARIPRPA, 
ARIPRPF » 
ARIGCAT, 


ARIDBS, ARISEGB, 
ARTISQL(VM) 
ARIDBS, ARTISQL 


ARIXRDS 
ARIPRPA; 
ARIPRPC,; 
ARISEGB 
ARIGCAT,; 
ARISEGB 
ARIMTRA 
ARIMTRA 
ARINTRA 
ARIMTRA 
ARIMTRA 
ARINTRA 
ARIMTRA 
ARINTRA 
ARINTRA 
ARTIS@L, 
ARIPRPC> 
ARIPRPP 


ARIPRPP, 
ARIPRPF 


ARIDBS 


ARIPRPA, 
ARIPRPF; 
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450, 490 
451, 490 
442, 490 
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ARIMTRA 
ARIMNOO0O 
ARIN200 
ARIM500 


ARIM520 
ARIM700 
ARIN800 
ARIPADR 
ARIPARM 


ARIPCID 


ARIPCVF 
ARIPCVH 
ARIPCVP 


ARIPDCF 
ARIPDYACVM) 
ARIPDYC( VM) 
ARIPDYP( VM) 
ARIPOYT( VM) 
ARIPEIFA 
ARIPERR 


ARIPFIX( VM) 


ARIPLTP 
ARIPMSF 
ARIPMSH 


ARTPMSM 
ARIPMVL 


ARIPPRA 
ARIPPRC 
ARIPPRF 
ARIPPRP 
ARIPRDID(VSE ) 


ARIPSCF 
ARIPSCN 


In Phase(s) (VSE)/ 
Load Mod(s) (VM) 
ARIDBS 

ARIMTRA 

ARIISQL, ARISQLDS 
ARISQLOS 

ARIDBS, ARIPRPA, 
ARIPRPC, ARIPRPF > 
ARIPRPP, ARISEGB, 
ARIISQL(VM) 
ARIGCAT, ARISEGB 
ARIISQL 

ARIDBS, ARIPRPF 
ARIPRPC 

ARIPRPA, ARIPRPC> 
ARIPRPP, ARIPRPF 
ARIPRPA, ARIPRPC 
ARIPRPF, ARIPRPP 
ARIPRPA, ARIPRPC > 
ARIPRPP, ARIPRPF 
ARIPRPA, ARIPRPC, 
ARIPRPP 

ARIPRPA, ARIPRPC, 
ARIPRPP 

ARIPRPA, ARIPRPC> 
ARIPRPP 

ARIPRPF 

ARIPRPA 

ARIPRPC 

ARIPRPP 

ARIPRPF 

Not linked 
ARIPRPA, ARIPRPC, 
ARIPRPP 

ARIPRPA, ARIPRPC 
ARIPRPP, ARIPRPF 
ARIPRPP 

ARIPRPF 

ARIPRPA, ARIPRPC, 
ARIPRPP 

ARIPRPA, ARIPRPC> 
ARIPRPF, ARIPRPP 
ARIPRPAs ARIPRPC > 
ARIPRPP 

ARIPRPA 

ARIPRPC 

ARIPRPF 

ARIPRPP 

ARIPRPC, ARIDBS» 
ARIPRPA, ARIPRPP» 
ARIPRPF 

ARIPRPF 

ARIPRPA, ARIPRPP 


Page Reference 


497 
497 
497 
497 


497 
497 
498 
499 
499 


499 


499 
499 
499 


499 
499 
500 
500 
500 
500 
500 


501 


501 
501 
28, 501 


501 
501 


28, 501 

28, 501 

501 

28, 502 

231, 502 


502 
502 
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ARTPSQA 
ARIPSQC 
ARIPSQF 
ARIPSQP 
ARIPSSF 
ARIPTXA 
ARIPTXC 
ARIPTXF 
ARIPTXP 
ARIQNO} 


ARTQM02 


ARTQHOS 


ARTQMO4S 


ARIQMO5 


ARIQNO6 


ARIQMO7 


ARTQM0S 


ARTQNO9 


ARIRBRM 
ARIRB13 
ARIRB51 
ARIRCLI(C 
ARIRCL2(C 
ARIRDIS(G 
ARIRDMY 


ARIRECI(D 
ARTRENA(D 
ARIRENT(D 
ARIRINT(C 
ARIRIRM 


In Phase(s)(VSE)/ 
Load Mod(s) (VM) 


ARIPRPC 

ARIPRPA 

ARIPRPC 

ARIPRPF 

ARIPRPP 

ARIPRPF 

ARIPRPA 

ARIPRPC 

ARIPRPF 

ARIPRPP 

ARIPRPA, 
ARIPRPP» 
ARIISGL> 
ARIPRPA» 
ARIPRPP> 
ARTIISQL» 
ARIPRPA» 
ARIPRPP» 
ARTISQL, 
ARIPRPA» 
ARIPRPP» 
ARTISQL> 
ARIPRPA>» 
ARIPRPD > 
ARTISQL> 
ARIPRPA> 
ARIPRPP,» 
ARITSQL, 
ARIPRPA> 
ARIPRPP» 
ARIISQL> 
ARIPRPA, 
ARIPRPP, 
ARTISQLs 
ARIPRPA, 
ARIPRPP, 
ARTISQL, 
ARIRBARM 
ARIRBARM, 
ARIRBARM 
ARIRVMRM 
ARIRVMRM 
ARIRCONT 
ARIOOLRM, 
ARIRVMRM 
ARIRCONT 
ARIRCONT 
ARIRCONT 
ARIRVMRM 
ARIRBARM 


ARIPRPCs 
ARIDBS, 
ARIPRPF 
ARIPRPC » 
ARIDBS, 
ARIPRPF 
ARIPRPC » 
ARIDBS > 
ARIPRPF 
ARIPRPC » 
ARIDBS, 
ARIPRPF 
ARIPRPC» 
ARIDBS, 
ARIPRPF 
ARIPRPC>» 
ARIDBS, 
ARIPRPF 
ARIPRPC, 
ARIDBS, 
ARIPRPF 
ARIPRPC » 
ARIDBS, 
ARIPRPF 
ARIPRPC>» 
ARIDBS, 
ARIPRPF 


ARIRVMRM 


ARIRCONT 


28, 
28, 
502 
28, 
503 
503 
504 
504 
504 
505 


505 


505 


505 


505 


505 


505 


505 


505 


232, 
506 
506 
506 
506 
241, 


258, 
236, 
234, 
262 

231, 
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506 


506 


506 
506 
506 


506 
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ARIRMIL(D 
ARIRMSG 


ARIRORM(D 
ARIROL3 
ARIRPAT 


ARTRRTE(D 
ARIRSEN(O 
ARIRSQLA 

ARIRTLICC 
ARIRTLECC 
ARIRVIR(CG 
ARIRVRMCC 
ARIRVST(C 


ARISCNV 
ARISCOL 
ARTISDBK(C 
ARISDBM 
ARISDBR 
ARISDFL 
ARISDFM 
ARISDFR 
ARISOMY1 
ARISDMY2 
ARTSDSK 
ARTSDO00D 
ARISDOID 
ARISD100 
ARISD110 
ARISD1I2D 
ARISD130 
ARISD 140 
ARISDI5D 
ARTSD160 
ARISD20D 
ARISO210 
ARISO22D 
ARISD23D 
ARTSD24D 
ARTSD250 
ARISD260 
ARISD300 
ARISD31D 
ARISD32D 
ARTSO330 
ARISEDI 
ARISEGA 
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In Phase(s) (VSE)Z 


Load Mod(s) CVMD Page Reference Module 
ARTOOLRN 2475 506 ARTSEGB 
ARIRBARM,; ARIRCONT 5u6 ARISERR 
ARIRVMRM ARTSFDOB 
ARTOOLRM 247, 2485 251, 507 ARTSFIL 
ARIRCONT 2595 507 ARISFML(D 
ARIRBARM, ARIOCOLRM, 507 

ARTIRCONT, ARIRVMRM ARISFH2 
ARITISQt 507 ARISIIO 
ARTOOLRMN, ARIRCONT 256, 507 ARISINT 
ARIOQLRM,; ARIRCONT 255, 507 | ARISISK(C 
ARIRVMRM 507 ARISIST 
ARIRVMRM 507 ARISIST2 
ARIRVMRIN 507 ARISLAYSD 
ARTIRVMRM 265, 508 ARTSMAT 
ARIPRPC, ARIOSS, 503 ARISOCM(D 
ARTIPRPA, ARIPRPF ARITSPFM 
ARIPRPP, ARIISQLOVM) ARISRMK(C 
ARIXRDS 

ARIGCAT 13, 509 ARISREL 
ARIGCAT 13, 509 ARISSCB 
DBSS/DSC/RDS Bootstrap 509 ARISSET 
ARISQLDS 509 ARISTLD 
ARTSQLOS 275, 509 | ARISTIM 
ARIGCAT 13, 509 ARISUPD 
ARIGCAT 13, 509 ARISYSD(C 
ARIGCAT 13, 509 

ARIGCAT 

ARISEGB 

ARISQLDS 509 

ARISDOOD 509 

ARISDOLD 509 ARISYSD 
ARTSD10D 509 ARISYSD1L 
ARISDIID 510 ARISYSD2 
ARISD12D 510 ARISYSDS 
ARISD130 516 ARISYSD4 
ARISO140 510 ARISYSD6 
ARISD1I5D 510 ARISYSO7 
ARISD16D 510 ARISYSDOS 
ARISD20D 510 ARISYSDA 
ARISD21D 510 ARITSYSDB 
ARISD22D 510 ARTISYSOC 
ARIS023D 510 ARISYSBE 
ARISB24D 519 ARISYSDF 
ARISD250 510 ARTSYSDG 
ARISD26D 510 ARISYSBRE 
ARISO30D 510 ARISYSDJ 
ARISD310 510 | ARISYSDK 
ARTSD32D 510 

ARISD330 510 

ARIGCAT 13, 510 

ARTSQLDS 511 


In Phase(s) (VSE)/ 
Load Mod(s) (VM) 


ARTSEGB 
ARIGCAT, ARISEGB 
ARTSQLOS 
ARIGCAT 
ARTSQLOS. 
CSECT=ARISFML 
ARTSQLOS 
ARTSQLOS 
ARIGCAT 
ISQt Bootstrap 
ARIGCAT 
ARIGCAT 
ARIGCAT 
ARIGCAT 
ARISQLOS 
ARISQLOS 
VM Resource Manager 
Bootstrap 
ARIGCAT 
ARIS@LOS 
ARIGCAT 
ARIGCAT 
ARIGCAT 
AR TGCAT 
ARTSQLDS» ARIRVMRM» 
ARIPRDA, ARIPRFC, 
ARTPRPP, ARIXRDS;, 
ARIGCAT; ARIDBS, 
ARISEGB, ARIMNTRA 
ARTIPRPF 

CEP, VM} 

CEP, VM) 

CEP>¥M) 

fEP,VM) 

(EP,VM) 

CEP,VM} 

CEP,VM) 

CEP, VP) 

(EP,VM) 

(EP, VM) 

(EP,VM) 

(EP,VM) 

CEP, VM) 

CEP,VM) 

(EP,VM) 

CEP,VM) 

CEP, VM) 
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In Phase(s) (VSE)2 In Phase(s) (VSE)7 


Module Load Mod(s) (VM) Page Reference Module Load Mod (s) (VM) a Reference 
ARISYSD(D ARISQLDS, ARIRBARM, 5i3 ARIXCRA ARIXROS 94, S17 
ARIPRPA, ARIPRPC; ARIXCRB ARIXROS 94, 517 
ARIPRPP, ARIXRDS>» ARIXCRC ARIXRDS 95, 517 
ARIGCAT, ARIDBS> ARTXCRD ARIXRDS 95, 517 
ARISEGB, ARIOOLRM, ARIXCRE ARIXROS 95, 517 
ARIRCONT, ARIMTRA ARIXCRE ARIXRDS 95, B18 
ARIPRPF ARIXCRG ARIXRDS 96, 518 
ARISYSD1 CEP;VSE) 513 ARIXCRH ARIXRDS 96, 516 
ARISYSD2 (EP,VSE) 514 ARIXCRI ARIXROS 96, 518 
ARISYSD3 (EP,VSE) 514 ARIXCRJ ARIXRDS 96, 518 
ARISYSD4 (EP,VSE) 5G | ARIXCRL ARIXRDS 518 
ARISYSDS (EP,VSE) 514 ARIXCRO ARIXRDS 96, 518 
ARISYSD6 (EP,VSE) 514 ARIXCR1 ARIXRDS 96, 5i8 
ARISYSD7 (EP,VSE) 514 ARIXCR2Z ARIXRDS 965 518 
ARISYSDS (EP,VSE) 514 ARIXCRS ARIXRDS 97, 518 
ARISYSDA (EP,VSE) 514 ARIXCRS ARIXROS 97, 518 
ARISYSDB (EP,VSE) 514 ARIXCRS ARIXRDS 97, 518 
ARISYSOC (EP,VSE) 514 ARIXCR6 ARIXRDS 97> 518 
ARISYSDE (EP,VSE) 514 ARIXCR7 ARIXRDS 97, 519 
ARISYSDF (EP,VSE) 514 ARIXCRS ARIXRDS 975 519 
ARISYSDG (EP,VSE) 515 ARIXCOL ARIXRDS 82, 85, 519 
ARISYSDOH (CEP, VSE) 515 ARIXCO02 ARIXRDS 85, 519 
ARISYSDI (EP,VSE} 515 ARIXCO3 ARIXRDS 65, 519 
ARISYSDK (EP,VSE) 515 ARIXCOS ARIXRDS 86, 519 
ARISYSE(C ARISQLDOS, ARIPRPA: 515 ARTIXTO6 ARIXRDS 86, 519 
ARIPRPC>, ARIPRPF > ARIXCO7 ARTXRDS B75 51? 
ARIPRPP, ARIXRDS> ARIXCOS ARIXRDS 85, 519 
ARIGCAT, ARIDBS> ARIXC10 ARIXRDS 87, 519 
ARISEGB, ARIMTRA ARIXC11 ARIXROS 89, 520 
ARIPRPF ARIXC13 ARIXRDS &l1, 520 
ARISYSD5 (EP,VM) 515 ARIXC14 ARIXRDS 83, 520 
ARISYSF(C ARISQLDS, ARIPRPA> 515 ARIXCIS ARIXRDS 87, 520 
ARIPRPC, ARIPRPF, ARIXC16 ARIXRDS 87, 520 
ARIPRPP, ARIXRDOS, ARIXC17 ARIXRDS 88, 520 
ARIGCAT, ARIDBS, ARIXC18 ARIXRDS 88, 520 
ARISEGB, ARIMTRA ARIXC19 ARIXRDS 87, 520 
ARIPRPF ARIXC20 ARTXRDS 85, 520 
ARISYSD8 (EP,VM) 515 ARIXC21 ARIXRDS 88, 520 
ARISYSG(C ARTSQLDS 515 ARIXC22 ARIXRDS 88, 520 
ARISYSDH CEP,VM} 515 ARIXC23 ARIXRDOS 89, 520 
ARIXA01 ARIXRDS 101, 516 ARIXC24 ARIXRDS 89, 520 
ARIXA02 ARTXRDS 101, 516 ARIXC25 ARIXRDS 89, 52) 
ARIXA03 ARIXRDS 102, 516 ARIXC27 ARIXROS 90, 52l 
ARIXA04 ARIXRDS 1025 516 ARIXC28 ARIXRDS 90; 521 
ARIXA06 ARIXRDS 102, 516 ARIXC29 ARIXRDS 905 52] 
ARIXA07 ARTIXRDS 103, 516 ARIXC34 ARIXROS 91, 521 
ARIXA08 ARIXRDS 104, 516 ARIXC31. ARIXRDS 91, 521 
ARIXA09 ARIXRDS 105, 516 ARIXC32 ARIXROS 91, 521 
ARIXA10O ARIXRDS 106, 516 ARIXC33 ARIXRDS 855 521 
ARIXAI1 ARIXRDS 106, 516 ARIXC34% ARIXRDS 925 52k 
ARIXCOT ARIXRDS 517 ARTXC35 ARIXRDS 92,5 52l 
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ARIXC36 
ARIXC37 
ARIXC38 
ARIXC39 
ARIXC40 
ARIXC43 
ARIXC42 
ARIXC43 
AREXC45 
ARIXC47 
ARIXC48 
ARIXCS9 
ARIXCS2 
ART XC53 
ARIXC54 
ARIXDMY 
ARIXEAB 
ARTXEAD 
ARIXEBR 
ARIXECK 
ARIXECL 
ARTXECW 
ARIXEDB 
ARIXEDC 
ARTXEOP 
ARIXEOR 
ARIXEDS 
ARIXEER 
ARIXEFB 
ARIXELK 
ARIXELX 
ARIXEOC 
ARTXEPH 
ARIXEPP 
ARIXERD 
ARIXERO 
ARTXERP 
ARIXESP 
ARTXEST 
ARIXESX 
ARIXETR 
ARTXEUH 
ARIXFAO 
ARIXFTB 
ARIXFO) 
ARIXFO2 
ARIXFO3 
ARIXFO04 
ARIXFOS 
ARIXF O08 
ARIXFO7 
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In Phase(s) (VSE)7 
Load Mod(s) (VM) 


ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARTXRDS 
ARIXRDS 
ARIXROS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARI XRDS 
ARTXRDS 
ARTIXRDS 
ARTXROS 
ARTXRDS 
ARIXROS 
ARIXRDS 
ARIXROS 
ARIXROS 
ARIXROS 
ARIXRDS 
ARIXRDOS 
ARIXROS 
ARIXRDS 
ARIXROS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARTXRDS 
ARIXRDS 
ARIXRDS 
ARIXRGS 
ARIXRDS 
ARIXRDS 
ARTXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXROS 
ARIXRDS 
ARTIXRDS 
ARIXRDS 
ARTXRDS 


Bly 
85> 
92> 
45, 
855 
85> 
55> 
BGs 
925 
925 
92, 
85, 
523 
93, 


15; 
524 
15, 
15, 
15, 
15; 
15, 
15; 
15; 
18, 
15, 
93; 
526 
14, 
15, 
526 
526 
28, 
155 
14; 
14, 
26; 
1925 
528 
529 
529 
529 
529 
529 
529 
529 
529 
529 


Page Reference 


522 
522 
81l, 522 
522 
522 
522 
522 
522 
522 
522 
522 
52e 
523 


523 
524 


526 
524 
15 

524 
524 
524 
525 
525 
525 
525 


526 
526 


526 
527 
527 
527 
527 
527 
527 
528 
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ARIXFOS 
ARIXFO9 
ARIXFL1 
ARIXF12 
ARIXF13 
ARIXF14 
ARIXF15 
ARIXF16 
ARIXF17 
ARIXF18 
ARIXFI19 
ARIXF20 
ARIXF2Z1 
ARIXF22 
ARIXF23 
ARIXF24 
ARIXF25 
ARIXF26 
ARIXF27 
ARIXF28 
ARIXF29 
ARIXF30 
ARIXF31 
ARIXF32 
ARIXF33 
ARIXF 34 
ARIXF35 
ARIXF36 
ARIXF37 
ARIXF38 
A? IXF39 
AR IXFS6O 
ARIXF41 
ARIXF42 
ARIXFS3 
ARLAFS4 
ARIXF46 
ARIXF47 
ARIXFGS 
ARIXF49 
ARIXF50 
ARIXF51 
ARIXF52 
ARIXF53 
ARIXF55 
ARIXF56 
+ RIXF57 
An TXFS8 
ARIXF59 
ARIXF60 
ARIXF61 
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Load Mod(s) (VND 


ARIXROS 
ARIXRDS 
ARIXROS 
ARTXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXROS 
ARIXRDS 
ARIXRDS 
ARTXRDS 
ARIXROS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARTXRDS 
ARIXRDS 
ARIXROS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARTXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXRDS 
ARIXROS 
ARIXRDS 
ARIXROS 
ARIXRDS 
ARIXRDS 
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